如何在Excel中快速删除多个空列

MS Excel 高级Excel函数微软技术

Microsoft Excel是一个强大的数据管理和分析程序，拥有众多功能。在处理大型电子表格时，遇到空列的情况相当常见，这些空列会使您的数据混乱，并使数据探索和有效工作变得困难。手动删除每个空列既费时又费力，尤其是在处理多个列时。

幸运的是，Excel包含多种方法可以快速删除多个空列，从而节省大量时间和精力。本文将引导您完成在Excel中查找和删除多个空列的过程。

在Excel中快速删除多个空列

首先，我们将创建一个VBA模块，然后运行它来完成任务。让我们来看一个简单的例子，演示如何在Excel中快速删除多个空列。

步骤1

考虑一个Excel工作表，其中您的数据以表格形式显示，并且包含一些空列，如下面的屏幕截图所示。

首先，使用Alt + F11打开VBA应用程序。

步骤2

然后单击“插入”，选择“模块”，并将下面的代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub DeleteEmptyColumns()
Dim rng As Range
Dim InputRng As Range
xTitleId = "Delete Empty Columns"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
    Set rng = InputRng.Cells(1, i).EntireColumn
    If Application.WorksheetFunction.CountA(rng) = 0 Then
        rng.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub