VBA之行与列的插入与删除

Posted 2020-10-02

‘工作表中单元格，行与列的插入与删除
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

Sub 隔行删除_我的想法()
list_num_a = Application.CountA(Range("a:a"))
For i = 1 To list_num_a
    Rows(i).Delete
    If Cells(i, 1) = "" Then
    GoTo aa:
    End If
    Next
aa:
End Sub