如何在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