我目前将 A4:M4 复制到 X 行的方法导致我的计算机崩溃。我希望有人能有比我目前的方法更快的 VBA 循环。
我需要将 A4:M4 复制到 A5:M5、A6:M6....等，直到达到 X（行）），然后复制 A5:M5....等，并选择性粘贴回相同的单元格。这可以在移动到下一行之前在 1 个函数中完成。
X（循环结束）由单元格 A2 定义，并由另一张表中的行数定义。我当前的工作表有 80 万行数据，因此我想复制一个公式，粘贴到行中，然后进行选择性复制和粘贴（这样文件大小就不会很大）。
我希望这是有道理的。
答案1
' I need to copy A4:M4
Range("A4:M4").Select
' into A5:M5,A6:M6....etc until X (rows) is reached
Selection.AutoFill Destination:=Range("A4:M" & CStr(4 + X)), Type:=xlFillDefault
' then copy A5:M5
Range("A5:M5").Select
Selection.Copy
' and paste special back into the same cells
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone