Sub Macro1()
'
' Macro1 Macro
' 使用说明:
' 请注意For后面的数字代表开始插入的第一行,插入后在该行上面插入第一,第二行
' 如果需要运行更多列,请将FOR i=4 to 100中的100改成你原表格列数的三倍左右即可(数字可以大一点,小了会麻烦一点)
' 最后,数字越大运行时间越长.
For i = 4 To 100 Step 3
Rows("1:2").Select
Selection.Copy
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。