Diccionario suma de varias columnas

Elementos idénticos de subcolumnas acumulativas()

Dim dic, iStr as string

set DIC = CreateObject("Scripting. Dictionary")

Con activo table

Para i = 1 a . end(xlUp)

iStr = amp"," amp I,2) y amp"," amp.cell(I,3)

DIC(iStr) = DIC(iStr) celda(I,4)

Luego

Para cada d en la clave del centro de información del conductor

n = n 1

celda(n, 6) = cambiar tamaño. dividir(d, ","")

luego

. , 9). resize(dic. Count, 1) = función de hoja de trabajo. dic.items)

Finalizar con...

Finalizar conector