删除Excel表格数据空行

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

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

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

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

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

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 If

End Sub

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

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

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

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

1、定位法：

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

第二步：单击“开始”-“查找和选择”-“定位条件”-选中“空值”，单击“确定”。

第三步：在选中的表格区域右键单击“删除(D)...”。选中“整行”，单击“确定”即可。

VBA法（推荐）：

第一步：单击“开发工具”-“Visual Basic”或者直接快捷键Alt+F11。

第二步：工程区域右键单击“插入”-“模块”。

第三步：代码区域输入代码。

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

第五步：宏名选中“DeletEmptyRow”，单击“确定”。拖拉出一个按钮控件，设计模式下右键单击“编辑文字”将控件名改为“空行删除”。

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