¿Cómo cuenta VBA el número de veces que aparece cada dato en una columna y muestra el nombre y el número de los datos en las otras dos columnas respectivamente? NOTA: Utilice VBA

Usando un diccionario como ejemplo, el código para calcular el número de veces que los datos de la columna A se muestran en las columnas C y D es el siguiente: set?db=createobject("scripting.dictionary")

for?i=1?to?activesheet.usedrange.rows.count

x=trim(cells(i,1))

db(x )=db(x )+1

siguiente?i

i=1

para?cada?x?in?db.keys

celdas( i,3)=x

celdas(i,4)=db(x)

i=i+1

¿siguiente?