¿Cómo contar el número de datos duplicados en Excel VBA?

Código del programa:

Efecto de implementación:

Texto del código:

Opción explícita

weightliftingstats ()

Dim arr,db,i & amp,k,v

set db = CreateObject("Scripting. Dictionary")

arr = Range( "a 1"). Rango actual

Para i = 2 al límite inferior(arr)

v = Trim(arr(I, 1))

k = Trim(arr(I, 2))

Si no existe db.(k), entonces db.Add k, CreateObject("Script. Dictionary")

db(k )(v) = Verdadero

Siguiente i

ReDim arr(1 a db. count, 1 a 2)

i = 0

Para cada k(db). clave

v = db(k). Contar

i = i + 1

arr(I, 1) = k

arr(I, 2) = v

Siguiente k

Rango ("d3"). resize(I, 2) = arr

Finalizar ajuste