求一excel 批量复制粘贴宏

随便录个宏，把代码删掉，用下面的代码替换，这种问题最好去EXCEL论坛求助。
Sub Macro1()
Application.ScreenUpdating = False
For i = 1 To 11
i = i
Range("A1:B12").Copy
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Range("E1:F1").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Range("C65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Columns("E:F").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Next
Application.ScreenUpdating = True
End Sub

在工作表名称上点击鼠标右键选查看代码,粘贴下面代码到弹出的VBA编辑窗口,关闭VBA编辑窗口,返回工作表按ALT+F8 选中执行
Sub aa()
endrow = Range("A65536").End(xlUp).Row
endcol = Range("iv1").End(xlToLeft).Column
Set rng = Range("A1:B" & endrow)
irows = endrow
For i = 5 To endcol Step 2
Range("A" & irows + 1).Resize(endrow, 2).Value = rng.Value
Range("C" & irows + 1).Resize(endrow, 2).Value = Range(Cells(1, i), Cells(endrow, i + 1)).Value
Range(Cells(1, i), Cells(endrow, i + 1)) = ""
irows = irows + endrow
Next
End Sub

选择一次之后，按住CTRL不松，再用鼠标点你另外需要复制的。直到你选定完之后，就可以复制了。