一站直销 > excel里的宏，录制以后，同一位置的单元运行后如何能连续的粘贴到下一个sheet

excel里的宏，录制以后，同一位置的单元运行后如何能连续的粘贴到下一个sheet

2025-04-05 20:53:40

推荐回答（1个）

回答1：

Sub Macro1()
Columns("A:A").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Columns("A:A").Select
ActiveSheet.Paste
Range("A1").Select
Dim I
For I = 1 To 5 数字5是到F行想要继续把5改别的数字就行
Columns("A:A").Select
Selection.Copy
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
Range("A1").Select
Next
End Sub