Comment faire avancer le filter sur plusieurs plages

Je veux countr les valeurs uniques d'une colonne pour cela. J'ai d'abord utilisé un autofilter pour get les lignes correctes que je souhaite filterr.

Le résultat que j'ai assigné à une gamme utilisant

intersect(Used.range,range.specialcells(xlCellTypeVisible)) 

Cela m'a donné une indication de gamme (B10: B20, B75) donc c'est en fait 2 gammes B10: B20 et B75. Je ne peux donc pas appliquer directement un filter avancé sur celui-ci. Est-ce que quelqu'un sait comment faire pour atteindre cet objective?

J'ai pensé à split la gamme en deux séparés, mais je ne peux pas countr les valeurs uniques correctement, j'aurai un count d'une gamme et d'un count de l'autre mais il est possible qu'ils aient les mêmes valeurs. J'ai également pensé à mettre les valeurs dans un tableau, mais ce n'est pas un moyen très efficace de le faire, je pense.

• Remplir automatiquement jusqu'à la fin de la dernière rangée, countif, réglage de macro prêt
• Obtention d'une erreur byref lors du passage d'un tableau à une fonction
• L'invite de sauvegarde Excel non souhaitée lors de l'ouverture avec access vba
• Télécharger le file XLS en utilisant Spring MVC et Apache POI
• Je reçois "Unable to Parse Line" en essayant de download le file Excel à l'aide d'AutoIT

Merci.

• Importer une table d'access dans une autre database d'access en utilisant excel vba
• Boucle infinie lors de la collecte d'sets de données à partir de plusieurs feuilles de calcul
• Problème étrange avec le recalcul de la fonction personnalisée Excel
• Correspond à une gamme
• Positionnement précis des arrays (zones de tracé) dans Excel

 Sub Xepos() Dim N As Long, c As Collection Dim colid As Ssortingng, r As Range colid = "A" Set c = New Collection N = Cells(Rows.Count, colid).End(xlUp).Row On Error Resume Next For i = 2 To N Set r = Cells(i, colid) If r.EntireRow.Hidden = False Then v = r.Text c.Add v, CStr(v) End If Next i MsgBox c.Count End Sub