¿Estadísticas de ciclo horizontal de Excel vba del mismo tipo de resumen multirregional?

De hecho, es un resumen en perspectiva, que generalmente utiliza programación de diccionario. El ejemplo de código VBA es el siguiente:

Texto del código:

Opción explícita

Sub x()

Dim o, arr, Yo y amperio Johnson & Johnson. , k, t

Establecer o = CreateObject("Script.Dictionary")

Estadísticas

arr = Zhang(1).Alcance de uso

Para i = 2 al límite inferior (arr)

Para j = 1 al límite inferior (arr, 2) paso 3

si arr (I, j) & lt ; >""y arr(I,j+1)<>""y arr(I,j+2)<>""Entonces

k = arr(I, j)&vbTab&arr( I,j+1)&vbTab&arr(I,j+2)

o(k)=o(k)+1

Terminará si...

Siguiente j

Siguiente yo

ReDim arr (1 a 1000, 1 a 4)

i = 0

Para cada k en o.keys

t = split(k, vbTab)

i = i + 1

p>

arr(I,1) = t (0)

arr(I,2) = t(1)

arr(I,3) = t( 2)

arr(I, 4) = o(k)

Siguiente k

Resultado de salida

hoja(2) .range("b2").resize(i,4) = llegada

end_join