如何提取公式中使用的单元格？

Question

我想知道VBA中哪些单元格与公式有关。

例如，假设E12的公式为=AVERAGE(D12:D17)，而我想从该单元格中提取单元格列表D12...D17，我该如何实现呢？

Dim fCell Az Range
Set fCell = Range("E12")
' know how to extract list

Answer 1

您正在寻找DirectPrecedents属性。尝试类似的东西：

Dim r As Range
For Each r In ActiveSheet.Range("E12").DirectPrecedents
    Debug.Print r.Address(False, False) & " = " & r.Value
Next

输出：

D12 = 5
D13 = 10
D14 = 15
D15 = 14
D16 = 9
D17 = 20