工资条(隔行插入的宏)

 

 

 

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