excel裏面用vba添加空白行

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

Dim i As Long

For i = UsedRange.Rows.Count To 2 Step -1 '終止行到起始行

Rows(i).Resize(3).Insert ' 3 為要插入的行數

Next

End Sub