Colección de citas famosas - Slogan de motivación - Fusionar diccionario
Fusionar diccionario
Lo más conveniente para usted es utilizar un diccionario para responder esta pregunta. Conector final
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) p>
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