Hur extraherar man dynamiskt en lista med unika värden från ett kolumnområde i Excel?
För ett kolumnintervall som värdena ändras regelbundet, och du måste alltid hämta alla unika värden från intervallet oavsett hur det förändrades. Hur gör man en dynamisk lista över unika värden? Den här artikeln visar hur du hanterar det.
Extrahera dynamiskt en lista med unika värden från ett kolumnintervall med formel
Extrahera dynamiskt en lista med unika värden från ett kolumnintervall med VBA-kod
Extrahera dynamiskt en lista med unika värden från ett kolumnintervall med formel
Som bilden nedan visas måste du dynamiskt extrahera en lista med unika värden från intervall B2: B9. Försök med följande arrayformel.
1. Välj en tom cell som D2, ange nedanstående formel i den och tryck på ctrl + shift + ange samtidigt. (B2: B9 är kolumndata som du vill extrahera de unika värdena, D1 är ovanstående cell där din formel finns)
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")
2. Fortsätt att välja cell D2 och dra sedan ner Fill Handle för att få alla unika värden från det angivna intervallet.
Nu extraheras alla unika värden i kolumnområde B2: B9. När värden i detta intervall ändras kommer den unika värdelistan att ändras direkt.
Välj enkelt och markera alla unika värden i ett intervall i Excel:
Smakämnen Välj Duplicera och unika celler nytta av Kutools för Excel kan hjälpa dig att enkelt markera och markera alla unika värden (inkludera de första dubbletterna) eller de unika värdena som bara visas en gång, samt duplicera värden som du behöver, som visas nedan.
Ladda ner Kutools för Excel nu! (30 dagars gratis spår)
Extrahera dynamiskt en lista med unika värden från ett kolumnintervall med VBA-kod
Du kan också extrahera en lista med unika värden dynamiskt från ett kolumnområde med följande VBA-kod.
1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan och klistra in nedanstående VBA-kod i Modulerna fönster.
VBA-kod: Extrahera en lista med unika värden från ett intervall
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
Anmärkningar: I koden är D2 cellen som du hittar den unika värdelistan. Du kan ändra det efter behov.
3. Gå tillbaka till kalkylbladet, klicka Insert > Former > rektangel. Se skärmdump:
4. Rita en rektangel i kalkylbladet och ange sedan några ord som du behöver visa på det. Högerklicka sedan på den och välj Tilldela makro från högerklickmenyn. I Tilldela makro dialogrutan väljer du Skapa UniqueList i Makronamn och klicka sedan på OK knapp. Se skärmdump:
5. Klicka nu på rektangelknappen, a Kutools för Excel dialogrutan dyker upp, välj intervallet som innehåller unika värden du behöver extrahera och klicka sedan på OK knapp.
Från och med nu kan du upprepa steg 5 ovan för att uppdatera den unika värdelistan automatiskt.
Relaterade artiklar:
- Hur skapar jag en dynamisk månadskalender i Excel?
- Hur infogar jag bild eller bild dynamiskt i cellen baserat på cellvärde i Excel?
- Hur skapar man dynamisk hyperlänk till ett annat ark i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!