在Excel中复制大量的数据

我有一个大约90个格式相同的工作簿的电子表格。 我需要从一个完整的工作表中复制和粘贴位于一行中的336个独立公式到所有其他工作表。 不幸的是，这最终导致大约30k个单元需要立即复制和粘贴。 有没有一种解决办法，而不是分手，手动？

任何帮助是apperciated。 谢谢。

Answer 1

你可以尝试使用VBA。 像下面的程序应该让你开始。 以下程序从中获取信息。 此过程假定您的公式从A1行开始并以C1结尾，根据需要进行更改。 在数组中，列出您想要的工作表名称。

 Sub copyFormulas() Dim rng As Range Dim WS As Worksheet With Sheets("The Sheet Name with the Formulas To Copy") Set rng = .Range(.Range("A1:C1"), Range("A" & Rows.Count).End(xlUp)) End With For Each WS In Sheets(Array("Your Destination Sheet Name Here", "And Here")) 'Add more sheets if you need to WS.Rows(2).Resize(rng.Count).Copy rng.Copy Destination:=WS.Range("A1") Next WS End Sub