Problemas de Excel, ¡expertos, por favor vengan!

Si los datos de la Tabla 1 están en A1:A4, hay 10 filas. Los datos de la Tabla 2 están en A1:A7 y tienen 50 filas. Luego, el siguiente código puede colocar el contenido encontrado en A1:A4 de la Tabla 3.

Public Sub find()

Para i = 1 a 10

Para j = 1 a 50

Si hoja1.Celdas( i, 1) = hoja2.Celdas(j, 7) y hoja1.Celdas(i, 2) = hoja2.Celdas(j, 3) y hoja1.Celdas(i, 3) = hoja2.Celdas(j, 4) y hoja1.Cells(i, 4) = hoja2.Cells(j, 5) Entonces

Hoja1.Rows(i).Copiar Hoja3.Rows(i)

Finalizar si p>

Siguiente j

Siguiente i

End Sub

Simplemente modifíquelo de acuerdo con su situación real.

Presiona ALT F11 para abrir el editor VBA, inserta un módulo, coloca el código en él, detiene el cursor en el medio del código y presiona F5 para ejecutar.