在資料處理或報表整合過程中，空白列與空白欄位不僅影響可讀性，也可能干擾公式運算與篩選功能。透過 VBA，我們可以建立一個「一鍵清理」功能，自動刪除工作表中所有完全空白的列與欄位，讓資料更整齊、報表更俐落。
功能概述
這段 VBA 程式碼可實現以下功能：
- 自動偵測並刪除工作表中完全空白的列
- 自動偵測並刪除完全空白的欄位
- 適用於任意大小的資料表
VBA 程式碼範例
Sub CleanBlankRowsAndColumns()
Dim ws As Worksheet
Dim LastRow As Long, LastCol As Long
Dim r As Long, c As Long
Set ws = ActiveSheet
' 刪除空白列（由下往上）
LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For r = LastRow To 1 Step -1
If Application.WorksheetFunction.CountA(ws.Rows(r)) = 0 Then
ws.Rows(r).Delete
End If
Next r
' 刪除空白欄（由右往左）
LastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
For c = LastCol To 1 Step -1
If Application.WorksheetFunction.CountA(ws.Columns(c)) = 0 Then
ws.Columns(c).Delete
End If
Next c
MsgBox "空白列與欄位已清理完成", vbInformation
End Sub
程式碼詳細解說（初學者導向）
這段程式碼的目的是清理目前工作表中所有完全空白的列與欄位。以下是逐段說明：首先，我們宣告變數：
ws是目前作用中的工作表（ActiveSheet）。LastRow是資料表中最後一列的位置。LastCol是資料表中最後一欄的位置。r與c是迴圈用的列與欄索引。
接著處理空白列：
- 使用
ws.Cells(ws.Rows.Count, 1).End(xlUp).Row找出最後一列的位置。 - 從最後一列往上逐列檢查，使用
CountA函數判斷該列是否完全空白。 - 若該列沒有任何資料，則使用
ws.Rows(r).Delete刪除整列。
然後處理空白欄：
- 使用
ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column找出最後一欄的位置。 - 從最後一欄往左逐欄檢查，使用
CountA判斷該欄是否完全空白。 - 若該欄沒有任何資料，則使用
ws.Columns(c).Delete刪除整欄。
最後使用 MsgBox 顯示清理完成的提示訊息。
操作步驟與使用方式
- 將程式碼貼入 Excel 的模組中（例如 Module1）
- 切換至要清理的工作表
- 執行
CleanBlankRowsAndColumns程式 - 程式會自動清除所有空白列與欄位，並顯示提示訊息
應用場景與延伸建議
- 清理匯入資料後的空白區塊
- 整理報表前的格式優化
- 移除使用者誤插入的空白列或欄位
延伸功能建議：
- 加入清理多張工作表的迴圈
- 加入保留特定列或欄的條件（例如標題列）
- 加入清理空白儲存格但保留格式的選項
- 加入清理後自動儲存或匯出功能
常見問題 FAQ
Q1：是否會刪除含有公式但無資料的列？
只要該列的儲存格皆為空（CountA = 0），即使有公式也會被刪除。若需保留公式，需加入判斷條件。
Q2：是否可以清理整份工作簿的所有工作表？
可以加入 For Each ws In ThisWorkbook.Worksheets 迴圈，逐張處理。
Q3：是否會影響格式或條件格式？
此程式碼只判斷儲存格是否有資料，不考慮格式。若需保留格式，需改用 UsedRange 或其他判斷方式。
結語與延伸閱讀
這段 VBA 程式碼提供了高效率的「一鍵清理空白列與欄位」功能，適合用於資料整理、報表優化與教學應用。後續你可以加入多工作表處理、格式保留或自動儲存模組，打造完整的資料清理工具。
下一篇將介紹如何「一鍵統計 Excel 資料並產出摘要」，敬請期待【VBA 自動化教學】第 6 篇!
