Extraiga datos de varias hojas de Excel en el mismo formato
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 p>
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) / p>
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 ~~~~~