插入与删除VBA

nnsea

'工作表中单元格，行与列的插入与删除
Sub 插入()
Rows(2).Insert
End Sub


Sub 隔行插入()
Dim r%
    Do
        r = r + 2
        Rows(r).Insert
    Loop Until Cells(r + 1, 1) = ""
End Sub


Sub 删除()
Rows(1).Delete
End Sub


Sub 隔行删除()
Dim r, s
m = Application.CountA(Columns(1))
    For r = 1 To m / 2
        Rows(r).Delete
    Next
End Sub