如何删除Excel工作表中数据区域中的奇数行

　　在Excel工作表中，有时需要删除数据区域中的某些特定行，如数据区域中的奇数行。如果由操作者一行一行地删除，则效率较低。以下是小编为您带来的关于删除Excel工作表中数据区域中的奇数行，希望对您有所帮助。

　　删除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

　　图1　打开需要处理的工作表

　　提示

　　在这段程序中，程序将数据区域最后一行的行号n与2进行取模运算，判断该变量是否为偶数，然后使用For循环从最大的奇数行开始，以2为步长逐行删除掉奇数行。

　　2、按F5键运行程序，工作表中的奇数行被删除，如图2所示。

　　图2　工作表中的奇数行被删除