非常好用的方法 删除Excel空白行

1. 启动Excel程序，选择“工具”菜单中“宏”项目下的“宏”命令，进入“宏”对话框，在“宏名”输入框中输入宏名称“删除空白行”，然后单击“创建”按钮，进入“宏”编辑程序界面。

2. 在“宏”编辑窗口中，在“Sub 删除空白行()”语句下依次录入如下语句： Dim i& Dim x& Dim k& x = 0

For i = 1 To Range(Cells(1, 1), ActiveSheet.UsedRange).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), ActiveSheet.UsedRange).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. 当需要对工作表进行删除空白行操作时，用户先将需要进行删除空白行操作的工作表打开，选择“工具”菜单中“宏”项目下的“宏”命令，进入“宏”对话框，然后从“宏”列表窗口中选择“删除空白行”，再单击“执行”按钮即可将工作表中所有的空白行删除，非常方便。

5. 如果用户需要经常对工作表进行删除空白行的操作，还可以将此“删除空白行”做成工具按钮添加到常用工具栏中。操作方法是选择“工具”菜单下的“自定义”命令，打开“自定义”窗口，单击“命令”标签，在“类别”窗口中选择“宏”，在右边的“命令”窗口中找到刚才创建的“删除空白行”宏，选择它，按住鼠标左键不放将它拖至常用工具栏中，此外你还可以修改该宏按钮的名称和按钮图标格式。以后需要时，只要点击此按钮即可将工作表中的所有空白行删除。