1、启动Excel并打开工作表,在该工作表的数据区域中存在空白单元格,如图1所示。在Visual Basic编辑器的工程资源管理器中插入一个模块,在模块的“代码”窗口中输入如下程序代码:
Sub DeleteRow()
Dim n,i As Integer
For n=1 To 7
For i=1 To 20
Cells(i,n).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next
Next
End Sub
图1 数据区域存在空白单元格
2、按F5键运行程序,切换到Excel工作表,数据区域中空白单元格所在的行被删除,如图2所示。
图2 数据区域中空白单元格所在的行被删除
已有 22658 名学员学习以下课程通过考试
最需教育客户端 软件问题一手掌握
去 App Store 免费下载 iOS 客户端
点击加载更多评论>>