Jak usunąć duplikaty, ale zachować pierwszą instancję w programie Excel?
Powiedzmy, że w twoim arkuszu znajduje się lista wartości, która zawiera kilka duplikatów, teraz musisz usunąć duplikaty, ale zachować pierwszy wiersz, w którym znajduje się zduplikowana wartość. W tym artykule pokażemy dwie metody usuwania duplikatów, ale zachowaj pierwszą instancję w programie Excel.
Usuń duplikaty, ale zachowaj pierwszą instancję z kodem VBA
Usuń duplikaty, ale zachowaj pierwszą instancję w Kutools for Excel
Usuń duplikaty, ale zachowaj pierwszą instancję z kodem VBA
Możesz uruchomić poniższy kod VBA, aby usunąć duplikaty, ale zachować pierwszą instancję w kolumnie.
1. naciśnij inny + F11 otworzyć Microsoft Visual Basic for Applications okno dialogowe.
2. w Microsoft Visual Basic for Applications okno dialogowe, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod do okna kodu.
Kod VBA: usuń duplikaty, ale zachowaj pierwszą instancję
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. naciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres, z którego chcesz usunąć duplikaty, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Teraz możesz zobaczyć wszystkie zduplikowane wiersze, z wyjątkiem tego, że pierwsze rekordy zostały usunięte z wybranego zakresu kolumn. Zobacz zrzut ekranu:
Usuń duplikaty, ale zachowaj pierwszą instancję w Kutools for Excel
Oprócz kodu VBA możesz użyć rozszerzenia Wybierz Zduplikowane i unikalne komórki użyteczność Kutools dla programu Excel dodatek do łatwego usuwania duplikatów, ale zachowaj pierwsze wystąpienia w programie Excel.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. Wybierz zakres, z którego chcesz usunąć duplikaty, ale zachowaj pierwsze wystąpienia. Następnie kliknij Kutools > Wybierz > Wybierz Zduplikowane i unikalne komórki.
2. w Wybierz Zduplikowane i unikalne komórki w oknie dialogowym wybierz opcję Duplikaty (z wyjątkiem pierwszego) opcję, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
3. Poniżej Wybierz Zduplikowane i unikalne komórki okno dialogowe, kliknij OK.
4. Teraz duplikaty są zaznaczone, z wyjątkiem pierwszych wystąpień, proszę nacisnąć Usuń klawisz, aby usunąć wybrane duplikaty.
Note: Jeśli chcesz usunąć zduplikowane wiersze, wystarczy sprawdzić Wybierz całe wiersze opcja w Wybierz Zduplikowane i unikalne komórki okno dialogowe, a następnie zastosuj Usuń polecenie menu prawego przycisku myszy, aby usunąć całe zduplikowane wiersze.
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
Usuń duplikaty, ale zachowaj pierwszą instancję w Kutools for Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!