Saltar al contenido principal

¿Cómo fusionar o consolidar hojas de trabajo o libros de trabajo en una sola hoja de trabajo?

En nuestro trabajo diario, podemos encontrarnos con un problema que fusiona cientos de hojas o libros de trabajo en una sola hoja para analizar datos, lo que lleva mucho tiempo si usa el comando Copiar y Pegar en Excel. Aquí, en este tutorial, proporcionaré algunos consejos para resolver rápidamente este trabajo.

doc combinar 1

NAVEGACION RAPIDA

Fusionando todas las hojas del libro de trabajo activo en una hoja con VBA
Fusionar docenas de hojas o libros de trabajo en una hoja de trabajo / libro de trabajo con clics
Fusionar dos tablas en una y actualizar por una columna con clics
Descargar archivo de muestra


Fusionando todas las hojas del libro de trabajo activo en una hoja con VBA

En esta sección, proporciono un código VBA que creará una nueva hoja para recopilar todas las hojas del libro de trabajo activo mientras lo ejecuta.

1. Active el libro de trabajo que desea combinar con todas sus hojas, luego presione + llaves para abrir Microsoft Visual Basic para aplicaciones ventana.

2. En la ventana emergente, haga clic en recuadro > Módulo para crear un nuevo script de módulo.

3. Copie el código siguiente y péguelo en el script.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc combinar 2

4. Prensa F5 , entonces todos los datos de las hojas se han fusionado en una nueva hoja llamada Combinada que se coloca al frente de todas las hojas.


no moverse

¿Quiere tener un aumento de sueldo y mucho tiempo para acompañar a la familia?

Office Tab mejora su eficiencia en un 50% en Microsoft Office trabajando ahora mismo

Increíble, trabajar con dos o más documentos es más fácil y rápido que trabajar con uno.

En comparación con los navegadores más conocidos, la herramienta con pestañas de Office Tab es más potente y eficiente.

Reduzca cientos de clics del mouse y la escritura en el teclado todos los días para usted, diga adiós a la mano del mouse ahora.

Si normalmente trabaja en varios documentos, Office Tab le ahorrará mucho tiempo.

30-día de prueba gratis, No se requiere tarjeta de crédito.

Más información Descargar gratis ahora


Fusionar docenas de hojas o libros de trabajo en una hoja de trabajo / libro de trabajo con clics

Con VBA, solo puede combinar hojas en el libro de trabajo activo, pero ¿cómo puede combinar hojas de libros de trabajo en una hoja o libro de trabajo?

Combinar hojas de libros de trabajo en una sola hoja
doc combinar 18

Combinar hojas de libros de trabajo en un solo libro
doc combinar 3

Para resolver este trabajo y satisfacer otros requisitos de combinación de hojas, el Combinar La función se ha desarrollado con cuatro escenarios de combinación:

  • Combine varias hojas o libros de trabajo en una sola hoja
  • Combine varias hojas o libros de trabajo en un libro de trabajo
  • Combinar hojas del mismo nombre en una hoja
  • Consolide valores en hojas o libros de trabajo en una sola hoja

Aquí toma la segunda opción como ejemplo:

Combine varias hojas o libros de trabajo en un libro de trabajo

Después instalación gratuita Kutools para Excel, haga lo siguiente:

1. Active Excel, haga clic en Kutools Más > Combinar, aparece un cuadro de diálogo para recordarle que es necesario cerrar los libros de trabajo que desea combinar. Hacer clic OK para continuar.
doc combinar 4
doc combinar 5

2. En el Combinar hojas de trabajo paso 1 diálogo, comprobar Combine varias hojas de trabajo de libros de trabajo en un libro de trabajo opción. Hacer clic Siguiente para ir al siguiente paso del asistente.
doc combinar 6

3. Hacer clic en Añada > Archive or carpeta para agregar los libros de trabajo que desea combinar al Lista de libros de trabajo panel, luego puede especificar qué hoja de trabajo se unirá marcando los nombres en Lista de hojas de trabajo cristal. Hacer clic Siguiente para ir al último paso del asistente.
doc combinar 7

4. En este paso, especifique la configuración que necesite. Luego haga clic en Acabado.
doc combinar 8

5. Aparecerá una ventana para que seleccione una carpeta para colocar el libro de trabajo combinado, luego haga clic en Guardar.
doc combinar 9

Ahora los libros de trabajo se han fusionado en un solo libro. Y en la parte delantera de todas las hojas, también se crea una hoja maestra llamada Kutools para Excel que enumera información sobre las hojas y los enlaces para cada hoja.
doc combinar 10

Demostración: combine hojas / libros de trabajo en una hoja o libro de trabajo

Kutools para Excel: más de 200 herramientas útiles y útiles, que simplifican las tareas complicadas en Excel en unos pocos clics.

Diga adiós a la mano del ratón y a la espondilosis cervical ahora

300 herramientas avanzadas de Kutools para resolver Excel 80% Tareas de Excel en segundos, sáquelo de los miles de clics del mouse.

Maneje fácilmente 1500 escenarios de trabajo, no necesita perder tiempo buscando soluciones, tenga mucho tiempo para disfrutar de su vida.

Mejore la productividad del 80% para más de 110000 personas altamente efectivas todos los días, por supuesto incluyéndolo a usted.

Ya no debe ser atormentado por fórmulas dolorosas y VBA, dele a su cerebro un descanso y un estado de ánimo de trabajo alegre.

Prueba gratuita de 30 días con todas las funciones, devolución de dinero de 30 días sin motivos.

Un cuerpo mejor crea una vida mejor.


Fusionar dos tablas en una y actualizar por una columna con clics

Si desea fusionar dos tablas en una y actualizar los datos en función de una columna como se muestra a continuación, puede probar el Combinar tablas utilidad de Kutools for Excel.
doc combinar 11

Kutools para Excel: más de 200 prácticos complementos de Excel para simplificar tareas complicadas en unos pocos clics en Excel

Después instalación gratuita Kutools para Excel, haga lo siguiente:

1. Hacer clic en Kutools Más > Combinar tablas para permitir Combinar tablas asistente.
doc combinar 12

2. En el paso 1 del asistente, debe seleccionar por separado la tabla principal y los rangos de la tabla de búsqueda. Luego haga clic en Siguiente.
doc combinar 13

3. Marque la columna de clave en la que desea actualizar los datos en la tabla principal. Hacer clic Siguiente.
doc combinar 14

4. Luego, marque las columnas de la tabla principal en las que desea actualizar los datos según la tabla de búsqueda. Hacer clic Siguiente.
doc combinar 15

5. En el paso 4 del asistente, marque las columnas que desea agregar de la tabla de búsqueda a la tabla principal. Hacer clic Siguiente.
doc combinar 16

6. En el último paso del asistente, especifique las opciones de configuración que necesite. Luego haga clic en Acabado.
doc combinar 17

Ahora la tabla principal ha actualizado los datos y agrega nuevos datos basados ​​en la tabla de búsqueda.

Demostración: combine hojas / libros de trabajo en una hoja o libro de trabajo

Kutools para Excel: más de 200 herramientas útiles y útiles, que simplifican las tareas complicadas en Excel en unos pocos clics.


Descargar archivo de muestra

muestra


Herramientas de productividad recomendadas

Pestaña de Office: exploración, edición y administración de documentos con pestañas en Microsoft Office 2019-2003 y Office 365


pestaña de oficina

Un complemento profesional para acelerar Excel 2019-2007, reduce las horas de tareas a segundos

Este complemento incluye docenas de grupos profesionales, con más de 300 opciones que automatizarán la mayoría de sus tareas diarias en Excel y aumentarán su productividad al menos en un 50%. Como grupos de opciones de un clic y conversiones por lotes.
¡Ahora es tu oportunidad de acelerarte con Kutools para Excel!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

Sub Combine()

'UpdatebyExtendoffice

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations