Jak odstranit duplikáty, ale zachovat první instanci v aplikaci Excel?
Řekněme, že v listu je seznam hodnot, který obsahuje některé duplikáty. Nyní je nutné duplikáty odstranit, ale ponechat první řádek, kde je duplicitní hodnota nalezena. V tomto článku vám ukážeme dvě metody odstraňování duplikátů, ale ponechejte první instanci v aplikaci Excel.
Odstraňte duplikáty, ale ponechejte první instanci s kódem VBA
Odstraňte duplikáty, ale udržujte první instanci pomocí Kutools pro Excel
Odstraňte duplikáty, ale ponechejte první instanci s kódem VBA
Můžete spustit níže uvedený kód VBA a odstranit duplikáty, ale ponechat první instanci ve sloupci.
1. lis Další + F11 k otevření Microsoft Visual Basic pro aplikace dialogové okno.
2. V Microsoft Visual Basic pro aplikace , klepněte na tlačítko OK Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód do okna kódu.
Kód VBA: odstranit duplikáty, ale zachovat první instanci
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
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)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub
3. lis F5 klíč ke spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah, ze kterého chcete odstranit duplikáty, a poté klikněte na ikonu OK knoflík. Viz screenshot:
Nyní můžete vidět všechny duplicitní řádky kromě toho, že první záznamy jsou odstraněny z vybraného rozsahu sloupců. Viz snímek obrazovky:
Odstraňte duplikáty, ale udržujte první instanci pomocí Kutools pro Excel
Kromě kódu VBA můžete použít Vyberte Duplikovat a jedinečné buňky užitečnost Kutools pro Excel doplněk pro snadné odstranění duplikátů, ale ponechání prvních instancí v aplikaci Excel.
Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.
1. Vyberte rozsah, který chcete odstranit duplikáty, ale zachovat první instance. Poté klikněte Kutools > vybrat > Vyberte Duplikovat a jedinečné buňky.
2. V Vyberte Duplikovat a jedinečné buňky dialogové okno vyberte Duplikáty (kromě prvního) možnost a poté klikněte na OK knoflík. Viz screenshot:
3. V následujícím textu Vyberte Duplikovat a jedinečné buňky , klepněte na tlačítko OK OK.
4. Nyní jsou vybrány duplikáty kromě prvních instancí, stiskněte Vymazat klíč k odstranění vybraných duplikátů.
Poznámka: Chcete-li odstranit duplicitní řádky, stačí zkontrolovat Vyberte celé řádky možnost v Vyberte Duplikovat a jedinečné buňky dialogové okno a poté použijte Vymazat příkazem nabídky pravého tlačítka myši odstraníte celé duplicitní řádky.
Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.
Odstraňte duplikáty, ale udržujte první instanci pomocí Kutools pro Excel
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!