Jak dynamicznie wyodrębnić listę unikatowych wartości z zakresu kolumn w programie Excel?
W przypadku zakresu kolumn, w którym wartości zmieniają się regularnie i zawsze musisz pobrać wszystkie unikalne wartości z zakresu, niezależnie od tego, jak się zmienił. Jak stworzyć dynamiczną listę unikalnych wartości? Ten artykuł pokaże Ci, jak sobie z tym poradzić.
Dynamicznie wyodrębnij listę unikatowych wartości z zakresu kolumn za pomocą formuły
Dynamicznie wyodrębnij listę unikatowych wartości z zakresu kolumn za pomocą kodu VBA
Dynamicznie wyodrębnij listę unikatowych wartości z zakresu kolumn za pomocą formuły
Jak pokazano na poniższym zrzucie ekranu, musisz dynamicznie wyodrębnić listę unikalnych wartości z zakresu B2: B9. Wypróbuj następującą formułę tablicową.
1. Wybierz pustą komórkę, taką jak D2, wprowadź do niej poniższą formułę i naciśnij Ctrl + Shift + Wchodzę klucze jednocześnie. (B2: B9 to dane kolumny, które chcesz wyodrębnić unikalne wartości, D1 to powyższa komórka, w której znajduje się twoja formuła)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Kontynuuj wybieranie komórki D2, a następnie przeciągnij uchwyt wypełnienia w dół, aby uzyskać wszystkie unikalne wartości z określonego zakresu.
Teraz wszystkie unikalne wartości w zakresie kolumn B2: B9 są wyodrębniane. Gdy wartości w tym zakresie ulegną zmianie, lista unikatowych wartości zostanie natychmiast zmieniona dynamicznie.
Z łatwością wybieraj i zaznaczaj wszystkie unikalne wartości w zakresie w programie Excel:
Połączenia Wybierz Zduplikowane i unikalne komórki użyteczność Kutools dla programu Excel może pomóc ci łatwo wybrać i wyróżnić wszystkie unikalne wartości (w tym pierwsze duplikaty) lub unikalne wartości, które pojawiają się tylko raz, a także zduplikowane wartości, jak potrzebujesz, jak pokazano na zrzucie ekranu.
Pobierz teraz Kutools dla Excela! (30-dniowy darmowy szlak)
Dynamicznie wyodrębnij listę unikatowych wartości z zakresu kolumn za pomocą kodu VBA
Możesz również wyodrębnić listę unikatowych wartości dynamicznie z zakresu kolumn za pomocą następującego kodu VBA.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do pliku Moduł okno.
Kod VBA: wyodrębnij listę unikalnych wartości z zakresu
Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
End If
Next
End Sub
Note: W kodzie D2 to komórka, w której znajduje się lista unikatowych wartości. Możesz to zmienić według potrzeb.
3. Wróć do arkusza, kliknij wstawka > Kształty > Prostokąt. Zobacz zrzut ekranu:
4. Narysuj prostokąt w arkuszu, a następnie wprowadź kilka słów, które chcesz na nim wyświetlić. Następnie kliknij go prawym przyciskiem myszy i wybierz Przypisz makro z menu po kliknięciu prawym przyciskiem myszy. w Przypisz makro w oknie dialogowym wybierz opcję Utwórz unikalną listę Nazwa makra a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
5. Teraz kliknij przycisk prostokąta, a Kutools dla programu Excel pojawi się okno dialogowe, wybierz zakres zawierający unikalne wartości, które chcesz wyodrębnić, a następnie kliknij OK przycisk.
Od teraz możesz powtórzyć powyższy krok 5, aby automatycznie zaktualizować listę unikatowych wartości.
Powiązane artykuły:
- Jak utworzyć dynamiczny kalendarz miesięczny w programie Excel?
- Jak dynamicznie wstawiać obraz lub obraz do komórki na podstawie wartości komórki w programie Excel?
- Jak utworzyć dynamiczne hiperłącze do innego arkusza w programie 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!