跳到主要内容

删除 Excel 中空白行的 6 种简单方法(逐步)

当您处理包含空白行的大型数据集时,它会使您的工作表变得混乱并阻碍数据分析。 虽然您可以手动删除少量空白行,但在处理数百个空白行时会变得耗时且效率低下。 在本教程中,我们介绍了六种不同的方法来高效地批量删除空白行。 这些技术涵盖您在 Excel 中可能遇到的各种情况,使您能够处理更清晰、更结构化的数据。

doc 删除空白行 1


视频:删除空白行

 


删除空白行

 

从数据集中删除空行时,一定要谨慎行事,因为一些通常建议的方法可能会意外删除包含数据的行。 例如,在 Internet 上找到的两个流行技巧是(下面的本教程中也提供了这些技巧):

  • 使用 ”定位条件" 选择空白单元格,然后删除这些选定空白单元格的行。
  • 使用 筛选器 功能过滤关键列中的空白单元格,然后删除过滤范围内的空白行。

但是,这两种方法都有可能错误地删除包含重要数据的行,如下图所示。

doc 删除空白行 2

为避免此类意外删除,建议 使用以下四种方法之一 精确删除空白行。


>> 通过辅助列删除空行

第 1 步:添加辅助列并使用 COUNTA 函数
  1. 在数据集的最右边,添加“帮手" 列并在该列的第一个单元格中使用以下公式:

    =COUNTA(A2:C2)

    备注:在公式中,A2:C2 是要计算非空白单元格的区域。

  2. 然后 向下拖动自动填充手柄 填写公式以计算每行中非空白单元格的数量。 “0” 表示相关行完全空白。

第 2 步:通过帮助列过滤空白行
  1. 单击辅助列的任意单元格,选择 时间 > 筛选器.

    doc 删除空白行 5

  2. 然后点击 过滤箭头 并且只检查 0 在展开的菜单中,然后单击 OK.

    现在所有的空行都被过滤掉了。

第三步:删除空白行

选择空白行(点击行号并向下拖动选择所有空白行),然后右击选择 删除行 从上下文菜单(或者您可以使用快捷方式 按Ctrl + -).

第四步:在Sort & Filter组中选择Filter清除应用的过滤器

doc 删除空白行 10

结果:

备注:如果您不再需要帮助列,请在过滤后将其删除。

>> 在 3 秒内通过 Kutools 删除空白行

为了快速轻松地从您的选择中准确地消除空白行,最好的解决方案是利用 删除空白行 的特点 Kutools for Excel. 方法如下:

  1. 选择要从中删除空白行的范围。
  2. 点击 库工具 > 删除 > 删除空白行 > 在选定范围内.
  3. 根据需要选择所需的选项,然后单击 OK 在弹出的对话框中。

附加信息:
  • 除了删除所选内容中的空白行之外,Kutools for Excel 还允许您方便地从 活动工作表, 选定的工作表,甚至 整个工作簿 只需单击一下。

  • 在使用删除空白行功能之前,请安装 Kutools for Excel。 单击此处下载并免费试用 30 天.


>> 手动删除空白行

如果要删除的空白行很少,您也可以手动删除它们。

第 1 步:选择空白行

单击行号以选择单个空白行。 如果有多个空行,按住 按Ctrl 键并逐一单击行号以选择它们。

第 2 步:删除空行

选择空行后,右键单击并选择 删除 从上下文菜单(或者您可以使用快捷方式 按Ctrl + -).

结果:


>> 使用 VBA 删除空行

如果您对 VBA 感兴趣,本教程提供了两个 VBA 代码供您删除所选内容和活动工作表中的空行。

步骤 1:将 VBA 复制到 Microsoft Visual Basic for Applications 窗口
  1. 激活要从中删除空白行的工作表,然后按 其他 + F11 键。

    doc 删除空白行 27

  2. 在弹出窗口中,单击 插页 > 模块.

  3. 然后将以下代码之一复制并粘贴到空白的新模块中。

    代码 1:从活动工作表中删除空白行

    Sub RemoveBlankRows()
    'UpdatebyExtendoffice
        Dim wsheet As Worksheet
        Dim lastRow As Long
        Dim i As Long
        
        ' Set the worksheet variable to the active sheet
        Set wsheet = ActiveSheet
        
        ' Get the last row of data in the worksheet
        lastRow = wsheet.Cells(wsheet.Rows.Count, 1).End(xlUp).Row
        
        ' Loop through each row in reverse order
        For i = lastRow To 1 Step -1
            ' Check if the entire row is blank
            If WorksheetFunction.CountA(wsheet.Rows(i)) = 0 Then
                ' If the row is blank, delete it
                wsheet.Rows(i).Delete
            End If
        Next i
    End Sub
    

    代码 2:从选择中删除空白行

    Sub RemoveBlankRowsInRange()
    'UpdatebyExtendoffice
    Dim sRange As Range
    Dim row As Range
    ' Prompt the user to select a range
    On Error Resume Next
    Set sRange = Application.InputBox(prompt:="Select a range", Title:="Kutools for Excel", Type:=8)
    ' Check if a range is selected
    If Not sRange Is Nothing Then
    ' Loop through each row in reverse order
    For Each row In sRange.Rows
    ' Check if the entire row is blank
    If WorksheetFunction.CountA(row) = 0 Then
    ' If the row is blank, delete it
    row.Delete
    End If
    Next row
    Else
    MsgBox "No range selected. Please select a range and run the macro again.", vbExclamation
    End If
    End Sub
    

    doc 删除空白行 27

第 2 步:运行代码并删除空白行

点击 运行按钮 或按 F5 键来运行代码。

  • 如果您使用代码 1 删除活动工作表中的空行,则运行代码后,将删除工作表中的所有空行。

  • 如果使用代码2去除选择中的空行,运行代码后会弹出对话框,在对话框中选择要去除空行的范围,然后点击 OK.

结果:

代码 1:删除活动工作表中的空行

代码2:删除选择中的空行

删除包含空白单元格的行

 

本节分为两个部分:一个是使用 Go To Special 功能删除包含空白单元格的行,另一个是使用 Filter 功能删除特定键列中有空白的行。

>> 通过 Go To Special 删除包含空白单元格的行

广泛推荐使用 Go To Special 功能来删除空行。 当您需要删除至少包含一个空白单元格的行时,它可能是一种有用的工具。

第 1 步:选择范围内的空白单元格
  1. 选择要从中删除空行的范围,选择 首页 > 查找和选择 > 定位条件.

    doc 删除空白行 12

    或者你可以直接按 F5 启用钥匙 转到 对话框,然后单击 Special 按钮切换到 转到 Special 对话。

  2. 定位条件 对话框中,选择 空白 选项并单击 OK.

    doc 删除空白行 13

    现在所选范围内的所有空单元格都已被选中。

第 2 步:删除包含空白单元格的行
  1. 右键单击任何选定的单元格,然后选择 删除 从上下文菜单(或者您可以使用快捷方式 按Ctrl + -).

  2. 删除 对话框中,选择 整行 选项并单击 OK.

    doc 删除空白行 16

结果:

备注:正如您在上面看到的,只要该行包含至少一个空白单元格,它就会被删除。 这可能会导致一些重要数据丢失。 如果数据集很大,您可能需要花费大量时间来查找丢失和恢复。 所以,在使用这种方式之前,我建议你先做好备份。

>> 通过筛选功能去除关键列中包含空白单元格的行

当您有一个大型数据集并希望根据关键列包含空白单元格的条件删除行时,Excel 的筛选器功能可能是一个强大的工具。

第一步:过滤关键列的空白单元格
  1. 选择数据集,单击 时间 标签,转到 排序和过滤 组,点击 筛选器 将过滤器应用于数据集。

  2. 点击 过滤箭头 在此示例中,您要删除行所基于的键列的 ID column 是关键列,只检查 空白 从展开的菜单。 点击 OK.

    现在键列中的所有空白单元格都已被过滤。

第 2 步:删除行

选择剩余的行(点击行号并向下拖动选择所有空白行),然后右击选择 删除行 在上下文菜单中(或者您可以使用快捷方式 按Ctrl + -). 然后点击 OK 在弹出的对话框中。

Step3:在Sort & Filter组中选择Filter清除应用的过滤器

doc 删除空白行 22

结果:

备注:如果要根据两个或多个关键列去除空白行,请重复步骤1,逐一过滤关键列中的空白,然后删除剩余的空白行。

最佳办公生产力工具

热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

kte选项卡201905


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations