使用“宏”删除空白行
在Excel中,“宏”功能是相当强大的,利用“宏”我们可以完成许多Excel菜单功能之外的特殊功能,下面就
介绍如何利用“宏”功能实现在工作表中删除空白行的操作方法。
1. 启动Excel程序,选择“工具”菜单中“宏”项目下的“宏”命令,进入“宏”对话框,在“宏名”输入框中输入宏
名称“删除空白行”,然后单击“创建”按钮,进入“宏”编辑程序界面。 2. 在“宏”编辑窗口中,在“Sub 删除空白行()”语句下依次录入如下语句: Dim i&
Dim x&
Dim k&
x = 0
For i = 1 To Range(Cells(1, 1),
edRange).Rows.Count
If
Application.WorksheetFunction.CountBlank(Rows(i).EntireRow)
<> 256 Then x = x + 1
Next i
k = 1
Do
If
Application.WorksheetFunction.CountBlank(Rows(k).EntireRow)
= 256 Then Rows(k).Delete
If x = Range(Cells(1, 1), edRange).Rows.Count
Then Exit Sub
If
Application.WorksheetFunction.CountBlank(Rows(k).EntireRow)
<> 256 Then
k = k + 1
End If
Loop End Sub
3. 完成上述宏命令语句录入工作后,单击“保存”按钮将创建的宏进行保存,然后将宏编辑窗口关闭,返回
Excel程序界面。
4. 当需要对工作表进行删除空白行操作时,用户先将需要进行删除空白行操作的工作表打开,选择“工具”
菜单中“宏”项目下的“宏”命令,进入“宏”对话框,然后从“宏”列表窗口中选择“删除空白行”,再单击“执行”