Jak dynamicky extrahovat seznam jedinečných hodnot z rozsahu sloupců v aplikaci Excel?
Pro rozsah sloupců, jejichž hodnoty se pravidelně mění, a vždy musíte získat všechny jedinečné hodnoty z rozsahu bez ohledu na to, jak se změnil. Jak vytvořit dynamický seznam jedinečných hodnot? Tento článek vám ukáže, jak s tím zacházet.
Dynamicky extrahujte seznam jedinečných hodnot z rozsahu sloupců pomocí vzorce
Dynamicky extrahujte seznam jedinečných hodnot z rozsahu sloupců pomocí kódu VBA
Dynamicky extrahujte seznam jedinečných hodnot z rozsahu sloupců pomocí vzorce
Jak je ukázáno níže, musíte dynamicky extrahovat seznam jedinečných hodnot z rozsahu B2: B9. Vyzkoušejte následující vzorec pole.
1. Vyberte prázdnou buňku, například D2, zadejte do ní následující vzorec a stiskněte Ctrl + směna + vstoupit současně. (B2: B9 jsou data sloupce, ze kterých chcete extrahovat jedinečné hodnoty, D1 je buňka výše, kde se nachází váš vzorec)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Pokračujte ve výběru buňky D2, potom přetáhněte rukojeť výplně dolů, abyste získali všechny jedinečné hodnoty ze zadaného rozsahu.
Nyní jsou extrahovány všechny jedinečné hodnoty v rozsahu sloupců B2: B9. Když se hodnoty v tomto rozsahu změní, seznam jedinečných hodnot se okamžitě dynamicky změní.
Snadno vyberte a zvýrazněte všechny jedinečné hodnoty v rozsahu v aplikaci Excel:
Projekt Vyberte Duplikovat a jedinečné buňky užitečnost Kutools pro Excel vám pomůže snadno vybrat a zvýraznit všechny jedinečné hodnoty (včetně prvních duplikátů) nebo jedinečné hodnoty, které se zobrazí pouze jednou, stejně jako duplicitní hodnoty podle potřeby, jak je uvedeno níže.
Stáhněte si Kutools pro Excel nyní! (30denní bezplatná trasa)
Dynamicky extrahujte seznam jedinečných hodnot z rozsahu sloupců pomocí kódu VBA
Seznam jedinečných hodnot můžete také extrahovat dynamicky z rozsahu sloupců pomocí následujícího kódu VBA.
1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte a vložte níže uvedený kód VBA do Modul okno.
Kód VBA: Extrahuje seznam jedinečných hodnot z rozsahu
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
Poznámka: V kódu je D2 buňka, ve které najdete seznam jedinečných hodnot. Můžete to změnit podle potřeby.
3. Vraťte se na list a klikněte na Vložit > Tvary > Obdélník. Viz snímek obrazovky:
4. Nakreslete do listu obdélník a zadejte některá slova, která na něm potřebujete zobrazit. Poté na něj klikněte pravým tlačítkem a vyberte Přiřadit makro z nabídky pravého tlačítka myši. V Přiřadit makro dialogové okno vyberte VytvořteUniqueList v Název makra a poté klikněte na OK knoflík. Viz screenshot:
5. Nyní klikněte na tlačítko obdélníku, a Kutools pro Excel Zobrazí se dialogové okno, vyberte rozsah obsahující jedinečné hodnoty, které potřebujete extrahovat, a poté klikněte na OK .
Od této chvíle můžete opakovat výše uvedený krok 5 a automaticky aktualizovat jedinečný seznam hodnot.
Související články:
- Jak vytvořit dynamický měsíční kalendář v aplikaci Excel?
- Jak vložit obrázek nebo obrázek dynamicky do buňky na základě hodnoty buňky v aplikaci Excel?
- Jak vytvořit dynamický hypertextový odkaz na jiný list v aplikaci 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!