parsing - Excel vba解析公式

Question

我有一些带有计算字段的 excel 表，例如CELL_C =FIELD_A+FIELD_B。我需要从该公式中提取所有单元格以用不同的颜色突出显示它。
是否有任何内置的 VBA 函数来解析 cell.Formula 以获取单元格的范围？

Answer 1

您总是可以通过以下方式获得第一级先例:

Sub qwerty()
  Dim rng As Range
  Set rng = ActiveCell.Precedents
  If rng Is Nothing Then
  Else
    MsgBox rng.Address(0, 0)
  End If
End Sub

例如: