删除Excel表格数据空行

Excel表格数据区域的空行如何能快速选中删除呢？小编总结了两种方法，下面就请跟随小编一起来操作实现吧！

工具/原料

Windows7 旗舰版

Excel 2010

定位删除法

1、选中能表达表格数据区域空行实际情况的一列数据。

2、单击“开始”-“查找和选择”-“定位条件”。

3、选中“空值”，单击“确定”。

4、在选中的表格区域右键单击“删除(D)...”。

5、选中“整行”，单击“确定”即可。

VBA删除法（推荐）

1、单击“开发工具”-“Visual Basic”或者直接快捷键Alt+F11。

2、工程区域右键单击“插入”-“模块”。

3、代码区域输入如下代码：Sub DeleteEmptyRow() '挢旗扦渌;删除空行 Dim rg As Range, 讣嘬铮篌LastRowNum As Long, FirstMark As Boolean Application.ScreenUpdating = False FirstMark = True LastRowNum = ActiveSheet.Range("a65536").End(xlUp).Row '取得最后非空行行号（此处a65536根据实际需要修改） For i = 1 To LastRowNum If WorksheetFunction.CountA(Rows(i)) = 0 Then '判断行是否为空 If FirstMark Then '判断是否为第一次找到的空行 Set rg = Rows(i) FirstMark = False Else Set rg = Union(rg, Rows(i)) End If End If Next If FirstMark = False Then rg.Delete shift:=xlUp End If Application.ScreenUpdating = True If FirstMark = False Then MsgBox "已成功删除空行！", vbInformation + vbOKOnly, "提示" End IfEnd Sub

4、返回表格区域，单击“开发工具”-“插入”表单控件下的“按钮（窗体控件）”。

5、宏名选中“DeletEmptyRow”，单击“确定”。

6、拖拉出一个按钮控件，设计模式下右键单击“编辑文字”将控件名改为“空行删除”。

7、退出设计模式，单击“空行删除”按钮，弹出“已成功删除空行！”提示框下单击“确定”即可。