快速删除Excel2003中的空白行

在使用Excel处理数据时，经常会留下一些空白行。那么如何快速删除这些空白行呢？今天我们将介绍一段代码来实现。

步骤1：输入测试数据

首先，在一些单元格中随意输入一些字符，代表有空白行的数据。

步骤2：打开Visual Basic编辑器

按下快捷键Alt F11，弹出Visual Basic编辑器。双击ThisWorkbook，打开代码窗口。

步骤3：复制代码

在代码窗口中，将下方的代码复制进去：

Sub 删除空白行()
    s  
    e   - 1
    For i  e To s Step -1
        If (Rows(i))  0 Then
            (i).Delete
        End If
    Next
End Sub

步骤4：运行代码

将光标放在代码的任意位置，点击上方的小三角形按钮，即可运行代码，删除空白行。

步骤5：查看结果

运行完代码后，查看Excel表格中的结果，空白行已被快速删除。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。