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
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 > Vyberte Nástroje > 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:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
