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 iEnd SubPrivate Sub Worksheet_Activate()    Call testEnd Sub 

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

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

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

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