Fusionar diccionario

Lo más conveniente para usted es utilizar un diccionario para responder esta pregunta.

subtest()

dim arr,brr();,i&,d as object,str1$

set d = createojbedt("scripting .dictionary" )

arr = range("a 1:C" range("A65536").end(xlup).row)

redim brr(1 a 3, 1 a 1)

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

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

Si d. no existe (str1), entonces

i=i+1

d (str 1) = I

redim preserve brr(1 a 3, 1 a I)

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

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

Terminará si...

brr (1, d (str 1) = brr (1, d (str 1)) + arr (x, 1)

Siguiente x

Range("e1").resize(ubound(BRR,2),3) = aplicación. Cambie la dirección de la celda a la ubicación que desea escribir

Conector final