Excel中实现隔行删除

  只需要加一个辅助列即可:  
   
  在某列输入公式:   =MOD(ROW(),2)          
  然后把公式复制到相应的数据区域即可。 
    
  如果您希望删除奇数列，那么使用筛选,选取辅助列值为1，然后选中这些行,删除即可。 
  如果您希望删除偶数列，那么选取辅助列值为0，然后选中筛选出来的行,删除即可。

  这个方法还可以用于隔多行删一行，只要把那个公式中的“2”改成所需要的行数就行了。

  如果删除的行是空行或者有共同的特征，直接使用筛选，选取“空白”或者共同的特征，删除即可 。

  这个方法只能说是半自动的,对付几百几千行还能将就，如果真的有上万行，还是做个宏好一些，而且也很简单：  
  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时删除奇数行。

最简单的，知道多少行的，比如1000行吧，直接用循环删除即可

Sub   RowsDelete()

    For i = 1000 To 1 Step -2
         Rows(i).Delete
    Next i
end sub

这个宏稍加变动就可以用来实现每行插入一个空行。如下所示：

  Sub   RowsInsert()  
          Dim   nRows   As   Long  
          Dim   i   As   Long  
          With   Worksheets("sheet1")  
                  nRows   =   .UsedRange.Rows.Count  
                  For   i   =   nRows   To   2   Step   -1   
                          .Rows(i).EntireRow.Insert

                  Next  
          End   With  
  End   Sub