Jak usunąć duplikaty, ale zachować pozostałe wartości wierszy w programie Excel?
W programie Excel usunie wszystkie zduplikowane wartości i przejdzie w górę po zastosowaniu funkcji Usuń duplikaty, jak pokazano na zrzucie ekranu 1. Jednak w niektórych przypadkach możesz chcieć usunąć duplikaty, ale zachowaj pozostałe wartości wierszy, jak pokazano na zrzucie ekranu 2. Teraz w tym przypadku przedstawię kilka sztuczek dotyczących usuwania duplikatów, ale pozostawiam resztę w Excelu.
Usuń duplikaty, ale zachowaj pozostałe wartości wierszy za pomocą filtru (3 kroki)
Usuń duplikaty, ale zachowaj pozostałe wartości wierszy za pomocą VBA (4 kroki)
Usuń duplikaty, ale zachowaj pozostałe wartości wierszy za pomocą Kutools for Excel (Kroki 2)
Usuń duplikaty, ale zachowaj pozostałe wartości wierszy za pomocą filtru
Dzięki formule i funkcji Filtruj możesz szybko usunąć duplikaty, ale odpocząć.
1. Wybierz pustą komórkę obok zakresu danych, na przykład D2, wpisz formułę = A3 = A2, przeciągnij uchwyt automatycznego wypełniania w dół do potrzebnych komórek. Zobacz zrzut ekranu:
2. Zaznacz cały zakres danych, w tym komórkę z formułą, i kliknij Dane > FILTRY umożliwić FILTRY funkcjonować. Zobacz zrzut ekranu:
3. Kliknij ikonę Ikona filtra w kolumnie D (kolumna z formułą) i sprawdź TurE z rozwijanej listy, zobacz zrzut ekranu:
4. kliknij OK, a następnie listę wszystkich duplikatów i wybierz wszystkie zduplikowane wartości, naciśnij Usuń klucz, aby je usunąć. Zobacz zrzut ekranu:
5. kliknij Dane > FILTRY wyłączyć FILTRYi usuń formuły według potrzeb. Możesz zobaczyć, że wszystkie duplikaty zostały usunięte, a pozostałe wartości są zachowane w wierszu.
Usuń duplikaty, ale zachowaj pozostałe wartości wierszy za pomocą VBA
W programie Excel istnieje kod VBA, który również może usuwać duplikaty, ale zachowuje pozostałe wartości wierszy.
1. naciśnij Alt + F11 klawisze do wyświetlenia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > modułei wklej poniższy kod do pliku Moduł.
VBA: Usuń duplikaty, ale zachowaj pozostałe wartości wierszy
Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918
Dim xRow As Long
Dim xCol As Long
Dim xrg As Range
Dim xl As Long
On Error Resume Next
Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
xRow = xrg.Rows.Count + xrg.Row - 1
xCol = xrg.Column
'MsgBox xRow & ":" & xCol
Application.ScreenUpdating = False
For xl = xRow To 2 Step -1
If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
Cells(xl, xCol) = ""
End If
Next xl
Application.ScreenUpdating = True
End Sub
3. naciśnij F5 aby uruchomić kod, pojawi się okno dialogowe przypominające o wybraniu zakresu, z którego mają zostać usunięte zduplikowane wartości. Zobacz zrzut ekranu:
4. kliknij OK, teraz zduplikowane wartości zostały usunięte z zaznaczenia i pozostawiono puste komórki.
Usuń duplikaty, ale zachowaj pozostałe wartości wierszy za pomocą Kutools for Excel
Jeśli Kutools dla Excel - zainstalowane poręczne i potężne narzędzie, można szybko usunąć duplikaty, ale zachować resztę lub wartości wierszy na dwa sposoby.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności :(Bezpłatne pobieranie Kutools dla programu Excel teraz!)
Metoda 1 Scal te same komórki (2 kroki)
1. Wybierz zduplikowane wartości, kliknij Kutools > Połącz i podziel > Scal te same komórki. Zobacz zrzut ekranu:
2. Następnie zduplikowane wartości zostały scalone w jedną komórkę. I kliknij Strona główna > Scal i wyśrodkuj > Rozdziel komórki, aby je podzielić. Zobacz zrzut ekranu:
Teraz wynik został przedstawiony jako:
Metoda 2 Wybierz zduplikowane i unikalne komórki (4 kroki)
1. Wybierz listę danych, z których chcesz usunąć duplikaty, i kliknij Kutools > Wybierz > Wybierz Zduplikowane i unikalne komórki. Zobacz zrzut ekranu:
2. w Wybierz Zduplikowane i unikalne komórki okno dialogowe, sprawdź Duplikaty (z wyjątkiem pierwszego) opcja w Zasada Sekcja. Zobacz zrzut ekranu:
3. kliknij Ok, pojawi się okno dialogowe przypominające o liczbie wybranych duplikatów, kliknij OK zamknąć to. Zobacz zrzut ekranu:
4. Następnie naciśnij Usuń klucz, aby usunąć wybrane zduplikowane wartości.
Usuń duplikaty, ale zachowaj resztę rzędu
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!