excel里面用vba添加空白行

Question

如题，我想在每一行下面添加3行空白行。希望大侠指点。

Answer 1

Sub Insert()

    Dim i As Long

    For i = Range("A65536").End(xlUp).Row To 2 Step -1 '终止行到起始行

        Rows(i).Resize(3).Insert ' 3 为要插入的行数

    Next

End Sub

Sub Insert()
Dim i As Long
For i = UsedRange.Rows.Count To 2 Step -1 '终止行到起始行
Rows(i).Resize(3).Insert ' 3 为要插入的行数
Next
End Sub

Answer 2

Sub 插入空行()
Dim i, iRow As Integer
iRow = Range("A65536").End(xlUp).Row
For i = 1 To iRow - 1
Range("A" & (4 * i - 2) & ":C" & (4 * i)).EntireRow.Insert shift:=xlShiftDown
Next i
End Sub

其中，A65536根据实际情况，选择某列作为基准列，原则该列组后一行即为记录的最后一行即可。

Answer 3

Sub KK()
　lastrow = Worksheets("工作表名称").UsedRange.SpecialCells(xlCellTypeLastCell).Row
　Dim i As Integer
　For i = 1 To lastrow
　　Rows(i * 4 - 2).Resize(3).Insert
　Next
End Sub
已测试通过．
说明：（i*4-2）表示从第2行开始插入空格行，如从第3行开始插入空格行则用：：（i*4-1）

Answer 4

crazy回答正解