excel使用“宏”删除空白行.docVIP

使用“宏”删除空白行 在Excel中，“宏”功能是相当强大的，利用“宏”我们可以完成许多Excel菜单功能之外的特殊功能，下面就介绍如何利用“宏”功能实现在工作表中删除空白行的操作方法。 1. 启动Excel程序，选择“工具”菜单中“宏”项目下的“宏”命令，进入“宏”对话框，在“宏名”输入框中输入宏名称“删除空白行”，然后单击“创建”按钮，进入“宏”编辑程序界面。 2. 在“宏”编辑窗口中，在“Sub 删除空白行()”语句下依次录入如下语句： Dim iDim x Dim k x = 0For i = 1 To Range(Cells(1, 1), ActiveSheet.UsedRange).Rows.CountIf Application.WorksheetFunction.CountBlank(Rows(i).EntireRow) 256 Then x = x + 1Next i k = 1DoIf Application.WorksheetFunction.CountBlank(Rows(k).EntireRow) = 256 Then Rows(k).DeleteIf x = Range(Cells(1, 1), ActiveSheet.UsedRange).Rows.Count Then Exit SubIf Application.WorksheetFunction.CountBlank(Rows(k).EntireRow) 256 Thenk = k + 1End IfLoopEnd Sub 3. 完成上述宏命令语句录入工作后，单击“保存”按钮将创建的宏进行保存，然后将宏编辑窗口关闭，返回Excel程序界面。 4. 当需要对工作表进行删除空白行操作时，用户先将需要进行删除空白行操作的工作表打开，选择“工具”菜单中“宏”项目下的“宏”命令，进入“宏”对话框，然后从“宏”列表窗口中选择“删除空白行”，再单击“执行”按钮即可将工作表中所有的空白行删除，非常方便。 5. 如果用户需要经常对工作表进行删除空白行的操作，还可以将此“删除空白行”做成工具按钮添加到常用工具栏中。操作方法是选择“工具”菜单下的“自定义”命令，打开“自定义”窗口，单击“命令”标签，在“类别”窗口中选择“宏”，在右边的“命令”窗口中找到刚才创建的“删除空白行”宏，选择它，按住鼠标左键不放将它拖至常用工具栏中，此外你还可以修改该宏按钮的名称和按钮图标格式。以后需要时，只要点击此按钮即可将工作表中的所有空白行删除。