首页 > 软件操作教程 > 办公软件 > 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

image.png

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

提示

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

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

image.png

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

网友评论(共0条评论)

请自觉遵守互联网相关政策法规,评论内容只代表网友观点!

最新评论

点击加载更多评论>>

软件操作 新人注册送三重礼

已有 22658 名学员学习以下课程通过考试

相关视频试题

最需教育客户端 软件问题一手掌握

去 App Store 免费下载 iOS 客户端