excel - 在 Excel 中复制大量数据

Question

我有一个包含大约 90 个格式相同的工作簿的电子表格。我需要将位于一行中的大约 336 个独立公式从已完成的工作表复制并粘贴到所有其他工作表。不幸的是，这最终需要一次复制和粘贴大约 30k 个单独的单元格。除了拆分并手动执行之外，还有其他解决方法吗？

任何帮助都是值得的。谢谢。

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