excel des valeurs uniques

Question

J'ai vu de nombreuses réponses à ces questions sur Internet (et sur stackoverflow) quelque chose ne fonctionne pas lorsque j'essaie la solution que tout le monde semble suggérer. Fondamentalement, j'ai une liste de valeurs (disons dans la ligne 24, colonnes C à U), et je voudrais créer une formule (plage) dans la rangée 25, qui me donnerait les valeurs distinctes des valeurs dans la gamme C24: U24.

J'ai utilisé la formule ci-dessous

=INDEX($C$24:$U24,MATCH(0,COUNTIF($B$25:B25,$C$24:$U$24),0)) 

Il ne fonctionne pas, il est juste de retour le 1er élément de la liste.

Answer 1

Vous devez toujours copier-coller la formule dans plusieurs cellules. Dans votre exemple, $B$25 serait la première cellule (à cause de cette partie de la formule: $B$25:B25). Lorsque vous faites glisser cette formule, elle vérifie si la valeur est déjà dans $B$25:B26 et ainsi de suite.

Answer 2

Je sais que vous n'avez pas demandé une fonction VBA, mais au cas où certains lecteurs voudraient savoir comment faire cela via VBA, voici la fonction. Il prend une gamme de cellules et crée une chaîne d'éléments uniques seulement. Vous pouvez également ajouter un séparateur (comme si vous vouliez les séparer par des virgules).

Function UniqueList(ByVal cell_range As range, _ 
        Optional ByVal seperator As String = "") As String 

Dim vArray As Variant 
Dim result As String 
Dim i As Long, j As Long 
Dim v As Variant 
Dim dictionary As Object 
Set dictionary = CreateObject("scripting.dictionary") 

vArray = cell_range.Value 

For i = 1 To UBound(vArray, 1) 
    For j = 1 To UBound(vArray, 2) 
     If Len(vArray(i, j)) <> 0 Then 
      dictionary(vArray(i, j)) = 1 
     End If 
    Next 
Next 

For Each v In dictionary 
    result = result & (seperator & v) 
Next 

If Len(result) <> 0 Then 
    result = Right$(result, Len(result) - Len(seperator)) 
End If 

UniqueList = result 

End Function 

Pour ceux qui prennent soin: Il dumps les valeurs des cellules dans un tableau de variante, puis un dictionnaire Remplit avec chacun (sauf les cellules vides). Puisque les dictionnaires ne contiennent que des clés uniques, cela désherbe les dupes. Ensuite, je fais une boucle dans le dictionnaire et crée une chaîne avec chaque entrée. Je nettoie le séparateur supplémentaire à la fin de sorte que la liste est propre.