交叉引用具有工作表编号的单元格

Question

必须启动一个交叉引用财务模型中所有单元格的复杂模型。 我需要一个代码来启动我的模型，其中代码检测单元格值的来源并引用该工作表的工作表编号。

即有两个工作表，工作表 1 和工作表 2。工作表 1 的范围（“B3”）中的值来自工作表 2 的范围（“C4”）。同样，工作表 1 的范围（“B4”）中的值来自范围（“E7 ") 第 2 页。 我希望代码检测此引用，并在 sheet1 的 Range("B4") 中写入即 Sheet2 的名称。 虽然不是在寻找 vlookup。

谢谢

Answer 1

纳奇，

我认为这将满足您的需求，或者至少为您提供一个良好的起点。

Option Explicit

Sub FindSheetRefs()

   Dim rngStart As Range
   Dim lRowOfs  As Long
   Dim zRef     As String
   
   Set rngStart = Range("B3")
   lRowOfs = 0
   
   Do
      zRef = rngStart.Offset(lRowOfs, 0).Formula
      zRef = Left$(zRef, InStr(zRef, "!") - 1)
      zRef = Right$(zRef, Len(zRef) - 1)
      rngStart.Offset(lRowOfs, 1) = zRef
      lRowOfs = lRowOfs + 1
            
   Loop Until rngStart.Offset(lRowOfs, 0) = 0

End Sub 'FindSheetRefs

示例输出：

注意：B 列中的数字显示了值在参考表上的位置，例如34 = C4。我这样做是为了在测试中快速参考。

HTH

附：我在我的示例中尝试了 TinMan 指向的代码，并在 VBA 即时窗口中得到了这个结果：

===
[Book11]Sheet1!$A$1 has no precedent cells.
===