Clasificación de contenidos EXCEL VBA

Sub?s()

Set?d?=?CreateObject("scripting.dictionary")

For?i?=?0?To? 9

d(CStr(i))?=?0

Siguiente

Para?i?=?2?A?4

For?j?=?10?To?16

a?=?Cells(i,?j).Text

n?=?Len(a) p>

Para?k?=?1?A?n

b?=?Mid(a,?k,?1)

d(b) ?= ?d(b)?+?1

Siguiente

Siguiente

Siguiente

i?=?10

¿Do?While?d.Count?>?0

k?=?-1

Para?Cada?a?In?d.keys

Si?d(a)?>?k?Entonces

k?=?d(a)

b?=?a

Fin ?Si

Siguiente

Celdas(14,?i)?=?b

Celdas(15,?i)?=?d(b)? &? "Veces"

i?=?i?+?1

d.Remove?(b)

Bucle

¿Fin? Sub