VBA批量删除excel指定行 （Excel奇数行）

Sub test()
    Dim begin As Integer
    Dim endValue As Integer
    Dim jg As Integer
    
    begin = 3  '开始行
    endValue = 493 '结束行
    jg = 1 '间隔  '千万不要以为是2，因为当第3行被删除后，第5行已经变成了第4行
    Dim i As Integer
    
    For i = begin To endValue Step jg
        Range("A" & i).EntireRow.Delete
        
    Next i
End Sub

Private Sub Worksheet_Activate()
    Call test
End Sub 

 注：Range("A1").EntireColumn.Delete 这样是删除A1整列

       Range("A1").EntireRow.Delete 这样是删除A1整行

        Range("A1").Delete 这是删除A1单元格  A2单元格会移上去

     上述命令就好像 你选中A1单元格后，右击选择 -》删除 ，在弹出对话框中有四个选项