学习啦>学习电脑>工具软件>办公软件学习>Excel教程>Excel2013教程>

如何删除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 工作表中的奇数行被删除

猜你喜欢:

1.excel2003设置打印奇数页的方法

2.撤销excel工作表保护的方法

3.Excel中进行使用函数计算一组奇数个数的操作方法

4.excel2007打印奇数页的教程

5.excel怎么利用函数比较两个表格数据差异

    3758547