如何删除 Excel 中的空白列（4 种快速方法）

如何删除 Excel 中的空白列（4 种快速方法）

在Excel中处理数据时，经常会遇到需要删除空白列的情况。本文将介绍4种快速删除Excel空白列的方法，包括手动选择删除、使用转到特殊命令、通过COUNTA函数以及应用VBA代码。每种方法都配有具体步骤和相关截图，帮助读者轻松掌握这些实用技巧。

方法1：使用Ctrl键手动选择后删除Excel中的空白列

步骤：

• 选择空列。如果我们有多于一列，请按住Ctrl，然后选择它们。
  
• 右键单击这些列标题之一，然后选择删除。
  
• 空白列被删除。
  

删除空白列的键盘快捷键：

选择空白列，然后按Ctrl-。这将删除空白列。

方法 2：使用Excel转到特殊命令查找所选内容中的所有空白列并将其删除

步骤：

• 选择数据集。
  
• 转到功能区主页选项卡中编辑部分下的查找并选择选项。
• 选择转到特殊内容。将出现转到特殊对话框。
  
• 在转到特殊窗口中选择空白，然后按确定。
• 我们可以看到该工作区中的所有空白框均已被选中。
  
• 右键单击所选内容并选择删除。将出现一个小对话框。
  
• 选择向左移动单元格。
• 这会将列向左移动，因为中间没有空白列。
  

方法3：通过COUNTA函数找到空白列后将其删除

步骤：

• 通过选择行、右键单击并选择插入，在数据集顶部插入一行。
  
• 在该空白行的最左侧工作单元格（在我们的示例中为B4）中，使用以下公式并按Enter。

=COUNTA(B5:B1048576)=0

这里，B5是我们数据集的起始单元格。B1048576是Excel中可能的最大单元格数量（对于Excel 365）。=0检查空白，即范围内是否只有空白单元格。

• 这是结果。
  
• 将填充手柄拖动到右侧以查看其余列的状态。
  
• 结果将如下图所示。
  
• 选择所有数据并转到功能区中的主页选项卡。
• 选择排序和过滤，然后选择自定义排序。将出现排序对话框。
  
• 在弹出的排序窗口中，单击选项。
• 从排序选项弹出窗口中选择从左到右排序，然后单击确定。
  
• 单击“排序”标签下的下拉框，然后从其中选择“单元格值”选项。
• 单击“订单”标签下的下拉框，然后选择“从最大到最小”选项，然后单击确定。
• 单击确定将为我们提供如下结果。
  
• 选择空白列并将其删除，如第一种方法中所述。
• 如果不再需要，您还可以删除True和False行。
  

方法4：应用VBA代码删除空白列

步骤：

• 转到功能区中的开发人员选项卡，然后单击Visual Basic。
• 将出现一个名为Microsoft Visual Basic for Application的窗口。您可以通过按Alt + F11执行相同的操作。
• 在窗口中，选择插入，然后选择模块。
• 在该窗口中，复制并粘贴以下代码。

Sub del_blank_col()
Dim SrcRng As Range
Dim FullCol As Range
On Error Resume Next
Set SrcRng = Application.InputBox("Source Range:", "Delete Blank Columns!", Application.Selection.Address, Type:=8)
If Not (SrcRng Is Nothing) Then
Application.ScreenUpdating = False
For i = SrcRng.Columns.Count To 1 Step -1
Set FullCol = SrcRng.Cells(1, i).FullCol
If Application.WorksheetFunction.CountA(FullCol) = 0 Then
FullCol.Delete
End If
Next
Application.ScreenUpdating = True
End If
End Sub

• 通过从菜单中选择运行按钮来运行 VBA。
• 运行 VBA 后选择单元格范围。
• 按确定将立即删除空白行。

要记住的事情

• 选择和删除功能不适合包含大量数据的大型Excel文件。
• 编辑工具实际上是一个特殊的选择工具。所以，我们需要在选择后单独删除空白列。
  
• COUNTA公式扫描所有行。对于较大的文件，可能需要一些时间。
  
• VBA过程是不可逆的。我们无法撤消该过程。建议保留备份。