Note: The other languages of the website are Google-translated. Back to English

¿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.

Leer másDescargar 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 > Declarar impuestos 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 Terminar.
doc combinar 8

5. Aparecerá una ventana para que seleccione una carpeta para colocar el libro de trabajo combinado, luego haga clic en a Salvar.
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.

30prueba gratuita de un día con funciones completas, 30-día de devolución de dinero 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 Terminar.
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!


Comentarios (168)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
usó su primera función Macro. ¡GUAU! gracias por publicar
Este comentario fue minimizado por el moderador en el sitio
Creo que el código 'Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Seleccionar' no tiene que estar allí. Por mi parte lo que hace es seleccionar la segunda fila en adelante faltando la primera.
Este comentario fue minimizado por el moderador en el sitio
Tengo el mismo problema. Está omitiendo la primera fila de la segunda hoja de trabajo agregada.
Este comentario fue minimizado por el moderador en el sitio
Elimina encabezados para que no tenga encabezados duplicados
Este comentario fue minimizado por el moderador en el sitio
Funciona de maravilla, gracias por compartir!
Este comentario fue minimizado por el moderador en el sitio
¡Gracias! La macro funcionó perfectamente.
Este comentario fue minimizado por el moderador en el sitio
No sé, cómo usar la función VBN en Excel, ¿pueden ayudarme a hacerlo?
Este comentario fue minimizado por el moderador en el sitio
¡¡¡Genial gracias!!! Muy muy útil
Este comentario fue minimizado por el moderador en el sitio
La macro uno funciona bien. ¡¡Gracias!! ¡¡¡¡Es impresionante!!!! :)
Este comentario fue minimizado por el moderador en el sitio
Tenga en cuenta que esto está limitado por el límite de filas de 65k, si necesita subir la línea Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) range para resolver el problema.
Este comentario fue minimizado por el moderador en el sitio
Gran herramienta, sin embargo, no combina las 21 hojas. ¿Cómo puedo ampliar la gama?
Este comentario fue minimizado por el moderador en el sitio
¡¡¡NOTA!!! Debe tener cuidado con la macro... funcionará si sus datos tienen un flujo continuo de información y ninguna fila en blanco. esto es lo que hace la línea "Selection.CurrentRegion.Select". Por ejemplo, si necesita copiar TODOS los datos en una hoja de cálculo pero hay una línea en blanco en (digamos) la fila 200, la macro solo copiará hasta la fila 200; ¡¡¡DESCONTARÁ TODOS LOS DATOS POR DEBAJO DE ESA FILA!!!
Este comentario fue minimizado por el moderador en el sitio
¿Alguien sabe un comando para evitar este problema? ¿Se puede resolver el problema con Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select? Selection.Rows.Count - 1) es el comando que origina el problema. ¿¿Cualquiera??
Este comentario fue minimizado por el moderador en el sitio
En lugar de empezar desde arriba y bajar, empieza desde abajo y sube
Este comentario fue minimizado por el moderador en el sitio
¿Alguien sabe el código para resolver problemas de filas y columnas vacías?. Lo tengo en mis datos, pero no hay una solución tan simple como comenzar de abajo hacia arriba. ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Para eliminar filas que están vacías: Opción 1: seleccione las celdas de la columna A que deben eliminarse. Use Ctrl - y luego seleccione Toda la fila en la ventana emergente. Guarde el libro de trabajo y salga. Luego abra el libro de trabajo. Opción 2: seleccione las filas que deben eliminarse. Utilice Ctrl-. Guarde el libro de trabajo y salga del libro de trabajo abierto. Dio la opción 1 para que fuera visible para usted lo que estaba sucediendo. Para eliminar columnas que están vacías: Seleccionar columna. Control -. Guarde el libro de trabajo y salga del libro de trabajo abierto.
Este comentario fue minimizado por el moderador en el sitio
¿Tenemos alguna solución para copiar los datos debajo de la celda en blanco?
Este comentario fue minimizado por el moderador en el sitio
Gracias ! Mi segunda fila estaba vacía en todas las hojas y estaba confundido.
Este comentario fue minimizado por el moderador en el sitio
el código vba funcionó muy bien, pero necesito que la hoja de trabajo combinada se actualice a medida que agrego nuevas filas o nuevos datos a las celdas de las hojas de trabajo que estoy combinando. ¿Hay una manera de hacer eso? Gracias por tu ayuda.
Este comentario fue minimizado por el moderador en el sitio
El código de macro funcionó muy bien para la primera hoja de trabajo combinada, pero necesito que la hoja de trabajo combinada se actualice a medida que agrego datos a las hojas de trabajo existentes que estoy combinando. ¿Hay una manera de hacer eso?
Este comentario fue minimizado por el moderador en el sitio
¿Alguna vez descubrió cómo hacer que se actualice en el maestro a medida que agrega filas a las otras hojas de trabajo?
Este comentario fue minimizado por el moderador en el sitio
Excelente trabajo. Esto ha reducido mi trabajo de 2 horas a 10 minutos.
Este comentario fue minimizado por el moderador en el sitio
Excelente, utilicé tanto la primera macro como Kutools, ambos han reducido enormemente mi trabajo de recopilación y compilación de datos. Gracias por compartir.
Este comentario fue minimizado por el moderador en el sitio
Acabo de borrar la parte que figura a continuación y ahora solo se actualiza. Espero que esto ayude... Hojas(1).Seleccione Hojas de trabajo.Agregar
Este comentario fue minimizado por el moderador en el sitio
¡El código funciona muy bien! Necesito la macro para copiar todos los datos en las hojas. Está cortando la primera fila después de la Hoja 1. Solo la hoja uno tiene la fila de encabezado, las otras hojas son solo datos. es posible?
Este comentario fue minimizado por el moderador en el sitio
Tengo una pregunta sobre "Combinar todas las hojas de trabajo en una hoja de trabajo con código VBA": el código funciona muy bien, pero solo cuando está vacío, agrega el encabezado, ¿es posible modificar el código para decir que no se consolide la hoja vacía?
Este comentario fue minimizado por el moderador en el sitio
Gracias me ahorraste una hora de copiar y pegar :D
Este comentario fue minimizado por el moderador en el sitio
Tiene dos libros de trabajo, los mismos datos pero el segundo tiene datos adicionales y algunos datos se han actualizado, inv# Estado 123 7/2 abierto inv# estado 123 7/2 abierto 7/7 cerrado cómo combinar en uno eliminando o resaltando duplicados y agregando cualquier inv # nuevo que no esté en el primero
Este comentario fue minimizado por el moderador en el sitio
Funciona muy bien si su Columna A no está en blanco. En hojas con la columna A en blanco, parece estar sobrescribiendo. En mi dtaa, la columna E no está en blanco en todas las hojas. ¿Cómo puedo modificar el Destino de la copia para tener en cuenta la columna A en blanco en algunas hojas?
Este comentario fue minimizado por el moderador en el sitio
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selección.Fila) + 1).Seleccionar Hojas("Hoja" & CStr(i)).Seleccionar Rango("A2").Seleccionar Rango(Selección, Selección.End(xlDown)).Seleccionar Rango(Selección, Selección .End(xlToRight)).Seleccione Selection.Cut Sheets("Sheet1").Seleccione ActiveSheet.Paste Next End Sub
Este comentario fue minimizado por el moderador en el sitio
Range("A:A").SpecialCells(xlCellTypeLastCell).Seleccione ActiveCell.Offset(1, 0).Seleccione 'use este código para seleccionar la última celda en la columna "A" [cita] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 to 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Seleccione Hojas("Hoja" & CStr(i)).Seleccione Rango("A2").Seleccione Rango(Selección, Selección.Final(xlAbajo)).Seleccione Rango(Selección, Selección.Final(xlADerecha)).Seleccione Selección .Cut Sheets("Sheet1").Seleccione ActiveSheet.Paste Next End Subpor lopez[/ Quote]
Este comentario fue minimizado por el moderador en el sitio
EL CÓDIGO MACRO FUNCIONÓ MUY BIEN... TRABAJO FABULOSO :-)
No hay comentarios publicados aquí todavía
Ver más
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL