Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo almacenar datos de varias filas y columnas en una matriz en VBA y usar un diccionario para implementar la paginación?

¿Cómo almacenar datos de varias filas y columnas en una matriz en VBA y usar un diccionario para implementar la paginación?

Sub CreateTabTwo2()

Atenuar cJG como rango

Atenuar c1 como rango, c2 como rango, rng1 como rango, rngZY como rango, rngZ como rango, rngY como rango

Atenuar i &, r&, r1&, rZ&, rF&, rFf&, irS&, pN, pNs&

Atenuar Arr1, d1, d2, rs, tmp, tmp2

Atenuar iTimer

iTimer = Temporizador

Application.p>

Arr1 = .Cells(1, 1).Resize(.Range("A65536").End (xlUp).Row + 1).CreateObject("Scripting.Dictionary")

Establecer d2 = CreateObject("Scripting.Dictionary")

r = LBound(Arr1, 1) + 1

tmp = Izquierda(Arr1 (r, 1), 18)

d1(r) = tmp

tmp2 = tmp

d2(r) = Derecha(Arr1(r, 1), 3)

Para i = r + 1 A UBound(Arr1, 1)

tmp = Izquierda(Arr1 (i, 1), 18 )

' If MsgBox(d1.Count & vbCrLf & tmp & vbCrLf & tmp2, vbOKCancel) <> vbOK Then GoTo 1000

If tmp <> tmp2 Entonces d1(i) = tmp: tmp2 = tmp

d2(i) = Derecha(Arr1(i, 1), 3)

Terminar con

Application..StatusBar = "Ajustando el formato, espere..."

Application.ScreenUpdating = False

Con Sheet6

... .........

He respondido preguntas similares antes. Hola, te daré QQ y una respuesta detallada.