¿Problema de comparación de una sola columna en EXCEL VBA?

Atenuar a como rango, p como rango, i, j como doble, r como doble, ci() como variable

Mostrar sh como hoja de trabajo

Aplicar. ScreenUpdating = False

Para cada sh en el libro activo. Hoja de trabajo

SchillingActivity

r = range("e65535"). Fin (3). Fila 8

Rango("P9: W" & r 8). Borrar

ReDim ci (1 a r, 1 a 8) como variante

Para i = 1 a 8

Para j = 1 a r

Si celda (1, 15 i) = celda (8 j, 4 i), entonces ci (j, I) = celda (1, 15 I)

Siguiente aj

siguiente i

rango("p9:w" amp; r 8 = ci

siguiente sh

papel ("Roto"). Activar

Aplicar ScreenUpdating = Ture

Finalizar conector

************** ****

Si la asignación directa demora un poco, probé la matriz y tomó 57 milisegundos, y la asignación directa tomó 93 milisegundos.