Vba intercepta el código fuente

Al principio, no parecía haber ningún problema con el código. Déjame simplificarlo primero. Después de ejecutar, aparecerá la línea de marca amarilla incorrecta. ¡Capturas de pantalla para ayudarte a leerlo de nuevo!

¿Sub? SmartCopy()

¿Atenuado? sh1? ¿Como? ¿Hoja de trabajo? sh2? ¿Como? Hoja de trabajo

¿Configuración? sh1? =?Hoja de trabajo(1)? Hoja1

¿Configuración? sh2? =?Hoja de trabajo(2)? Hoja 2

¿Oscura? ¿sh1row? ¿Como? dragón,? ¿sh2row? ¿Como? ¿Largo

sh1row? =?sh1. rango ("A65536"). final (xlArriba). fila

sh2row? =?sh2. rango ("A65536"). final (xlArriba). Fila

¿Oscura? ¿Índice 2? ¿Como? Largo

¿Para qué? ¿Índice 2? =?2?¿Adónde ir? sh2row

¿Y si? (¿índice2? gt? 782)? Entonces

¿MsgBox? "¡No se pueden superar las 782 líneas!"

¿Ir a? 11

¿El fin? ¿Si

tenue? índice1? ¿Como? ¿Índice1 largo

? =?(índice2?-?2)?*?42? ?1?Máximo 782 filas de hoja2.

¿Y si? (sh2. celda(índice 2, 1)? lt gt? sh1. celda(índice 1, 3))? Celda(índice 2, 1).Fuente.Color? =?vbRed

Otros

sh2. celda(índice 2, 3).redimensionar(5)? =?sh1. celda (índice 1?? 1,? 2). Cambiar tamaño (5). ¿valor? Agregue código aquí.

sh2. celda(índice 2, 8).redimensionar(5)? =?sh1. celda (índice 2? ? 1, ? 2). cambiar tamaño (5). Valor

sh2. celda (índice 2, 13). ¿redimensionar (2)? =?sh1. celda (índice 3? ? 1, ? 2). cambiar tamaño (2). Valor Tenga en cuenta que Index3 no se ha definido antes.

¿Fin? ¿Y si

Siguiente?

¿11? Renunciar

¿Fin? Submarino