將數據從一張紙解析到許多其他紙

Question

有一張工作表列出了所有數據，還有超過9,000個其他工作表引用了該數據並獲取了其中一些數據。

我現在必須手動執行的操作：在其中的每一個中，我都應該在某些單元格中編寫公式，該公式引用我們的“數據表”並獲取某些數據。 單元格在所有工作表中完全相同。 公式如下所示：

=ListOfData!A1  

第二張紙看起來像：

=ListOfData!A2  

...等等等等。

我可以在不進行硬編碼的情況下將這些公式寫在所有工作表中嗎？

Answer 1

如果我了解您的需求，這是我為您准備的快速宏：

Sub addFormula()
Dim ws As Worksheet
Dim cel As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "ListofData" Then
        With ws
            'This places the formula in cell A1 of each sheet. Change as necessary!
            .Cells(1, 1).Formula = "=ListOfData!A" & ws.Index
        End With
    End If
Next ws

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

將其放在工作簿模塊中。 它將使用工作表索引確定公式（即索引中的第二個工作表在單元格A1中將具有=ListofData!A2 。

要更改公式的位置，請編輯.Cells(1,1)進行修復（格式為.Cells([Row],[Column]) 。

既然您有9000多張紙，我希望所有的神明他們的索引都是您想要的數字。 如果不是，則需要指定我們如何知道哪個工作表在公式中獲得A1 ， A2 ，...， A9000 。

我強烈建議您在工作簿的副本中嘗試使用40張紙，然后再在較大的書本上使用。