Diccionario 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

redimensionar(1, 3) = dividir(d, ", ")

entonces

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

Finalizar con...

Conector de terminal