6 種在 Excel 中移除空白列的簡易方法（逐步說明）

當您在處理包含空白列的大型資料集時，這些多餘的內容不僅會讓工作表顯得雜亂，還可能干擾數據分析。雖然少量空白列可以手動刪除，但面對數百個空白列時，這種方式將耗費大量時間且效率極低。本教學將為您介紹六種高效實用的方法，協助您快速批次刪除空白列，涵蓋 Excel 中常見的各種情境，讓您的資料更乾淨、更有條理。

• 移除空白列
• 透過輔助欄位
• 透過 Kutools 在 3 秒內完成
• 手動操作
• 透過 VBA
• 移除包含空白儲存格的列
• 透過「前往特定位置」功能
• 在關鍵列中透過篩選功能

影片：移除空白列

移除空白列

從資料集中移除空白列時，務必格外謹慎，因為某些常見建議的做法可能會意外刪除實際包含資料的列。例如，網路上廣為流傳的兩種熱門技巧如下（本教學下方亦有提供）：

• 使用「前往特定位置」選取空白儲存格，再刪除這些已選取空白儲存格所在的列。
• 使用篩選功能，在關鍵欄位中篩選出空白儲存格，並立即刪除篩選範圍內的空白列！

然而，這兩種方法皆有可能誤刪包含重要資料的列，如下方截圖所示。

為避免此類非預期的刪除，建議採用以下四種方法之一，精準移除空白列。

>> 透過輔助欄位移除空白列

步驟 1：新增輔助欄位並使用 COUNTA 函數

1. 在資料集最右側新增「輔助」欄位，並於該欄位的第一個儲存格中輸入以下公式：

   =COUNTA(A2:C2)

   

   注意：公式中的 A2:C2 是您要計算非空白儲存格數量的範圍。
2. 接著向下拖曳自動填滿控制點，以套用公式並計算每列中非空白儲存格的數量。「0」表示該列完全空白。

   

步驟 2：透過輔助欄位篩選空白列

1. 點擊輔助欄位中的任一儲存格，然後選擇「資料」>「篩選」。

   

2. 接著點擊「篩選箭頭」，在展開的選單中僅勾選「0」，再點擊「確定」。

   

現在所有空白列都已成功篩選出來。

步驟 3：刪除空白行

選取空白列（按一下列號並向下拖曳以選取所有空白列），然後按一下滑鼠右鍵，從內容功能表中選擇「刪除行」（或使用快速鍵 Ctrl + -）。

步驟 4：在「排序與篩選」群組中選取「篩選」以清除已套用的篩選

結果：

>> 使用 Kutools 在 3 秒內移除空白列

若想快速又輕鬆地從選取範圍中精準移除空白列，最佳選擇就是使用「Kutools for Excel」的「刪除空白行」功能。操作步驟如下：

1. 選取您要移除空白列的範圍。
2. 點選「Kutools」＞「刪除」＞「刪除空白列」＞「選擇區域」。
3. 根據需求選擇所需選項，然後在彈出的對話方塊中點擊「確定」。

   

>> 手動移除空白列

若需移除的空白列不多，您也可手動操作。

步驟 1：選取空白列

按一下列號即可選取單一空白列。若有多個空白列，請按住「Ctrl」鍵，再逐一按一下各列的列號以選取它們。

步驟 2：刪除空白列

選取空白列後，按一下滑鼠右鍵，並從內容功能表中選擇「刪除」（或使用快速鍵 Ctrl + -）。

結果：

>> 使用 VBA 移除空白列

如果您對 VBA 感興趣，本教學提供兩段實用的 VBA 程式碼，可分別快速移除選取範圍與作用中工作表中的空白列。

步驟 1：將 VBA 程式碼複製到 Microsoft Visual Basic for Applications 視窗

1. 啟用要從中移除空白列的工作表，然後按下 Alt + F11 鍵。

   

2. 在彈出視窗中，點選「插入」>「模組」。

3. 接著，請將下方任一段程式碼複製並貼上至新的空白模組中。

   程式碼 1：從作用中工作表移除空白列

   Sub RemoveBlankRows()
   'UpdatebyExtendoffice
       Dim wsheet As Worksheet
       Dim lastRow As Long
       Dim i As Long
       
       ' Set the worksheet variable to the active sheet
       Set wsheet = ActiveSheet
       
       ' Get the last row of data in the worksheet
       lastRow = wsheet.Cells(wsheet.Rows.Count, 1).End(xlUp).Row
       
       ' Loop through each row in reverse order
       For i = lastRow To 1 Step -1
           ' Check if the entire row is blank
           If WorksheetFunction.CountA(wsheet.Rows(i)) = 0 Then
               ' If the row is blank, delete it
               wsheet.Rows(i).Delete
           End If
       Next i
   End Sub
   

   程式碼 2：從選擇區域移除空白列

   Sub RemoveBlankRowsInRange()
   'UpdatebyExtendoffice
   Dim sRange As Range
   Dim row As Range
   ' Prompt the user to select a range
   On Error Resume Next
   Set sRange = Application.InputBox(prompt:="Select a range", Title:="Kutools for Excel", Type:=8)
   ' Check if a range is selected
   If Not sRange Is Nothing Then
   ' Loop through each row in reverse order
   For Each row In sRange.Rows
   ' Check if the entire row is blank
   If WorksheetFunction.CountA(row) = 0 Then
   ' If the row is blank, delete it
   row.Delete
   End If
   Next row
   Else
   MsgBox "No range selected. Please select a range and run the macro again.", vbExclamation
   End If
   End Sub
   

   

步驟 2：執行程式碼並刪除空白行

點擊「執行」按鈕，或按下「F5」鍵，即可立即執行程式碼。

• 若您使用程式碼 1 從目前工作表中移除空白列，執行後，所有空白列將立即被清除。

• 若您使用程式碼 2 從選取範圍中移除空白列，執行後將彈出對話方塊，請於其中選取欲移除空白列的範圍，再點擊「確定」。

  

結果：

程式碼 1：移除當前工作表中的空白列

程式碼 2：移除選擇區域中的空白列

移除包含空白儲存格的列

本節分為兩部分：一是運用「定位條件」功能，移除包含空白儲存格的列；另一則是透過「篩選」功能，依據特定關鍵欄位中的空白儲存格來刪除對應的列。

>> 使用「定位條件」移除包含空白儲存格的列

「定位條件」功能廣泛用於清除空白列。當您需要移除至少包含一個空白儲存格的列時，這項工具格外實用。

步驟 1：選取範圍中的空白儲存格

1. 選取您要刪除空白列的範圍，然後點選「開始」>「尋找與選取」>「定位條件」。

   

   或者，也可直接按下「F5」鍵開啟「定位」對話方塊，再點擊「特殊」按鈕，即可切換至「定位條件」對話方塊。
2. 在「定位條件」對話方塊中，選取「空白儲存格」選項，然後點擊「確定」。

   

目前選取範圍內的所有空白儲存格皆已選取。

步驟 2：刪除行包含空白儲存格的列

1. 在任一已選取的儲存格上按一下滑鼠右鍵，然後從快捷功能表中選擇「刪除」（或直接按下快速鍵 Ctrl + -）。

   

2. 在「刪除」對話方塊中，選取「整行」選項，然後點擊「確定」。

   

結果：

>> 使用「篩選」功能，根據關鍵列中的空白儲存格移除列

當您在處理大型資料集，並希望根據特定關鍵欄位是否包含空白儲存格來刪除整列時，Excel 的「篩選」功能將成為您的強大利器。

步驟 1：在關鍵列中篩選空白儲存格

1. 選取資料集後，按一下「資料」索引標籤，然後在「排序與篩選」群組中點選「篩選」，即可將篩選套用至該資料集。

   

2. 按一下您要用來移除列的關鍵欄位旁的「篩選箭頭」。在此範例中，「ID」欄即為關鍵欄位，僅勾選展開功能表中的「空白」項目，然後按一下「確定」。

   

現在，關鍵列中的所有空白儲存格都已成功篩選出來。

步驟 2：刪除行

選取剩餘的列（按一下列號並向下拖曳，以選取所有空白列），然後按一下滑鼠右鍵，在內容功能表中選擇「刪除行」（或使用快速鍵 Ctrl + ——），並在彈出的對話方塊中點選「確定」。

步驟 3：在「排序與篩選」群組中選取「篩選」以清除已套用的篩選

結果：