将单元格公式转化为数值的方法

在 Excel VBA 中，有如下几种方法将单元格公式转化为数值。

使用 Value 属性

使用 Value 属性可以将单元格的值作为数值返回。当单元格包含公式时，这个属性将返回该公式计算后的数值结果。

以下示例使用 Value 属性将选中区域的所有公式转换为数值：

Sub UseValue1()
    Selection.Value = Selection.Value
End Sub

以下示例使用 Value 属性将单元格 A1 的公式转换为数值：

Sub UseValue2()
    Range("A1").Value = Range("A1").Value
End Sub

首先，使用 Copy 方法复制包含公式的单元格，然后使用 PasteSpecial 方法将其粘贴为数值。

以下示例代码将单元格区域 A1:E10 的显示内容复制后再选择性粘贴为数值：

Sub SpecialPaste()
    With Range("A1:E10")
        .Copy
        .PasteSpecial xlPasteValues
    End With
End Sub

当 Formula 属性值为非公式时，返回的结果与 Value 属性一致。

Range("A1").Formula = Range("A1").Value

Evaluate 方法可以计算一个字符串作为公式并返回计算结果。通过将公式作为字符串传递给 Evaluate 方法，可以获得公式计算后的数值。

Dim result As Variant
result = Evaluate("=SUM(A1:E10)")

WorksheetFunction 对象提供了许多内置的工作表函数，例如 SUM、AVERAGE 等。您可以使用这些函数来直接计算公式并返回结果。

Dim result As Variant
result = Application.WorksheetFunction.Sum(Range("A1:A10"))

以上每种方法都有其适用的场景，您可以根据具体需求选择最适合您的方法来将单元格公式转换为数值。