移动版 - 最新教程 - 热门教程 - 推荐教程 - 热门资源 分享高质量的原创Office教程、Word教程、Excel教程、PPT教程。

删除Excel工作表中数据区域中的奇数行的方法

发布时间:2016-09-03 来源:Office办公助手(www.eynylh520.com)

在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

删除Excel工作表中数据区域中的奇数行的方法

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

提示

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

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

删除Excel工作表中数据区域中的奇数行的方法

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

更多相关阅读

Excel表格中通过“数值调节钮”表单控件控制图表的显示的方法

Excel表格中使用对象浏览器了解VBA对象的方法

以创建简单的Excel应用程序为例介绍在“代码”窗口中编写程序

通过VBA编程实现Excel工作簿只显示指定工作表的方法

在Excel中录制宏的方法

    相关教程
    推荐教程
    专题教程推荐
    热门资源下载
    极速快乐十分 澳洲幸运8 快赢彩票计划 欢乐生肖 三分时时彩 澳门最有名彩票网站 一分时时彩 极速快乐十分 安徽快3 亚洲彩票