在Excel工作表中,有时需要删除数据区域中的某些特定行,如数据区域中的奇数行。如果由操作者一行一行地删除,则效率较低。实际上,通过编写简单的VBA程序就能很快捷地解决这个问题,本文介绍了删除Excel工作表中数据区域中的奇数行的方法。
1、启动Excel并打开工作表,如图1所示。打开Visual Basic编辑器,在工程资源管理器中插入一个模块,在该模块的“代码”窗口中输入如下程序代码:
Sub DeleteRows()
Dim n,i As Long
n=Range("A65536").End(xlUp).Row
If n Mod 2=0 Then n=n-1
For i=n To 1 Step-2
Rows(i).Delete
Next
End Sub