如何批量隔行删除Excel行

最新推荐文章于 2023-01-13 09:49:17 发布

shenbin1430

最新推荐文章于 2023-01-13 09:49:17 发布

阅读量4.5k

点赞数

分类专栏： Windows 文章标签： excel vba

本文链接：https://blog.csdn.net/shenbin1430/article/details/4292451

版权

本文介绍了如何通过VBA宏来实现Excel中批量删除奇数行或偶数行。首先打开VBA编辑器，编写两个子过程，一个是`RowsDelete`函数，根据参数`Odd`决定删除奇数行还是偶数行；另一个是`test`子过程，调用`RowsDelete`并传入0以删除偶数行。运行`test`子过程即可完成操作。

摘要由CSDN通过智能技术生成

按 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，便可以了！