在Excel中复制大量数据

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

任何帮助是apperciated。谢谢。

来源

2013-09-29 user2829172

复制公式，选择所有其他工作表（使用Shift +单击选项卡），然后您可以一次粘贴到所有其他工作表。 –

我已经这样做了，问题在于我的系统内存不足，没有足够的RAM/Excel使用我的系统资源来正确地执行它。每次我尝试粘贴到分组工作表时，Excel崩溃并关闭。重新打开Excel时，我尝试访问恢复的文档，但它总是说它已损坏。 – user2829172

如果您将宏复制并粘贴到一个工作表中，然后修改代码以在粘贴时一次循环一张表格，会出现什么情况。 –

您可以尝试使用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

来源

2013-09-30 02:54:02

谢谢大家的回复。我对VBA相当陌生，因此获得一些示例代码真的有所帮助。 – user2829172

在Excel中复制大量数据

回答

相关问题