答案1
我想建议您使用 VBA(宏),它将帮助您将特定的单元格/单元格范围转换Value
为非计算公式。
Sub FormulatoValue()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Formula to Value"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
Rng.Value = Rng.Text
Next
Application.ScreenUpdating = True
End Sub
怎么运行的:
- 将此代码复制并粘贴为工作表的标准模块。
- 当宏显示时
Input Box
您可以单击单元格或单元格的范围A1, A4, A2:F2, A2:A10
。 - 以 结束
Ok
。
注意: 此示例代码将帮助您恢复特定单元格/单元格范围内的公式。
Sub displayformula()
If Range("A2") <> "" Then Range("A2").Formula = "=Average(H1:H6)"
If Range("A2:F2") <> "" Then Range("A2:F2").Formula = "=Average(H1:H6)"
End Sub
根据需要调整代码中的单元格引用。