Diccionario suma código vba

Acumule los mismos elementos en varias columnas ()

Dim dic, iStr como cadena

Establezca dic = CreateObject("Scripting. Dictionary》)

Con tabla activa

Para i = 1 a . end(xlUp)

iStr = .Cells(I,2)&","&Cells(I,3)

dic(iStr) = dic(iStr) + Celdas(i,4)

Entonces

Para cada d

n = n + 1

en el botón del centro de información del conductor. Resize(n, 6, 3) = Split(d, ","")

y luego

. , 9). resize(dic. count, 1) = WorksheetFunction Set (dic.items)

Finalizar con...

Finalizar conector