Excel 2003中如何快速删除空白行-Excel教程

假如你在公司使用的是Excel2003，那下面的技巧将帮你做到快速删除表格中的所有空白行。如果你的表格中有大量空白行，一行行地去删显然是非常费时费力的。

详细的操作方法或具体步骤

编写一段VBA可快速删除所有空白行

1、按Alt+F11调出VBA编辑器。

2、点击下图中的按钮，插入一个模块，在左边的窗口输入代码。

Sub DeleteBlankRow() Dim i As Integer Dim Lastrow As Integer Lastrow=Cells(65536, 2).End(xlUp).Row For i=Lastrow To 1 Step -1 If IsEmpty(Cells(i, 2)) Then Rows(i).Delete End If Next i End Sub

3、回到Excel界面，确定需要删除空白行的表格处于激活状态，即Excel窗口当前显示的是该Sheet。

4、回到VBA编辑器，将鼠标放在代码区任意位置，然后按下F5，运行代码。注意因为代码中没有指定sheet名称，默认为当前的sheet，如果你在其他sheet执行了代码将造成误操作。

5、程序自动执行删除空白行的操作。

注意事项

使用VBA的优点是可以做到一劳永逸，你可以将这段VBA代码保存在一个单独的Excel文件中，下次有需要删空白行的Excel表格时，可再次打开该文件，打开VBA编辑器，确定目标表格被激活，然后直接执行即可。

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。