Hvordan udtrækkes en liste med unikke værdier dynamisk fra et kolonneområde i Excel?
For et kolonneområde, hvor værdierne ændres regelmæssigt, og du altid har brug for at få alle de unikke værdier fra området, uanset hvordan det ændrede sig. Hvordan laver man en dynamisk liste over unikke værdier? Denne artikel viser dig, hvordan du håndterer det.
Uddrag dynamisk en liste over unikke værdier fra et kolonneområde med formlen
Uddrag dynamisk en liste over unikke værdier fra et kolonneområde med VBA-kode
Uddrag dynamisk en liste over unikke værdier fra et kolonneområde med formlen
Som vist nedenstående skærmbillede skal du dynamisk udtrække en liste over unikke værdier fra område B2: B9. Prøv venligst følgende matrixformel.
1. Vælg en tom celle, f.eks. D2, indtast nedenstående formel i den, og tryk på Ctrl + Flytte + Indtast taster samtidigt. (B2: B9 er de søjledata, som du vil udtrække de unikke værdier, D1 er ovenstående celle, hvor din formel er placeret)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Bliv ved med at vælge celle D2, og træk derefter udfyldningshåndtaget ned for at få alle unikke værdier fra det angivne interval.
Nu ekstraheres alle unikke værdier i kolonneområde B2: B9. Når værdier i dette interval ændres, ændres listen over unikke værdier med det samme.
Vælg og fremhæv nemt alle unikke værdier i et interval i Excel:
Vælg Duplicate & Unique Cells nytte af Kutools til Excel kan hjælpe dig med let at vælge og fremhæve alle unikke værdier (inkludere de første duplikater) eller de unikke værdier, der kun vises en gang, samt duplikere værdier, som du har brug for, som vist nedenstående skærmbillede.
Download Kutools til Excel nu! (30-dages gratis spor)
Uddrag dynamisk en liste over unikke værdier fra et kolonneområde med VBA-kode
Du kan også udtrække en liste over unikke værdier dynamisk fra et kolonneområde med følgende VBA-kode.
1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i Moduler vindue.
VBA-kode: Uddrag en liste over unikke værdier fra et interval
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
Bemærk: I koden er D2 den celle, du finder den unikke værdiliste. Du kan ændre det efter behov.
3. Gå tilbage til regnearket, klik indsatte > Former > rektangel. Se skærmbillede:
4. Tegn et rektangel i dit regneark, og indtast derefter nogle ord, du skal have vist på det. Højreklik derefter på den, og vælg Tildel makro fra højreklikmenuen. I Tildel makro dialogboksen skal du vælge Opret en unik liste i Makronavn og klik derefter på OK knap. Se skærmbillede:
5. Klik nu på rektangelknappen, a Kutools til Excel dialogboksen dukker op, skal du vælge det interval, der indeholder unikke værdier, du skal udtrække, og klik derefter på OK .
Fra nu af kan du gentage ovenstående trin 5 for automatisk at opdatere den unikke værdiliste.
Relaterede artikler:
- Hvordan oprettes en dynamisk månedskalender i Excel?
- Hvordan indsættes billede eller billede dynamisk i celle baseret på celleværdi i Excel?
- Hvordan oprettes dynamisk hyperlink til et andet ark i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!