Comment extraire dynamiquement une liste de valeurs uniques d'une plage de colonnes dans Excel?

Pour une plage de colonnes dont les valeurs changent régulièrement, et vous devez toujours obtenir toutes les valeurs uniques de la plage, quelle que soit sa modification. Comment faire une liste dynamique de valeurs uniques? Cet article vous montrera comment y faire face.

Extraire dynamiquement une liste de valeurs uniques d'une plage de colonnes avec une formule
Extraire dynamiquement une liste de valeurs uniques à partir d'une plage de colonnes avec le code VBA

Extraire dynamiquement une liste de valeurs uniques d'une plage de colonnes avec une formule

Comme illustré ci-dessous, vous devez extraire dynamiquement une liste de valeurs uniques de la plage B2: B9. Veuillez essayer la formule matricielle suivante.

1. Sélectionnez une cellule vide telle que D2, entrez la formule ci-dessous et appuyez sur la touche Ctrl + Shift + Entrer touches simultanément. (B2: B9 est les données de la colonne dont vous souhaitez extraire les valeurs uniques, D1 est la cellule ci-dessus où se trouve votre formule)

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

2. Continuez à sélectionner la cellule D2, puis faites glisser la poignée de remplissage vers le bas pour obtenir toutes les valeurs uniques de la plage spécifiée.

Désormais, toutes les valeurs uniques de la plage de colonnes B2: B9 sont extraites. Lorsque les valeurs de cette plage ont changé, la liste de valeurs uniques sera immédiatement modifiée dynamiquement.

Extraire dynamiquement une liste de valeurs uniques à partir d'une plage de colonnes avec le code VBA

Vous pouvez également extraire une liste de valeurs uniques de manière dynamique à partir d'une plage de colonnes avec le code VBA suivant.

1. presse autre + F11 touches simultanément pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA ci-dessous dans le Module fenêtre.

Code VBA: extraire une liste de valeurs uniques d'une plage

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

Notes: Dans le code, D2 est la cellule dans laquelle vous localiserez la liste de valeurs uniques. Vous pouvez le modifier selon vos besoins.

3. Revenez à la feuille de calcul, cliquez sur insérer > Formes > Rectangulaire. Voir la capture d'écran:

4. Dessinez un rectangle dans votre feuille de calcul, puis entrez les mots que vous devez afficher dessus. Puis faites un clic droit dessus et sélectionnez Attribuer une macro dans le menu contextuel. dans le Attribuer une macro boîte de dialogue, sélectionnez le CréerListeUnique dans le Nom de la macro , puis cliquez sur le OK bouton. Voir la capture d'écran:

5. Cliquez maintenant sur le bouton rectangle, un Kutools for Excel s'affiche, sélectionnez la plage contenant les valeurs uniques que vous devez extraire, puis cliquez sur le OK .

À partir de maintenant, vous pouvez répéter l'étape 5 ci-dessus pour mettre à jour automatiquement la liste de valeurs uniques.

Articles connexes:

• Comment créer un calendrier mensuel dynamique dans Excel?
• Comment insérer une image ou une image dynamiquement dans une cellule en fonction de la valeur de la cellule dans Excel?
• Comment créer un lien hypertexte dynamique vers une autre feuille dans Excel?