Matriz de diccionario por columnas

set d = CreateObject("scripting . diccionario")"

¿para I = 1 a UBound (RNG)'? Royal Never Give Up (Royal Never Give Up Esports Club)

d (RNG(I,1) = RNG(I,2)'?rng?

Siguiente I

Dibujo("CAD"). Seleccione ?"CAD"

rng1 = range([a2],[e6000]).end(xlUp))'? rng1

k = k+1'

ReDim Preserve arr (1 a 6, 1 a k)

arr (1, k) = RNG 1 ( l,1)

arr(2,k) = RNG 1(l,2)

arr(3,k) = RNG 1(l,3)

arr(4,k) = RNG 1(l,4)

arr(5 ,k) = d(RNG 1(l,1))

arr( 6,k) = RNG 1(l,5)'?

Siguiente l

rango("g2") valor = ":"&k&" ?"g2?

Hoja de trabajo("").Select?""

[a1].resize( k, 6) = aplicación.transpose(arr)'? arr? a1?

rng2 = a1?