Jak usunąć unikalne wartości z kolumny w programie Excel?
Zwykle większość z nas chce usunąć zduplikowane wartości z kolumny, ale czasami możesz chcieć usunąć unikalne wartości, które pojawiają się tylko raz w kolumnie. W tym samouczku omówiono sztuczki umożliwiające usuwanie unikatowych wartości tylko z kolumny w programie Excel.
Usuń niepotrzebne wartości za pomocą VBA w programie Excel
Usuń niepotrzebne wartości za pomocą Kutools for Excel
Usuń niepotrzebne wartości za pomocą VBA w programie Excel
Korzystanie z VBA może szybko usunąć wszystkie unikalne wartości z jednej kolumny.
1. naciśnij Alt + F11 wyświetlić Microsoft Visual Basic for Applications okno.
2. W oknie kliknij wstawka > Moduł aby wyświetlić nowe okno modułu, a następnie skopiuj następujący kod VBA do okna modułu.
VBA: Usuń unikalne wartości z kolumny.
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. kliknij run przycisk, aby uruchomić kod VBA, a Kutools dla programu Excel pojawi się okno dialogowe z wyborem zakresu do pracy. Zobacz zrzut ekranu:
4. kliknij OK, a wszystkie unikatowe wartości zostaną usunięte.
Usuń niepotrzebne wartości za pomocą Kutools for Excel
Jeśli nie znasz VBA, możesz rozważyć użycie Kutools dla programu Excel's Wybierz zduplikowane i unikalne komórki, aby usunąć unikalne wartości w programie Excel.
Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz
1. Wybierz kolumnę, z której chcesz usunąć unikatowe wartości, i kliknij Kutools > Wybierz Narzędzia > Wybierz Zduplikowane i unikalne komórki. Zobacz zrzut ekranu:
2. W wyskakującym oknie dialogowym zaznacz Tylko unikalne wartości i kliknij Ok, a następnie zamknij to okno dialogowe. Zobacz zrzut ekranu:
3. Następnie wszystkie wartości pojawiają się tylko raz zostały wybrane. Kliknij prawym przyciskiem myszy, aby kliknąć Usuń w menu kontekstowym. Zobacz zrzut ekranu:
4. w Usuń zaznacz opcję Cały wiersz i kliknij OK. Zobacz zrzut ekranu:
Teraz możesz zobaczyć, że unikalne wartości zostały usunięte.
Wskazówka: Jeśli chcesz tylko usunąć zawartość komórki, możesz kliknąć Wyczyść zawartość z menu kontekstowego w kroku 3.
Względne artykuły:
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!