Consulta de tablas múltiples EXCEL VBA

Suponiendo que hay y hay solo un número en la columna A de la hoja 2-hoja 10 que es el mismo que el número en la columna A de la hoja 1, y suponiendo que todas las tablas no tienen filas en blanco, puede usar el siguiente programa VBA para implementar múltiples consulta de tabla:

Sub? Consulta de varias tablas()

¿Atenuada? trapo1? ¿Como qué? alcance,? ¿Raj? ¿Como qué? Alcance

¿Oscuro? ¿was? Hoja de trabajo

¿Oscuro? ¿I? ¿Como qué? Entero,? j? ¿Como qué? Enteros

¿Para qué? ¿Todos? trapo1? ¿Está ahí? Zhang(1). Rango("A:A")

¿Si? trapo1 trazo? ¿gt? 1?Entonces

¿Y si? valor rag1? =?""?¿Y luego qué? ¿abandonar? ¿Para

¿Para qué? ¿I? =?2?¿Adónde ir? hoja. Contar

¿Para qué? ¿Todos? ¿Raj? ¿Está ahí? Hojas (1). Rango("A:A")

¿Si? Raj. ¿Plan? ¿gt? 1?Entonces

¿Y si? Raj. ¿valor? =?""?¿Y luego qué? ¿abandonar? Para

¿Y si? Raj. ¿valor? =?rag1valor? Entonces

¿Para qué? j? =?1?¿Adónde ir? Siete

desplazamiento rag1 (0, ?j). ¿valor? =?Raj. desplazamiento (0,? j). Valor

¿Siguiente? j

¿Ir a? l

¿Fin? Si

¿Finalizar? Si

Entonces

¿Siguiente? Yo

¿Terminar? Si

l:

Entonces

¿terminar? Submarino