excel中隔行插入空行的方法(3)

　　

方法3.借助VBA实现。复制以下代码，运行即可。
注意：
代码中的数字5表示有五行数据需要在第2行（to后面的2）隔1行（-1）插入一行，可以自行修改一下；
如果要隔2行插入1行，只要把Rows(i & ":" & i)改为Rows(i & ":" & （i+1）)即可。
如果对VBA没有任何认识，不太建议使用此方法。

Sub 选定范围隔行插入一行()
    Dim i As Integer
    For i = 5 To 2 Step -1
'第2行前开始才插入空白
        Rows(i & ":" & i).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