删除Excel中的空白列(3种方法)

  • Share This
Hugh West

本文将告诉你如何用三种有效而简单的方法删除Excel中的空白列。

下载工作手册

你可以从这里下载实践工作手册。

删除Excel中的空白列.xlsm

在Excel中删除空白列的3种简单方法

在这里,你将学习3种方法,通过使用Excel编辑工具、使用公式和实现VBA代码来删除Excel中的空白列。

1.通过使用Excel编辑工具

步骤1。 选择数据集。

第2步。 转到 首页 -> 查找& 选择 -> 转到专题 .

第3步。 转到专题 在弹出的窗口中,选择 空白 ,然后点击 认可 .

第4步。 只有你的数据集中的空单元格会被选中。 右击鼠标,从弹出的选项列表中,选择 删除 .

第5步。 接下来,从弹出的 删除 箱子,挑 将单元格左移 从选项中选择。 点击 好的。

这将从数据集中删除所有的空白列。

阅读更多。 如何删除Excel中未使用的列

2.通过使用公式

你可以利用 COUNTA() 在Excel中删除空白列的公式是什么? COUNTA() 公式将做的是,它将首先识别Excel中数据集中的空白和非空白列,然后,从那里你可以轻松地选择和删除空白列。

这是在Excel中删除空白列的另一个有效方法,特别是当你有很多空白列需要处理的时候。 让我们来学习如何做到这一点。

步骤1。 在数据集的正上方插入一个空行,右击第一行的标题,选择 插入 这将在整个数据集上方插入一个新行。

第2步。 在你工作表的最左边的单元格中,写下以下公式。

=COUNTA(A2:A1048576)=0

在这里。

A2 代表数据集的第一个单元格。

A1048576 代表Excel(2007-2019)中的行最大值。

第3步。 新闻 进入 它将显示 如果该列是空的,或 假的 如果整列中至少有一个非空的单元格。

第4步。 将公式应用于其他列,通过拖动 填充手柄 .

第5步。 现在转到 首页 -> 排序 & 筛选 -> 自定义排序 .

第6步。 从弹出窗口 分类 窗口,点击 选择 按钮,然后选择 从左到右排序 分类选项 弹出的窗口,并点击 认可 .

第7步。 点击旁边的下拉框。 排序方式 标签,并从那里选择选项 第1行 .

第8步。 点击下拉框,在 排序在 标签,并选择选项 细胞值 从那里。

第9步。 点击下拉框,在 秩序 标签,并选择选项 最大的到最小的 .点击 认可 .

它将把所有的空白列转移到工作表的左边。

第10步。 在那里,只需选择整个空白列的数据集,右键单击,然后选择 删除 .

第11步。 从弹出窗口 删除 框,选择 整个栏目 从选项中选择。 点击 认可 .

这将从数据集中删除所有的空白列。

类似的阅读。

  • 如何删除Excel中的多个列
  • 删除Excel中的重复列(6种方法)
  • 如何删除Excel中的多余列(7种方法)
  • 在不影响公式的情况下删除Excel中的列(两种方法)

3.通过使用VBA代码

如果你是一个有经验的Excel用户,那么这个方法特别适合你。 执行VBA代码是在Excel中删除空白列的最安全的方法。 它只删除绝对的空列。 如果任何一列包含一个单元格值,甚至任何单元格返回一个空字符串,整个列仍然是完全不变的。

下面是删除Excel中空白列的自动方法。

步骤1。 新闻 Alt + F11 在你的键盘上,或进入标签 开发商 -> 视觉基础 来打开Visual Basic编辑器。

第2步。 从菜单栏,点击 插入 -> 模块 .

第3步。 复制以下代码并将其粘贴到代码窗口。

 Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox(_ "Select a range:", "Delete Blank Columns", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn IfApplication.WorksheetFunction.CountA(EntrColumn)=0 那么EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub 

第4步。 新闻 F5 在你的键盘上选择"",或从菜单栏中选择 运行 -> 运行Sub/UserForm 你也可以直接点击小 播放图标 子菜单栏中的 "运行宏"。

第5步。 在弹出的对话框中,切换到感兴趣的工作表,选择所需的范围并点击 认可 .

这将从数据库中删除所有空白列。

总结

本文讨论了如何在Excel中删除空白列的三种简单方法。 我们展示了如何使用Excel编辑工具来删除空白列,我们展示了如何应用公式来删除空白列,我们还实现了VBA代码来删除Excel的空白列。

Hugh West is a highly experienced Excel trainer and analyst with over 10 years of experience in the industry. He holds a Bachelor's degree in Accounting and Finance and a Master's degree in Business Administration. Hugh has a passion for teaching and has developed a unique teaching approach that is easy to follow and understand. His expert knowledge of Excel has helped thousands of students and professionals worldwide improve their skills and excel in their careers. Through his blog, Hugh shares his knowledge with the world, offering free Excel tutorials and online training to help individuals and businesses reach their full potential.