将复制粘贴的VBA宏从逐行更改为批复制粘贴

我目前有一个VB宏，可以将值从一个表单复制到另一个表单。但是，目前VB的编写方式是逐行执行，而且运行速度很慢，因为它经历了几千行。我想知道如何才能最好地改变我的VB做一个批量复制粘贴，以减少等待时间。代码是：将复制粘贴的VBA宏从逐行更改为批复制粘贴

Sub copypaste_settlement_rows() 

Dim LastRow As Long 

Application.ScreenUpdating = False 

Sheets("Settlement Template").Select 
'find last row in column A 
LastRow = Cells(Rows.Count, "A").End(xlUp).Row 

For x = 2 To LastRow 
    Cells(x, 1).Resize(1, 42).Copy 
    Sheets("PIVOT DATA").Select 
    NextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1 
    Cells(NextRow, 1).Select 
    Selection.PasteSpecial Paste:=xlPasteValues 
    Sheets("Settlement Template").Select 
Next x 

Sheets(">> START HERE <<").Select 

Application.CutCopyMode = False 

Application.ScreenUpdating = True 

End Sub

来源

2015-10-16 Ian Schneider

您是否想要批量选择表格中的行？ –

这应该是瞬时的，它不使用剪贴板：

Sub copypaste_settlement_rows() 
    Dim v 
    With Sheets("Settlement Template") 
     v = .Cells(2, 1).Resize(.Cells(.Rows.Count, "A").End(xlUp).Row, 42) 
    End With 
    With Sheets("PIVOT DATA") 
     .Cells(.Rows.Count, "A").End(xlUp).Resize(UBound(v), UBound(v, 2)) = v 
    End With 
End Sub

来源

2015-10-16 17:40:28

@Ian Schneider为您做了这项工作？ –

对于迟到的回复感到抱歉，我今天才开始测试。尽管它确实能够立即运行，但我遇到了一些问题 - 即大约40％的时间会导致运行时错误7内存不足。它似乎也跳过了它从“结算模板”表中“复制”的最后一行。我会多花一点时间，但是如果我能够抓住所有东西并且不再发生错误，这绝对是我正在寻找的东西！ –

一个非常简单的方法（和我在我自己的代码中看到最快的）是：

ThisWorkbook.Worksheets("PIVOT DATA").Range("A2:A" & lastRow) = ThisWorkbook.Worksheets("Settlement Template").Range("A2:A" & lastRow).Value

来源

2015-10-16 17:41:57 costrom

今天我会测试这个，并与上面的答案进行比较，谢谢！ –

将复制粘贴的VBA宏从逐行更改为批复制粘贴

回答

相关问题