Jak odstranit jedinečné hodnoty ze sloupce v aplikaci Excel?

Většina z nás obvykle chce odstranit duplicitní hodnoty ze sloupce, ale někdy budete chtít odstranit jedinečné hodnoty, které se ve sloupci objeví pouze jednou. Tento kurz hovoří o tricích, jak odstranit jedinečné hodnoty pouze ze sloupce v aplikaci Excel.

Odstraňte nepřesné hodnoty pomocí VBA v aplikaci Excel

Odstraňte nepřesné hodnoty pomocí programu Kutools pro Excel

---

Odstraňte nepřesné hodnoty pomocí VBA v aplikaci Excel

Pomocí VBA můžete rychle odstranit všechny jedinečné hodnoty z jednoho sloupce.

1. lis Alt + F11 pro zobrazení Microsoft Visual Basic pro aplikace okno.

2. V okně klikněte na Vložit > Modul pro zobrazení nového okna modulu, potom zkopírujte následující kód VBA do okna modulu.

VBA: Odstraňte jedinečné hodnoty ze sloupce.

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. cvaknutí Běh tlačítko pro spuštění kódu VBA, a Kutools pro Excel Zobrazí se dialogové okno pro výběr rozsahu, který má fungovat. Viz screenshot:

4. cvaknutí OKa všechny jedinečné hodnoty jsou odstraněny.

---

Odstraňte nepřesné hodnoty pomocí programu Kutools pro Excel

Pokud nejste obeznámeni s VBA, můžete zvážit použití Kutools pro Excel Vyberte funkci Duplikovat a jedinečné buňky k odstranění jedinečných hodnot v aplikaci Excel.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní

1. Vyberte sloupec, ze kterého chcete odstranit jedinečné hodnoty, a klikněte na Kutools > vybrat > Vyberte Duplikovat a jedinečné buňky. Viz snímek obrazovky:

2. Ve vyskakovacím dialogovém okně zaškrtněte Pouze jedinečné hodnoty a klepněte na tlačítko Oka poté zavřete toto dialogové okno. Viz screenshot:

3. Poté se všechny hodnoty zobrazí pouze jednou. A klikněte pravým tlačítkem a klikněte Vymazat v místní nabídce. Viz snímek obrazovky:

4. V Vymazat V dialogovém okně zaškrtněte Celý řádek a klikněte na OK. Viz snímek obrazovky:

Nyní můžete vidět, že jedinečné hodnoty jsou odstraněny.

Tip: Pokud chcete pouze odstranit obsah buňky, můžete kliknout Vymazat obsah z místní nabídky v kroku 3.

Kliknutím sem získáte další informace o výběru duplicitních a jedinečných buněk.

---

Relativní články:

• Odstranit všechny komentáře v aplikaci Excel
• Odebrat duplicitní řádky v aplikaci Excel

---