VBA提取具有命名值的分子和分母

Question

我正在尝试使用VBA提取一系列单元格的分子和分母。

因此，例如，在单元格A1中，公式为：= NV2 / NV3。 NV2和NV3是命名值，并且例如NV2 = 3且NV3 = 6。在文本中，A1中公式的结果为0.5。

检索NV2和NV3的方法是什么？我需要以某种方式参考我认为的公式。

非常感谢你的帮助。

Answer 1

选择您要检查并运行的单元格：

Sub marine()
    Dim r As Range
    For Each r In Selection
        v = r.Formula
        If r.HasFormula And InStr(v, "/") > 0 Then
            ary = Split(Mid(v, 2), "/")
            msg = r.Address & vbCrLf & v & vbCrLf & ary(0) & vbCrLf & ary(1)
            MsgBox msg
        End If
    Next r
End Sub