¿Cómo combinar varios libros en un único libro maestro en Excel?
¿Alguna vez se ha quedado bloqueado al intentar combinar varios libros en un libro maestro en Excel? Lo más complicado es que los libros que necesita unir contienen múltiples hojas de cálculo. ¿Y cómo combinar únicamente las hojas especificadas de varios libros en un único archivo? Este tutorial le muestra varios métodos útiles para resolver este problema paso a paso.
Combinar varios libros en un único libro mediante la función Mover o Copiar
Si solo hay unos pocos libros que combinar, puede usar el comando Mover o Copiar para trasladar o copiar manualmente las hojas de cálculo del libro original al libro maestro.
1. Abra los libros que desea combinar en un libro maestro.
2. Seleccione en el libro original las hojas que desea mover o copiar al libro maestro.
Notas:
1). Puede seleccionar varias hojas no adyacentes manteniendo pulsada la tecla Ctrl y haciendo clic una a una en las pestañas de hoja.
2). Para seleccionar varias hojas adyacentes, haga clic en la primera pestaña de hoja, mantenga pulsada la tecla Mayús y, a continuación, haga clic en la última pestaña para seleccionarlas todas.
3). Puede hacer clic con el botón derecho en cualquier pestaña de hoja y seleccionar Seleccionar todas las hojas en el menú contextual para seleccionar simultáneamente todas las hojas del libro.
3. Tras seleccionar las hojas necesarias, haga clic con el botón derecho en la pestaña de la hoja y, a continuación, haga clic en Mover o Copiar en el menú contextual. Vea la captura de pantalla:
4. A continuación, aparecerá el cuadro de diálogo Mover o Copiar. En el menú desplegable Libro de destino, seleccione el libro maestro al que desea mover o copiar las hojas de cálculo. Elija la opción Mover al final en el cuadro Antes de la hoja, marque la casilla Crear una copia y, por último, haga clic en el botón Aceptar.
Así verá las hojas de ambos libros combinadas en uno. Repita los pasos anteriores para trasladar hojas de otros libros al libro maestro.
Combinar varios libros o las hojas especificadas de dichos libros en un libro maestro mediante VBA
Si tiene varios libros que combinar en uno, puede aplicar los siguientes códigos VBA para hacerlo rápidamente. Siga estos pasos.
1. Coloque todos los libros que desea combinar en un único directorio.
2. Abra un archivo de Excel (este libro será el libro maestro).
3. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo y, a continuación, copie el siguiente código VBA en la ventana del módulo.
Código VBA 1: combinar varios Libro de Excel en uno
Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End SubNotas:
1. El código VBA anterior conservará los nombres originales de las hojas tras combinar los libros.
2. Si desea distinguir de qué libro procede cada hoja en el libro maestro tras la combinación, aplique el siguiente código VBA 2.
3. Si únicamente desea combinar hojas de cálculo especificadas de los libros en un libro maestro, el siguiente código VBA 3 puede ayudarle.
En los códigos VBA, «C:\Users\DT168\Desktop\KTE\» es la ruta del archivo. En el código VBA 3, «Hoja1,Hoja3» son las hojas de cálculo especificadas de los libros que se combinarán en un libro maestro. Puede modificarlas según sus necesidades.
Código VBA 2: Combinar libros de trabajo en uno (cada hoja de cálculo recibirá como nombre el prefijo del nombre original del archivo):
Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Código VBA 3: combinar hojas de cálculo especificadas de libros en un libro maestro:
Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub4. Pulse la tecla F5 para ejecutar el código. A continuación, todas las hojas o las hojas especificadas de los libros de la carpeta indicada se combinarán de inmediato en un libro maestro.
Combinar fácilmente varios libros o las hojas especificadas de dichos libros en un único libro
Afortunadamente, la utilidad Combinar libros de Kutools para Excel facilita enormemente la fusión de varios libros en uno. Veamos cómo utilizar esta función para combinar varios libros.
Antes de usar Kutools para Excel, por favor descárguelo e instálelo primero.
1. Cree un nuevo libro de trabajo y haga clic en KUTOOLS PLUS > Combinar. A continuación, aparecerá un cuadro de diálogo que le recordará que todos los libros combinados deben estar guardados y que esta función no se puede aplicar a libros protegidos; haga clic en el botón Aceptar.
2. En el asistente Combinar Hojas de Cálculo, seleccione la opción Copiar Hojas de Cálculo de Varios Libros de Trabajo a un Solo Libro de Trabajo y, a continuación, haga clic en el botón Siguiente. Vea la captura de pantalla:
3. En el cuadro de diálogo Combinar Hojas de Cálculo - Paso 2 de 3, haga clic en Agregar > Archivo o Carpeta para añadir los archivos de Excel que desea combinar en uno solo. Tras agregar los archivos de Excel, haga clic en el botón Finalizar y elija una carpeta donde guardar el libro maestro. Vea la captura de pantalla:
Ahora todos los libros se han combinado en uno.
En comparación con los dos métodos anteriores,Kutools para Excelofrece las siguientes ventajas:
- 1) Todos los libros y hojas aparecen listados en el cuadro de diálogo;
- 2) Para excluir del proceso de combinación las hojas que desee, simplemente desmárquelas;
- 3) Las Hoja de cálculo en blanco se excluyen automáticamente;
- 4) Tras la combinación, el nombre del archivo original se añadirá como prefijo al nombre de la hoja;
- Para descubrir más funciones de esta característica, haga clic aquí.
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos