Por favor, ayúdenme con el código del diccionario VBA y cualquier profesor que lo conozca me dará algunos consejos.

Dim i&, x&, arr, brr(), str1$

Dim d As Object

Set d = CreateObject("diccionario de scripting ")

With Sheets("Estadísticas")

arr = .Range("E3:H" & .Range("E65536").End(xlUp).Row)

Para x = 1 a UBound(arr)

str1 = arr(x, 1) & "|" & arr(x, 2) & "|" , 3)

Si no d.exists(str1) Entonces

i = i + 1

ReDim Preserve brrr(1 a 4, 1 a i)

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

brrr(2, i) = arr(x. 2)

Si hay no d , 2)

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

Fin si

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

Siguiente x

.("K3").Resize(UBound(brrr, 2), 4 ) = Application.Transpose(brrr)

Terminar con

End Sub

Este es el código que desea