根据工作表名称自动增加单元格引用

Question

我有一张包含大量数据的主表，我想将其分成多张表。

例如 ：

在 Sheet 1 中，单元格 A3 中的公式为 =mastersheet!B4 并且

在工作表 2 中，单元格 A3 中的公式为 =mastersheet!B5。

添加数字使用工作表名称，因此如果我使用 3 作为工作表名称，它将是 =mastersheet!B(4+3)。

有人能帮我出一下公式吗？

Answer 1

尝试使用这个简单的 VBA 宏在工作表中设置公式工作表1，工作表2，和工作表3：

Sub FormulaSetup()
    Dim sh As Worksheet, increasing As Long

    For Each sh In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
        increasing = CLng(Mid(sh.Name, 6) + 3)
        sh.Range("A3").Formula = "=mastersheet!B" & increasing
    Next sh
End Sub

只需修改语句Array()以包含您想要修改的所有工作表。

结果（在 Sheet3 中）：