我想知道VBA中哪些单元格与公式相关。
例如,假设E12
具有此公式=AVERAGE(D12:D17)
,并且我想从该单元格中提取单元格D12...D17
的列表,如何实现呢?
Dim fCell Az Range
Set fCell = Range("E12")
' know how to extract list
最佳答案
您正在寻找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