如何在 Excel 中刪除重複資料,同時保留空白列?
在 Excel 中,移除重複項目功能提供了一種便捷方式,可輕鬆清除清單中的重複值。然而,當您的清單包含空白列時,常會遇到一個棘手問題:標準功能會一併刪除這些空白列,導致資料間距被填補,進而破壞原始結構。若這些空白列用作邏輯分隔或格式區隔,此情況往往令人困擾不已。
若您的目標是移除重複項目,同時完整保留所有空白列的原始狀態,以下提供多種高效方法助您輕鬆達成!這些方案不僅能精準清理清單中的重複內容,還能確保空白列絲毫不受影響,讓您的資料管理更顯專業,並完美維持工作表的視覺結構。針對不同使用情境,我們整理出在 Excel 中實現此目標的多元解決方案。
刪除重複使用公式與刪除重複保留空白列
若要刪除重複項目並保留空白列,可先透過輔助欄位標記哪些列為空白,再搭配 Excel 內建的「刪除重複項目」功能。此組合方法能確保保留唯一值,同時完整保留所有現有的空白列。若您偏好採用手動操作為主、整合式的 Excel 工作流程,且不介意顯示輔助欄位,此解決方案將非常適合您。
步驟 1. 在相鄰欄位中(例如:若資料從 A1 開始,則從 B1 開始),輸入下列公式以標記空白列:
=IF(LEN(TRIM(A1))=0,ROW(),"") 此公式會檢查 A1 儲存格是否為空白或僅包含空格;若是,則顯示該列的列號,否則留空。將公式向下拖曳至清單所有項目旁,即可輕鬆標記每一筆空白行。
注意:若資料橫跨多個欄位,請調整參照範圍(例如改用 )A1 或 B1)。使用 TRIM 函數,可確保僅含空格的儲存格也被視為空白。
步驟 2. 選取原始資料欄位與新增的輔助欄位,接著前往資料> 刪除重複。在彈出的對話方塊中,僅勾選原始欄位(非輔助欄位)的核取方塊,即可根據目標資料準確判斷重複項目。

提示:務必確保選取範圍包含輔助欄位,但僅以原始資料欄位作為移除重複項目的依據,以免誤刪輔助欄位所標記的空白列。
步驟 3. 系統將顯示已移除多少個重複值的通知,請按一下確定以確認並關閉訊息。
此時,清單將顯示所有唯一值以及原有的空白列。若不再需要輔助欄位,即可將其刪除。
適用情境:此方法適用於僅使用標準 Excel 功能且資料結構簡單的情況。若資料經常更新,則需重複執行操作步驟,無法完全自動化。此外,在移除重複項目之前務必備份資料,因為儲存並關閉檔案後,此操作將無法復原。
疑難排解:若空白列仍被移除,請再次確認輔助公式是否已正確標記所有空白列,並確保在對話方塊中僅以主要欄位作為「刪除重複」的判斷依據。
使用選擇重複/唯一儲存格進行選擇並高亮重複值
選擇重複/唯一儲存格是 Kutools for Excel 提供的實用功能,特別適合在刪除前直觀識別重複項目,且預設保留空白列。若您希望在刪除前手動審查重複項目,或僅需標示重複項目以利後續處理,此解決方案絕對不容錯過!
1. 選取包含資料的範圍(含空白列),然後點選 Kutools> 選取> 選擇重複/唯一儲存格。
2. 在選擇重複/唯一儲存格對話方塊中,於「規則」下選取重複項目(保留第一筆)。您還可勾選填充背景顏色與填充字體顏色方塊,自動以自訂色彩標示重複項目,讓資料一目了然!
提示:若要選取整列重複資料,請選取完整的資料範圍,而非單一欄位,再據此套用此功能。
3. 按一下確定,系統將顯示已找到並選取的重複儲存格或列數量。再按一下確定即可關閉對話方塊。
現在,清單中的重複項目已標示完成,方便您依需求手動刪除,且不會影響任何空白列。
優點:更具彈性、風險更低,並支援刪除前審查;空白列預設不受影響。當您需要更多視覺控制權,或需針對個別案例處理重複項目時,此方法尤其實用。
注意:若需批次刪除重複項目,可先對醒目提示列區域進行排序或篩選,同時完整保留原始工作表的視覺結構。
Kutools for Excel-透過超過 300 項必備工具全面強化 Excel,讓您的工作更快速、更輕鬆,並運用 AI 功能實現更聰明的資料處理與高效生產力!立即取得
示範:使用 Kutools for Excel 進行選擇重複/唯一儲存格
VBA 巨集:自動刪除重複但保留空白列
對於經常需要自動化移除重複項目,同時保留所有空白列的使用者來說,VBA 巨集是極其實用的選擇。透過巨集,無論清單變動多麼頻繁,都能一鍵快速清理資料,且無需依賴輔助欄位。若您的工作表結構一致,並需要一套可重複執行、兼具高效能與高準確性的解決方案,此方法堪稱理想之選。
注意:執行任何巨集前,務必先儲存工作表的副本,因為執行後的操作難以復原。
1. 前往開發人員工具>Visual Basic。在 VBA 編輯器中,點選插入> 模組,並將下方程式碼貼到新模組視窗中:
Sub RemoveDuplicatesKeepBlankRows()
Dim ws As Worksheet
Dim lastRow As Long
Dim dict As Object
Dim cell As Range
Dim checkRange As Range
Dim i As Long
Set ws = ActiveSheet
Set dict = CreateObject("Scripting.Dictionary")
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
Set checkRange = ws.Range("A1:A" & lastRow)
Application.ScreenUpdating = False
For i = lastRow To 1 Step -1
Set cell = ws.Cells(i, 1)
If Trim(cell.Value) = "" Then
' Blank row, do nothing and keep row
Else
If dict.Exists(cell.Value) Then
cell.EntireRow.Delete
Else
dict.Add cell.Value, True
End If
End If
Next i
Application.ScreenUpdating = True
End Sub 2. 若要執行程式碼,請點擊
按鈕,或在選取模組後按下 F5. 巨集將立即掃描第一欄(A 欄),移除重複值,同時保留所有原有空白列於原始位置。
運作原理:巨集會從指定欄位底部向上逐一檢查,刪除重複值,同時保留所有空白列。它能自動適應不同長度的清單,透過識別最後一個非空白儲存格來動態調整範圍。
參數與提示:
- 若您的資料位於其他欄位,請將
Cells(i,1)改為對應的欄位編號(例如:B 欄為 2,C 欄為 3)。 - 巨集會從最後一行開始向上執行,避免因刪除列時產生的列位移干擾刪除流程。
- 任何僅包含空格的儲存格也會被視為空白。若您只想識別真正的空儲存格,請將
Trim(cell.Value) = ""替換為cell.Value = ""。
疑難排解:若巨集未如預期運作,請檢查目標欄位是否包含合併儲存格、隱藏列,或存在非預期的資料類型。
最適用於:重複性清理作業、處理大型資料集,或將巨集整合至自動化工作流程中。
Excel 公式/進階篩選:提取唯一值並保留空白列
若您希望從原始資料中提取唯一值清單,同時讓空白列保留在其原始位置,可運用搭配條件公式的進階篩選,或巧妙結合 Excel 公式建立全新清單。當您需要為報表或進一步分析打造獨立的去重複清單,同時維持包含空白列的原始版面配置時,此方法尤其實用。
您可以運用下列公式建立唯一值清單,同時讓空白列維持在原有位置。這是一種簡潔又高效的做法:
1. 在新欄位(例如 B1)中,輸入下列公式(假設您的原始資料位於 A1:A100):
=IF(TRIM(A1)="","",IF(COUNTIF(A$1:A1,A1)=1,A1,"")) 2. 將此公式向下拖曳至所有資料列。唯一值會保留在原始位置,後續的重複項目則顯示為空白,而原本就是空白的列仍維持空白。
注意事項:請確保資料中不含隱藏字元或前後多餘空格,以免影響唯一性判斷。TRIM 函數可有效避免此類問題。若使用舊版 Excel,可能需調整處理方式,或搭配輔助欄位進行手動篩選。
適用情境:建立新報表、並列清單,或準備已清理的資料以供後續處理。此方法也適合偏好僅使用公式,而不依賴 VBA 或增益集的使用者。
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行 | 產生程式碼| 建立自訂公式 | 分析資料並產生圖表| 呼叫增強函數…… |
| 熱門功能:尋找、醒目提示或標記重複值 | 刪除空白行 | 合併列或儲存格而不遺失資料 | 不使用公式的四捨五入…… | |
| 高級 LOOKUP:多重條件 VLookup | 多重數值 VLookup | 跨多個工作表 VLookup | 模糊查找…… | |
| 高級下拉列表:快速建立下拉式清單 | 相依式下拉式清單 | 多選下拉式清單…… | |
| 欄位管理員:新增指定數量的欄位|移動欄位|切換隱藏欄位的可見狀態|比較範圍與欄位…… | |
| 精選功能:網格聚焦 | 設計視圖 |增強編輯欄 | 工作簿與工作表管理員 | 資源庫(自動文字)| 日期提取 | 合併工作表 | 加密/解密儲存格 | 依清單傳送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體儲存格/斜體/刪除線……) ...... | |
| 頂尖 15 工具組:12 文字工具(添加文本,刪除特定字符,……)| 50+ 圖表 類型(甘特圖,……)| 40+ 實用公式(基於生日計算年齡,……)| 19 插入工具(插入二維碼,從路徑插入圖片,……)| 12 轉換工具(金額轉大寫,匯率轉換,……)| 7 合併和拆分工具(高級合併行,分割儲存格,……)|……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能,體驗前所未有的高效能!Kutools for Excel 提供超過 300 項進階功能,大幅提升生產力並節省寶貴時間。立即點擊,取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面,讓您的工作更輕鬆自在!
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能,以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件,而非另開新視窗。
- 每天為您提升 50% 的工作效率,並省下數百次滑鼠點擊!
所有 Kutools 增益集,一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集,以及 Office Tab Pro,非常適合需要跨多個 Office 應用程式協作的團隊使用!
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
- 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊,無需信用卡
- 超值之選— 比單獨購買各增益集更省費用