如何在Excel中刪除列中的唯一值？

Excel是一個強大的工具，廣泛用於資料管理和分析。在處理大型資料集時，經常會遇到需要從列中刪除唯一值的場景。無論您是想篩選出一次性出現的值、識別並消除異常值，還是為了特定目的簡化資料，刪除唯一值都是一項方便的技術。在本教程中，我們將引導您完成在Excel中從列中刪除唯一值的流程。我們將介紹根據您的要求和使用的Excel版本而可用的不同方法。您將學習如何識別唯一值、選擇和刪除它們，並探索一些處理唯一資料的進階技術。

在本教程結束時，您將清楚地瞭解如何在Excel中有效地從列中刪除唯一值，使您能夠更有效地操作資料並實現預期的結果。因此，讓我們開始學習您可以用來從Excel列中刪除唯一值的各種方法吧！

從列中刪除唯一值

讓我們來看一個簡單的流程，瞭解如何在Excel中刪除列中的唯一值。

步驟1

考慮一個Excel表格，其中包含帶有重複值和唯一值的姓名列表，類似於下面的圖片。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式，然後單擊“插入”並選擇“模組”，並將下面的程式碼複製到文字框中，類似於下面的圖片。

右鍵單擊 > 檢視程式碼 > 插入 > 模組 > 複製。

程式碼

Sub DeleteUnique()
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "Range of cells"
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