VBA 插入欄位迴圈怎麼寫

尼古拉斯希恩
個人積分：33分
文章編號：75761553

33分

樓主

2019-12-12 16:40

各位高手...
我有錄製了以下巨集..
主要目的是要在每行的資料間插入五行空白行...
若我有大量數據都想按照此法的話請問要怎麼寫呢??

Sub Insert()
Rows("2:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("8:12").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("14:18").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

2019-12-12 16:40 發佈

文章關鍵字 VBA 迴圈

uckenny

uckenny
個人積分：8分
文章編號：75762350

8分

2樓

2019-12-12 17:38

Sub insert5()

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

lastRow = (lastRow * 5) + lastRow

For i = 1 To lastRow
Rows(i + 1 & ":" & i + 5).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
i = i + 5
lastRow = lastRow + 5

Next i

End Sub