如何使用VBA从Excel中的公式中获取单元格值？

从 VBA （Excel 2003） 运行时，以下代码对我有用：

Public Function X(data As Range) As Double

For Each c In data.Cells
    a = c.Value     'This works
    b = c.Value2    'This works too (same value)
    f = c.Formula   'This contains =RAND()
Next

End Function

a 和 b 与我传入的内容相同且相等（这是一系列带有 Rand（） 的单元格）。我不确定这里还发生了什么。

啊哈！你需要设置X，不是吗？我不确定您到底希望这个函数做什么，但您需要将 X（函数的名称）设置为要返回的值。添加此行：

X = a

我无法使用您发布的布局复制问题。我注意到您发布的代码中存在一些语法错误（即：“for”应该是“for each”）。但是当我将 =RAND（） 放入 A1：A10 和 =X（A1：A10） 时，我得到了很好的回报：

Public Function X(data As Range) As Double
    Dim c As Excel.Range
    Dim sum As Double
    For Each c In data.Cells
        sum = sum + c.Value
    Next
    X = sum
End Function

但是，只是为了进一步扩展您遇到的其他一些问题。您可以计算结果的公式，如下所示：

Public Function X(data As Range) As Double
    Dim c As Excel.Range
    Dim sum As Double
    For Each c In data.Cells
        sum = sum + Excel.Evaluate(c.Formula)
    Next
    X = sum
End Function

但一般来说，你不会想要这样做，因为这基本上是两次计算相同的值。

请确保在请求值之前进行计算。

为了加快宏的速度，通常会预先形成如下内容。.

'Set Reasonable default
Application.CutCopyMode = False
Application.ScreenUpdating = False
Application.Interactive = False
Application.Calculation = xlCalculationManual

在此状态下，必须先强制计算，然后该值才可用。

Public Function X(data As Range) As Double
    'You may need the following as well
    'Application.Calculate
    Dim c As Range
    For Each c In data.Cells
        c.Calculate
        c.Value    'This is now has a value
        c.Value2   'This is now has a value
        c.Formula  'This contains RAND()
    Next
End Function