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

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

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

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

非常感谢您的帮助。

Answer 1

select您想要检查并运行的单元格：

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