如何從 Excel 欄位中刪除唯一值？

一般來說，我們大多數人都希望從欄位中移除重複值，但有時您反而想刪除僅出現一次的唯一值。本教學將介紹幾種實用技巧，協助您在 Excel 中輕鬆移除欄位中的唯一值。

在 Excel 中使用 VBA 刪除唯一值

使用 Kutools for Excel 刪除唯一值

---

在 Excel 中使用 VBA 刪除唯一值

運用 VBA，即可快速從單一欄位中刪除所有唯一值。

1. 按下 Alt + F11，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在視窗中，點選插入> 模組，即可開啟新的模組視窗，接著將下列 VBA 程式碼複製到該視窗中。

VBA：從欄位中移除唯一值。

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub

3. 點選執行按鈕以執行 VBA 程式碼，接著會彈出一個 KutoolsforExcel 對話方塊，供您選取要處理的範圍。請參閱下方截圖：

4. 點選確定，即可刪除所有唯一值。

---

使用 Kutools for Excel 刪除唯一值

如果您不熟悉 VBA，不妨試試 Kutools for Excel 的「選取重複/唯一儲存格」功能，輕鬆在 Excel 中移除唯一值。

Kutools for Excel 包含超過 300 項實用的 Excel 工具，可免費試用 30 天，無任何限制！立即取得

1. 選取您要從中刪除唯一值的欄位，然後點選 Kutools > 選取 > 選擇重複/唯一儲存格。請參閱截圖：

2. 在彈出的對話方塊中，勾選唯一值，點選確定後，即可關閉此對話方塊。請參閱截圖：

3. 此時所有僅出現一次的值都已被選取。請按一下滑鼠右鍵，並在快捷選單中點選刪除。詳情請參閱截圖：

4. 在刪除對話方塊中，勾選「整行」後，點選確定。請參閱截圖：

現在您可看到重複值已成功移除，僅保留唯一值。

提示：若您只想清除儲存格內容，可在步驟 3 的快捷選單中點選清除內容。

您可以點此處進一步了解如何選擇重複或唯一的儲存格。

---

相關文章：

• 在 Excel 中刪除所有註解
• 在 Excel 中移除重複行

---