Sub Macro1()
'
' Macro1 Macro
' 使用說明:
' 請注意For后面的數(shù)字代表開始插入的第一行,插入后在該行上面插入第一,第二行
' 如果需要運(yùn)行更多列,請將FOR i=4 to 100中的100改成你原表格列數(shù)的三倍左右即可(數(shù)字可以大一點(diǎn),小了會(huì)麻煩一點(diǎn))
' 最后,數(shù)字越大運(yùn)行時(shí)間越長.
For i = 4 To 100 Step 3
Rows("1:2").Select
Selection.Copy
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub
本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請
點(diǎn)擊舉報(bào)。