KutoolsforOffice — 一套方案,五大工具。事半功倍。三月特賣:20% 折扣

如何在 Excel 中刪除重複項目,同時保留該列的其他資料?

作者修改日期

在日常資料處理中,Excel 的「刪除重複」功能往往會一併刪除整列資料,可能導致其他欄位資訊遺失,甚至破壞整張工作表的結構。本文將介紹多種方法,讓您僅清除指定欄位中的重複值,同時完整保留該列其餘資料——包括結合篩選器的公式、VBA 程式碼,以及 Kutools 增益集等解決方案。每種方法皆附有典型應用情境、優缺點與注意事項,助您快速選出最符合自身需求的最佳選擇。

移除重複項目並保留其餘部分-範例1移除重複項目並保留其餘部分-範例2

使用篩選器刪除重複但保留該列其餘資料(3 個步驟)

使用 VBA 刪除重複但保留該列其餘資料(4 個步驟)

使用 Kutools for Excel 刪除重複但保留該列其餘資料(2 個步驟)好點子3


使用篩選器刪除重複但保留該列其餘資料

結合簡單公式與 Excel 篩選功能,是清除重複值同時保留資料結構的可靠做法。此方法特別適合需要視覺辨識,並選擇性地從單一欄位移除重複資料的情境,確保每一列的其他資訊皆不受影響。該技術適用於中小型資料集,讓使用者對整個清除過程擁有完整掌控權。

1. 選取緊鄰資料區域的空白儲存格(例如資料從 A2 開始,則選取 D2),輸入公式:=A3=A2. 此公式會將每個儲存格與上方儲存格進行比對,以標記重複項目。依需求向下拖曳填滿控點,即可將公式套用至其餘列。請參閱下圖:
輸入公式並拖曳以填滿其他儲存格

2. 接著選取整個資料區域——包含新加入的公式欄位——然後點選資料 > 篩選,即可啟用篩選功能,輕鬆找出標記為重複的列。
按一下「資料」>「篩選」以啟用篩選功能

3. 按一下公式欄位(例如 D 欄)中的篩選圖示,並在下拉清單中僅勾選 TRUE,即可顯示所有重複項目(保留最後一次出現的資料)。
從下拉清單中勾選 TRUE

4. 按一下確定後,所有已識別的重複值將立即顯示。選取這些重複儲存格,再按下 Delete 鍵,即可輕鬆清除重複內容,完全不影響該列的其他儲存格!此方法能精準移除指定欄位中的重複值,同時完整保留整列的資料結構。請參閱下方截圖:
選取所有重複值,按下 Delete 鍵將其移除

提示:務必謹慎,僅選取重複的儲存格——而非整列——以確保只移除目標值。

5. 若要恢復正常檢視,請再次點選資料> 篩選 以停用篩選功能。若不再需要輔助公式欄位,可將其刪除或清除。此時,指定欄位中的重複項目已成功移除,其餘所有列資料仍完整保留。
按一下「資料」>「篩選」以停用篩選

優點:無需使用 VBA 或增益集;步驟清晰明確,手動錯誤也能輕鬆修正。
缺點:無法完全自動化——仍需手動清理;處理極大資料集時效率較低。


使用 VBA 刪除重複但保留該列其餘資料

VBA 提供更自動化的方式,能從欄位中移除重複項目,同時不影響同列的其他資料。此方法極適合處理重複性的清理任務,尤其適用於大量資料或需頻繁執行清除程序的情境。使用 VBA 不僅可減少手動錯誤,還能節省時間,但最適合熟悉 Excel 基礎腳本的使用者。

1. 按下 Alt + F11,即可開啟 Microsoft Visual Basic for Applications 編輯器視窗!

2. 在 VBA 視窗中,前往插入> 模組,並將下列程式碼複製貼上至新模組中。此程式碼可從您選取的區域中移除重複值,同時保留該列的所有其他資訊:

VBA:刪除重複但保留該列其餘資料

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918

    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
    
End Sub

將程式碼複製並貼上到模組中

3. 若要執行指令稿,請按下 F5 或按一下執行按鈕,系統將彈出對話方塊,提示您選取欲移除重複值的範圍;接著按一下確定以確認。
用於選取範圍以移除重複值的 VBA 程式碼

4. 巨集將執行,並在指定範圍內移除重複值,原位置會變為空白儲存格,而該列的其他內容則完整保留,有效維持工作表的結構。
已從選取範圍中移除重複值

優點:處理大型或重複性資料集時效率極高,大幅減少手動操作!
缺點:需啟用巨集並具備基本 VBA 知識;編輯通常不可逆,建議務必在備份檔案上操作。


使用 Kutools for Excel 刪除重複但保留該列其餘資料

若您已安裝 Kutools for Excel,即可輕鬆簡化從範圍或欄位中移除重複項目,同時完整保留該列其餘資料的流程!Kutools 提供直覺又高效的重複資料處理功能,特別適合經常需要整理 Excel 資料清單的您——立即體驗,提升工作效率!

Kutools for Excel 提供超過 300 項進階功能,簡化複雜作業,提升創造力與效率。整合 AI 功能,Kutools 能精準自動化各項任務,讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊……         免費試用……

安裝 Kutools for Excel 後,可根據資料特性與個人偏好選擇下列兩種方法之一:

方法一:合併相同儲存格(2 個步驟)

1. 先反白標示您欲去除重複項目的儲存格範圍,接著前往 Kutools> 合併和拆分> 合併相同儲存格。此功能會將連續的重複值自動合併為單一儲存格,讓您輕鬆保留第一筆資料並快速清除其餘重複項目!
按一下 Kutools 的「合併相同儲存格」功能

2. 合併後,選取合併儲存格,前往開始> 合併後置中> 取消合併儲存格,即可還原為標準儲存格。此時重複項目會顯示為空白儲存格,每組僅保留唯一值。
按一下「開始」>「合併後置中」>「取消合併儲存格」以拆分它們

結果將類似下方範例,其中重複項目已被移除,而該列其餘資料則予以保留:
取得結果

 

方法二:選擇重複/唯一儲存格(4 個步驟)

1. 選取欲移除重複值的完整清單或範圍,然後點擊 Kutools> 選取> 選擇重複/唯一儲存格
按一下 Kutools 的「選取重複與唯一儲存格」功能

2. 在選擇重複/唯一儲存格對話方塊中,於重複項目(保留第一筆)規則區段選擇此選項,系統將標示出第一筆之後的所有重複項目。
在「規則」區段中勾選「重複項目(保留第一筆以外)」選項

3. 按一下確定,系統將提示已選取多少個重複儲存格;再次按一下確定以完成確認。
彈出對話方塊提醒您已選取多少個重複項目

4. 只需按下 Delete 鍵,即可輕鬆移除這些已選取的重複值,同時不影響該欄位中的其他資料。

按下 Delete 鍵以移除所選的重複值

優點:無需公式或程式碼,操作快速又直覺,還支援批次作業!
缺點:需額外安裝軟體。


總結與疑難排解:上述每種解決方案皆提供實用方法,可在 Excel 中移除重複值的同時,完整保留該列其餘資料。篩選與公式法適合需要透明化、逐步操作的手動處理;VBA 適用於批次或重複性清理任務;Kutools 則為常態使用者打造便捷流暢的操作體驗。執行前務必仔細檢查所選區域,進行批次作業前先建立備份,並選擇最符合自身工作流程及對公式或程式碼熟悉程度的方案。若遇到重複項目遺漏或意外資料遺失等問題,請確認輔助欄位是否正確、排序狀態是否妥當,並在刪除前再次核實選取範圍是否精準。

最佳 Office 生產力工具

🤖KUTOOLS AI 助手:基於以下內容徹底革新數據分析:智慧執行     產生程式碼  建立自訂公式    分析資料並產生圖表  呼叫增強函數……
熱門功能尋找、醒目提示或標記重複值     刪除空白行     合併列或儲存格而不遺失資料     不使用公式的四捨五入……
高級 LOOKUP多重條件 VLookup    多重數值 VLookup     跨多個工作表 VLookup      模糊查找……
高級下拉列表快速建立下拉式清單     相依式下拉式清單     多選下拉式清單……
欄位管理員新增指定數量的欄位移動欄位切換隱藏欄位的可見狀態比較範圍與欄位……
精選功能網格聚焦     設計視圖   增強編輯欄    工作簿與工作表管理員     資源庫(自動文字)  日期提取     合併工作表    加密/解密儲存格    依清單傳送電子郵件     超級篩選      特殊篩選(篩選粗體儲存格/斜體/刪除線……) ......
頂尖 15 工具組12 文字工具添加文本刪除特定字符,……)   50+ 圖表 類型甘特圖,……)   40+ 實用公式基於生日計算年齡,……)   19 插入工具插入二維碼從路徑插入圖片,……)   12 轉換工具金額轉大寫匯率轉換,……)   7 合併和拆分工具高級合併行分割儲存格,……)……以及更多
在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言!

運用 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 應用程式協作的團隊使用!

ExcelWordOutlookTabsPowerPoint
  • 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集,以及 Office Tab Pro
  • 一個安裝程式,一個授權— 數分鐘內即可完成設定(支援 MSI)
  • 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
  • 30 天完整功能試用— 無需註冊,無需信用卡
  • 超值之選— 比單獨購買各增益集更省費用