如何根據 Excel 中某一列的重複值刪除整行？

在 Excel 中，使用「資料」標籤中的「刪除重複項」功能來移除重複的行是一項簡單的任務。然而，基於某一列中的重複值刪除整行的過程可能並非一目了然。本文介紹了幾種簡單的方法，以有效處理此情況，確保您的數據保持準確且簡潔。當準備用於報告、分析的數據，或需要根據某個標準保留唯一記錄時，根據特定列中的重複值刪除行顯得尤為重要。以下方法涵蓋內置的 Excel 功能、公式和 VBA 選項，以及 Kutools for Excel 提供的解決方案，使用者可以根據自己的情境和工作需求選擇最合適的方式。每種方法都根據任務複雜性、數據量以及對 Excel 工具的熟悉程度提供獨特的優勢。

• 利用「刪除重複項」功能根據某一列中的重複值刪除行
• 利用 Kutools for Excel 根據某一列中的重複值刪除行
• 使用 VBA 代碼刪除特定列中具有重複值的行
• 使用公式和輔助列識別並刪除列中的重複值
• 根據某一列中的重複值刪除行，並合併/求和/平均/計數從刪除行中獲取的值

利用「刪除重複項」功能根據某一列中的重複值刪除行

此方法著重於利用 Excel 的「刪除重複項」功能輕鬆刪除包含特定列中重複條目的整行。這是最快的解決方案之一，尤其適用於數據已經整理好並且您希望刪除每個重複值的所有出現次數（只保留一次）的情況。

1. 選擇要根據某一列中的重複值刪除行的範圍，然後點擊「資料」>「刪除重複項」。

   

2. 在彈出的 刪除重複項 對話框中，僅勾選包含要用作刪除整行基礎的重複值的列旁的複選框，然後點擊 確定 按鈕。

   

   注意：仔細檢查您的列選擇。只有被勾選的列才會被評估是否有重複值。如果您意外勾選了其他列，則可能無法刪除所有預期的重複項。

3. 隨後的對話框將顯示找到並刪除的重複值數量。點擊「確定」完成並關閉對話框。該消息提供了刪除的重複行數量及剩餘唯一行數量的反饋，以供參考。

   

使用 Kutools for Excel 根據某一列中的重複值刪除行

通過 Kutools for Excel 的「選擇重複與唯一單元格」工具，您可以根據列中所有的重複值刪除行，並且只保留具有唯一值的行。此外，該工具還提供了選擇的靈活性，可以選擇刪除包含重複項的行（除了其首次出現之外），或者刪除所有包括首次出現的重複行。這種方法特別適合需要快速管理重複項並且比原生 Excel 功能提供更多控制的用戶。

1. 選擇包含要用作刪除行基礎的重複值的列，然後點擊 Kutools > 選擇 > 選擇重複與唯一單元格.

   

   提示：建議只選擇要檢查重複項的列，以避免在無關數據上進行意外刪除。

2. 在打開的 選擇重複與唯一單元格 對話框中，請勾選 重複項（除第一個以外） 選項或 所有重複項（包括第一個） 選項，根據需要在 規則 部分選擇。然後，勾選 選擇整行 選項，並點擊 確定 按鈕。

   

   參數解釋：
   • 重複項（除第一個以外）： 保留首次出現。所有其他重複行都被選擇刪除。
   • 所有重複項（包括第一個）： 選擇列中具有重複值的每一行，包括首次出現。

3. 如下所示的對話框出現，顯示根據所選列中的重複值選擇的行數。點擊「確定 」按鈕關閉它。

   

4. 點擊 開始 > 刪除 > 刪除表格行 刪除包含重複值的已選行。到目前為止，您已經根據指定列中的重複值刪除了所有行。

   

   提示：在刪除之前考慮保存文件的備份。刪除的行在進行重大操作或保存/關閉文件後無法使用撤銷恢復。

使用 VBA 代碼根據列中的重複值刪除行

此方法使用 VBA 宏自動遍歷您選擇的數據範圍，並在特定列中發現重複值時刪除整行。這個解決方案對於處理大型數據集或重複清理任務特別有價值，並且比手動方法提供更多自動化。運行 VBA 代碼之前，始終備份您的工作簿，因為宏所做的更改不能輕易撤銷。

1. 點擊「開發工具」>「Visual Basic」打開 Microsoft Visual Basic for Applications 編輯器窗口。如果您看不到「開發工具」標籤，可以通過「檔案」>「選項」>「自定義功能區」啟用它。
2. 在 VBA 編輯器中，點擊「插入」 > 「模組」創建一個新的代碼模組，然後將以下代碼粘貼到模組窗口中：

Sub DeleteRowsWithDuplicateInColumn()
    Dim rng As Range
    Dim i As Long, j As Long
    Dim lastRow As Long
    Dim colNum As Long
    Dim ws As Worksheet
    Dim dict As Object
    On Error Resume Next
    Set ws = ActiveSheet
    Set rng = Application.InputBox("Select your data range (including column headers)", "KutoolsforExcel", ws.UsedRange.Address, Type:=8)
    If rng Is Nothing Then Exit Sub
    colNum = Application.InputBox("Enter the column number to check for duplicates (e.g.,2 for column B):", "KutoolsforExcel", 1, Type:=1)
    Set dict = CreateObject("Scripting.Dictionary")
    lastRow = rng.Rows.Count
    For i = lastRow To 2 Step -1
        If dict.Exists(rng.Cells(i, colNum).Value) Then
            rng.Rows(i).EntireRow.Delete
        Else
            dict.Add rng.Cells(i, colNum).Value, 1
        End If
    Next i
End Sub

3。輸入代碼後，點擊 按鈕執行代碼。系統提示時，選擇您的數據範圍（包括標題），然後輸入要檢查重複項的列號（例如，輸入 2 表示 B 列）。

該宏將自動從底部到頂部遍歷數據，在指定列中找到重複值的任何行都會被刪除，同時保留每個唯一值的首次出現。

使用 Excel 公式和輔助列識別並刪除含有重複值的行

如果您偏好基於公式的解決方案，可以使用輔助列來標記重複值，然後手動刪除這些標記的行。當您想在刪除前視覺檢查哪些行是重複項時，這種方法非常理想，並提供更高的透明度，不過有些步驟是手動的。

1. 在數據表中添加一個新的輔助列（例如，在 D 列），並在數據旁邊的空白單元格中輸入以下公式，例如 D2：

=COUNTIF($A$2:$A2,A2)>1

2. 將此公式複製或填充到輔助列中的所有相關行。結果為 TRUE 標記為重複，而 FALSE 表示首次出現。

3. 將篩選功能應用於包含輔助列的數據範圍。然後篩選輔助列為TRUE值——這些是首次出現之後的重複行。

4. 選擇篩選後的行，並使用「開始」>「刪除」>「刪除表格行」將其從表中刪除。如果需要，隨後可以刪除或隱藏輔助列。

5. 刪除重複行後，點擊「篩選」取消篩選並顯示隱藏的數據。

=COUNTIF($A$2:$A$24,A2)>1

根據某一列中的重複值刪除行，並合併/求和/平均/計數從刪除行中獲取的值

如果您想根據特定列中的重複值刪除整行並保留來自這些重複項的數據，請嘗試使用 Kutools for Excel 的「高級合併行」工具。該工具使您能夠高效地刪除在指定列中具有重複條目的行，同時對其他列中的數據進行合併、求和、平均或計數等操作，從而保持數據集的完整性和有用性。當您需要在刪除重複項後聚合相關數據時，例如合併銷售記錄或交易日誌，此方法特別適用。

1. 選擇要在其中根據某一列中的重複值刪除行的範圍，然後點擊 Kutools > 合併與拆分 > 高級合併行。

   

2. 在打開的 高級合併行 對話框中，作為示例，我們將根據「水果」列中的重複值刪除行。此外，我們將在「價格」列中合併價格信息，並在「數量」列中計算每種水果的總數量。請按照以下步驟執行此過程：
   1. 在對話框的列列表部分中，找到並選擇包含要用作刪除行基礎的重複值的「水果」列，然後從「操作」下拉列表中選擇主鍵。
   2. 選擇「價格」列，我們將合併指定列中與重複項相關的所有值。然後從操作下拉列表的合併部分中選擇分隔符。
   3. 選擇「數量」列，將根據指定列中的重複值應用計算（求和、平均、計數等）。然後從操作下拉列表的 計算組中選擇求和選項。

      

    

3. 點擊「確定」按鈕。現在，所有行都已根據指定列中的重複值刪除，而其他列同時進行合併或計算。

   

演示：在 Excel 中根據某一列中的重複值刪除行

相關文章：

在 Excel 中統計列中的重複值

在 Excel 中刪除重複行並只保留最高值

在 Excel 中隱藏重複行