麻烦提供一下
追答宏代码没有,提供一个变通的办法,你参照一下
宏代码:
Sub a()
Dim i As Integer
For i = 100 To 2 Step -1
'第2行前开始才插入空白
Rows(i & ":" & (i + 2)).Insert
'第5行前插入三行空白,第4行插入三行空白,依次,一直到第2行前插入插入一行空白终止
Next
End Sub
Sub 隔4行插入表头()
For i = 29 To 6 Step -4
'结尾行是29,第二次出现表头的行是6,间隔4行插入表头
Range("A1:K1").Copy
'表头是A1:K1
Rows((i - 3) & ":" & i).Insert Shift:=xlDown
'间隔是i和i-3之间,也就是相差4行插入
Next
End Sub