Excel 如何在VBA中从单元格中删除公式并替换为数字?

Excel 如何在VBA中从单元格中删除公式并替换为数字?,excel,vba,excel-formula,Excel,Vba,Excel Formula,假设我有一个手机,C1。C1中的公式为=A1*B1,等于2。如何删除公式,并在计算后用结果数字替换?我试过这个: Dim x As Long x = .Range("C1").Value .Range("C1").Value = x 这不起作用,因为x试图存储公式,而不是所述公式的计算。如果您想要计算结果,只需使用 With .Range("C1") .Value2 = .Value2 End With 如果需要公式,请使用。公式x将不包含带有该代码的公式。首先,Long不能包含文

假设我有一个手机,C1。C1中的公式为=A1*B1,等于2。如何删除公式,并在计算后用结果数字替换?我试过这个:

Dim x As Long

x = .Range("C1").Value
.Range("C1").Value = x

这不起作用,因为x试图存储公式,而不是所述公式的计算。

如果您想要计算结果,只需使用

With .Range("C1")
    .Value2 = .Value2
End With
如果需要公式,请使用。公式

x将不包含带有该代码的公式。首先,Long不能包含文本。