如何批量隔行删除Excel行

按   Alt+F11   打开VBA编辑器   ，编写以下函数：

Sub   RowsDelete(Odd   As   Long)  
          Dim   nRows   As   Long  
          Dim   i   As   Long  
          With   Worksheets("sheet1")  
                  nRows   =   .UsedRange.Rows.Count  
                  For   i   =   nRows   To   2   Step   -1  
                          If   i   Mod   2   =   Odd   Then  
                                  .Rows(i).Delete  
                          End   If  
                  Next  
          End   With  
  End   Sub  
    Odd为0时删除偶数行   为1时删除奇数行  

 

再写一个子过程调用该函数：

Sub test()
  Sheet1.RowsDelete (0)
End Sub

然后把光标点到这段代码里   最后按F5，便可以了！