跳到主要内容

4种快速删除Excel中多个空白或空行的简单方法

如果整个工作表或工作簿中需要删除数百行空白行,您将感到沮丧。 在这里,本教程将逐步列出一些快速的方法来为您逐步完成此工作。


方法A:使用转到特殊命令删除空白行

现在,请按照以下步骤操作,使用“转到特殊行”删除空行:

1.选择要删除空白行的范围,单击 首页 标签,然后在 编辑 组,点击 查找和选择 > 定位条件.
doc删除空白行2

2.在 定位条件 对话框,检查 空白 选项。
doc删除空白行3

3。 点击 OK,现在选中了选择中的所有空白单元格。
doc删除空白行4

4。 点击 首页 标签,在 细胞 组,点击 删除 > 删除工作表行.
doc删除空白行5

现在带有空白单元格的行已被删除。
doc删除空白行6

请注意:

使用“转到特殊位置”命令删除空白行时有致命流程:
所有行均包含空白单元格(即使该行包含一个空白单元格,而其他列包含数据)也将被删除,如下图所示。

doc删除空白行1


您想加薪并有很多时间陪伴家人吗?

Office 选项卡可立即将 Microsoft Office 工作效率提高 50%

令人难以置信的是,处理两个或多个文档比处理一个或多个文档更容易,更快捷。

与知名浏览器相比,Office Tab中的选项卡式工具更强大、更高效。

每天为您减少数百次鼠标单击和键盘输入,现在告别鼠标手。

如果您经常处理多个文档,Office Tab 将非常适合您节省时间。

30天免费试用,无需信用卡。

了解更多现在下载


方法B:使用Kutools删除范围/工作表/工作簿中的空白行

如果要快速轻松地删除选区,活动工作表,选定工作表或整个工作簿中的所有空白行,而又没有错误删除,则可以尝试 删除空白行 的工具 Kutools for Excel,只需单击一下即可处理工作,而无需VBA代码和帮助程序列。

但是,在使用此工具之前,您需要 免费安装 Kutools for Excel 首先。

点击 库工具 > 删除 > 删除空白行,然后在子下拉列表中,根据需要选择一项操作。
doc删除空白行17

演示:一键删除所有空白行


方法C:使用VBA代码删除空白行

1。 按 Alt + F11键 启用钥匙 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块 创造一个新的 模块 脚本,将以下代码复制并粘贴到脚本中。

VBA:删除空行

Sub DeleteBlankRows()
'Update 20190107
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
Application.ScreenUpdating = False
For I = xRows To 1 Step -1
    If Application.WorksheetFunction.CountA(WorkRng.Rows(I)) = 0 Then
        WorkRng.Rows(I).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
    End If
Next
Application.ScreenUpdating = True
End Sub

doc删除空白行7

3。 按 F5 键运行代码,然后选择一个用于删除弹出窗口中空白行的范围 KutoolsForexcel. 对话。
doc删除空白行8

4。 点击 OK。 现在选择中的空行已被删除。
doc删除空白行9

请注意:

使用此VBA代码,最好删除某个范围内的空白行,但不能删除整个工作表中的空白行,否则Microsoft Excel可能会卡住。


方法D:使用帮助器列和过滤器功能删除空白行

1.在数据范围之前插入一列,以插入列A为例,然后键入此公式 = B3&C3&D3 到A3中以合并row3中的数据,请参见屏幕截图:

Tips::如果您的数据跨越B3列到N列,则将公式调整为= B3&C3&D3&E3&…&N3。
doc删除空白行10

2.然后通过向下拖动自动填充手柄将公式填充到单元格中。
doc删除空白行11

3。 然后点击 时间 > 筛选器.
doc删除空白行12

4.然后点击 筛选器图标 在助手列中,检查 空白 选项仅在下拉列表中。 看截图:
doc删除空白行13

5。 点击 OK,所有空白行均已被过滤掉。
doc删除空白行14

6.选择过滤的行,单击 首页 > 删除 > 删除工作表行 删除空白行。
doc删除空白行15

7。 然后点击 时间 > 筛选器 再次禁用 筛选器 功能。
doc删除空白行16

注意:

与方法A和方法C相比,此方法可以为每个Excel用户准确删除空白行并易于处理。 但是,如果您的数据中有数十列,则此方法将有些乏味。


相关操作:每隔一行插入空白行

也许有时候,您想在范围的每隔一行中插入空白行,如下图所示:
doc删除空白行18

在这种情况下,您可以应用 插入空白行和列 Kutools for Excel 的实用程序可以快速处理这项工作。

1.选择要在每隔一行中插入空白行或列的范围,然后单击 库工具 > 插页 > 插入空白行和列.
doc删除空白行19

2.在 插入空白行和列 对话框,检查 空白行 or 空白栏 您需要的选项 插入类型 然后,在 附加选项 部分,指定 间隔/.
doc删除空白行20

3。 点击 Ok,空白行已插入到选择的每隔一行中。

演示:插入空白行和列


下载样本文件

样品点击下载示例文件

最佳办公生产力工具

热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件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 (54)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
excelente me sirvio el punto uno para 40000 registros en 1 seg
This comment was minimized by the moderator on the site
Great!!! This helps a lot.
This comment was minimized by the moderator on the site
VERY NICE, THANKS
This comment was minimized by the moderator on the site
:lol: Good to share! Thank you!
This comment was minimized by the moderator on the site
Very Helpful :-) it helped me to reconcile big report.
This comment was minimized by the moderator on the site
Guys I recently had this issue. I realised that the F5 special blanks wouldn't work because some of my columns had merged data sharing some rows... I just selected the columns needed and make sure the merge button was unselected. From there, the F5 special blanks select worked! Hope it helps someone.
This comment was minimized by the moderator on the site
This is simple VBA code to delete the entire rows based on particular column:- Sub DeleletBlankrows() Range("A1:A10000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub
This comment was minimized by the moderator on the site
only usefull if you want to delete ANY row with ONE blank cell, not delete rows with ALL cells being blank. Isn't this titled "How to remove blank or empty rows in Excel?" not "How to remove rows with blank cells?"
This comment was minimized by the moderator on the site
Ah, no, actually. The whole purpose of the sort & filter routine I demonstrated is to take out ONLY rows that are entirely blank across. The inquirer did not want any row removed that had some data in it... only rows that were completely blank. And the problem with the BLANK command was that it took out ANY rows entirely that had even one blank cell, erasing the rest of the data on the same row. Try it. It does the opposite of what you stated in your first sentence.... it takes out only entire blank rows, and leaves ALL the remaining data intact.
This comment was minimized by the moderator on the site
When you select multiple columns, then go to Find & Select -> Go To Special and choose blanks, it will highlight every blank cell within that range. If you then proceed to Delete -> Delete Sheet Rows, it will delete all rows that had a blank cell selected. Go try it.
This comment was minimized by the moderator on the site
oh bro thankyou very very much .....
This comment was minimized by the moderator on the site
thanks a lot, it saved lot of time
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations