El diccionario Vba elimina duplicados y cuenta la cantidad.

¿Atenuado? ¿Cxrng? ¿Como qué? Alcance

¿Oscuro? ¿I? ¿Como qué? ¿dragón? ¿yo? ¿Como qué? Largo

¿Para qué? ¿Todos? ¿Cxrng? ¿existir? range("a4:A"? amp? range("a10000"). end(xlUp). fila)

if? CXrng. ¿valor? ¿Es gt? ""?Entonces

¿Yo? =?Yo? ?1

¿Y si? CXrng. ¿valor? ¿Por ejemplo? "*F*"? Entonces

¿yo? =?l? ?1

¿Fin? Si

¿Finalizar? Si

Entonces

¿Y si? ¿I? ¿Es gt? 0?entonces

rango("a3"). ¿valor? =?l? /?I

¿Fin? Si

¿Finalizar? Submarino