将数据从一张表parsing到另外一张表
有一张表，其中列出了所有数据，并且有超过9000张其他表单参考了这些数据。
我现在必须手动做的事情：在这么多的每一个中，我都应该在某个单元格中写出公式，这个单元格引用了我们的“数据表”并且获取了一些数据。 单元格在所有表单中完全相同。 公式看起来像这样：
=ListOfData!A1 第二张纸看起来像：
=ListOfData!A2
…等等等等。
我可以在没有硬编码的情况下在所有表格中写出这些公式吗？
如果我明白你需要什么，下面是我为你做的一个快速macros：
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 。
我强烈build议在工作手册的副本中试用这个，在使用这个大版本之前要先写40张。