Clasificación de posiciones clave del diccionario Vba

atenuar i amp, x amp, arr, brr(), str1$

Atenuar d como objeto

Establecer d = CreateObject("script diccionario")

Con tabla("estadísticas")

arr =. range("E3:H" & range("E65536").end(xlUp).row)

Para x=1 al límite inferior(arr)

str1 = arr ( x, 1)" | " amparr(x, 2) y amp" | " amparr(x, 3)

Si d no existe (str1), entonces

i. = i 1

ReDim Preserve brr(1 a 4, 1 a I)

brr(1, i) = arr(x, 1)

brr (2, i) = arr(x, 2)

brr(3, i) = arr(x, 3)

Terminará si...

brr(4, d(str1)) = brr(4, d(str1)), arr(x, 4)

Siguiente x

. rango ("K3"). Cambiar tamaño(UBound(brr, 2), 4) = Aplicación. Transponer

Termina con...

Conector final

Este es el código que deseas.