Red de conocimiento informático - Aprendizaje de código fuente - Extraiga datos de varias hojas de Excel en el mismo formato

Extraiga datos de varias hojas de Excel en el mismo formato

Anfitrión, creo que lo que estás haciendo es factible. ¡Un monje no se atrevería a actuar precipitadamente, y yo, un monje, no me atrevería a actuar precipitadamente!

Si no quieres dejar pasar esta oportunidad y quiero probarla, por favor HOLA mi mensaje.

Respondido por: lxlzmh2002-Gran Mago Nivel 8 2009-8-19 04:40

================== = ================================================== = ====

El cartel original, hoy ayudé a alguien a escribir un programa VBA para fusionar varias tablas. De repente recordé que había visto publicaciones de ayuda similares, así que encontré tu publicación y la respondí nuevamente:

El código VBA es el siguiente:

Dim sht As Worksheet

Dim rs As Long, js As Long, ds As Long

Atenuar i como entero

En caso de error, reanudar siguiente

Establecer sht = Sheets("Resumen")

Si Err.Name = "Resumen"

End If

Sheets(2).Range("1:1").Copy Sheets("Summary").Range("A1")

For i = 2 a Hojas .Count

ds = Hojas("Resumen").).End(xlUp).Fila + 1

rs = Hojas(i).Range("A65536" ).End (xlUp).Row

js = Sheets(i).Range("A1").End(xlToRight).Column

Con Sheets(i)

.Select

.Range(Cells(2, 1), Cells(rs, js)).Copiar hojas("Resumen").

Terminar con

Siguiente

Hojas(" Seleccionar

El código anterior se utiliza de la siguiente manera:

Grabar macro: Menú "Herramientas"->Macro ->Grabar macro)-> Nombre de la macro en "Nombre de macro"->Establecer tecla de acceso directo, ingrese una letra en "Tecla de acceso directo"->Aceptar, iniciar la grabación de la macro. Después de iniciar la grabación, puede presionar directamente el botón de detener y luego editar la macro (Herramientas->Macro->Macro (M)->Seleccione la macro recién creada->Haga clic en el botón "Editar" a la derecha->Ingresar macro Interfaz de edición -> Presione el botón "Editar" -> Aceptar; elimine todo entre Sub XXX y Finalizar Sub -> Luego pegue el código del programa anterior -> Presione el botón "Guardar" en la barra de herramientas -> menú "Archivo" - >Cerrar y regresar a MicorSoft Excel

Ejecutar macro: Simplemente configure la tecla de acceso directo (Ctrl+la letra), o a través del menú "Herramientas"->Macro->Macro (M)->Nombre de macro en la ventana Seleccione y presione el botón "Ejecutar" para ejecutar la macro.

============================================ = ========================

Descripción de la función de este código VBA:

1. Ejecutar VBA Después del código, el programa en sí se agregará a la hoja de trabajo en un programa llamado "Resumen". hoja.

2. Utilice la primera fila de la hoja1 (no tiene sentido llamarla hoja1, el programa sabrá el nombre) como la primera fila de la tabla "resumen".

3. Luego, en la hoja de trabajo, excepto la tabla "Resumen", agregue todas las filas y columnas a la tabla "Resumen" comenzando desde la segunda fila (la primera fila generalmente se considera el título)

4. El proceso de agregar es equivalente a copiar y pegar, pero es mucho más rápido que copiar y pegar manualmente. Se puede decir que se completa en un instante. Y si usa la tecla de acceso directo para ejecutarlo una vez, todas las hojas de trabajo se resumirán una vez.

Si funciona o no, lo sabrás después de probarlo. Si tiene alguna pregunta sobre el uso de este código, por favor Hola ~~~~~