Transposición de matriz de diccionario

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"). ?

seleccionar ?"

[a1] ?k? ")? rng2