Rows("9:9").Select
Application.CutCopyMode = False
Selection.Copy
Rows("10:11").Select
Selection.Insert Shift:=xlDown
Rows("12:12").Select
Application.CutCopyMode = False
Selection.Copy
Rows("13:14").Select
Selection.Insert Shift:=xlDown
Rows("15:15").Select
Application.CutCopyMode = False
Selection.Copy
Rows("16:17").Select
Selection.Insert Shift:=xlDown
Rows("18:18").Select
Application.CutCopyMode = False
Selection.Copy
Rows("19:20").Select
Selection.Insert Shift:=xlDown
End Sub
怎么让这个宏在EXCEL里按上面这个规律循环下去,一共有1300列
Application.CutCopyMode = False
Selection.Copy
Rows("10:11").Select
Selection.Insert Shift:=xlDown
Rows("12:12").Select
Application.CutCopyMode = False
Selection.Copy
Rows("13:14").Select
Selection.Insert Shift:=xlDown
Rows("15:15").Select
Application.CutCopyMode = False
Selection.Copy
Rows("16:17").Select
Selection.Insert Shift:=xlDown
Rows("18:18").Select
Application.CutCopyMode = False
Selection.Copy
Rows("19:20").Select
Selection.Insert Shift:=xlDown
End Sub
怎么让这个宏在EXCEL里按上面这个规律循环下去,一共有1300列