¿Cómo combinar varios libros de trabajo en un libro maestro en Excel?

¿Alguna vez te has quedado atascado cuando tienes que combinar varios libros de trabajo en un libro maestro en Excel? Lo más terrible es que los libros de trabajo que necesitas combinar contienen múltiples hojas de cálculo. ¿Y cómo combinar solo las hojas de cálculo especificadas de varios libros de trabajo en uno? Este tutorial demuestra varios métodos útiles para ayudarte a resolver el problema paso a paso.

Combinar varios libros de trabajo en un libro con la función Mover o Copiar

Si solo hay unos pocos libros de trabajo que necesitan combinarse, puedes usar el comando Mover o Copiar para mover o copiar manualmente las hojas de cálculo del libro original al libro maestro.

1. Abre los libros de trabajo que deseas fusionar en un libro maestro.

2. Selecciona las hojas de cálculo en el libro de trabajo original que deseas mover o copiar al libro maestro.

3. Después de seleccionar las hojas de cálculo necesarias, haz clic derecho en la pestaña de la hoja y luego haz clic en Mover o Copiar en el menú contextual. Ver captura de pantalla:

4. Luego aparecerá el Mover o Copiar cuadro de diálogo, en el Libro destino cuadro desplegable, selecciona el libro maestro en el que moverás o copiarás las hojas de cálculo. Selecciona Mover al final en el Antes de la hoja cuadro, marca la casilla Crear una copia y, finalmente, haz clic en el botón Aceptar.

Luego podrás ver las hojas de cálculo de dos libros combinadas en uno. Repite los pasos anteriores para mover hojas de cálculo de otros libros al libro maestro.

Combinar varios libros de trabajo u hojas especificadas de libros de trabajo en un libro maestro con VBA

Si hay varios libros de trabajo que deben fusionarse en uno, puedes aplicar los siguientes códigos VBA para lograrlo rápidamente. Por favor, sigue estos pasos.

1. Coloca todos los libros de trabajo que deseas combinar en uno bajo el mismo directorio.

2. Inicia un archivo de Excel (este libro será el libro maestro).

3. Presiona las teclas Alt + F11 para abrir la ventana Microsoft Visual Basic para Aplicaciones. En la ventana Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo, luego copia el siguiente código VBA en la ventana Módulo.

Código VBA 1: Fusionar múltiples libros 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 Sub

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

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 Sub

4. Presiona la tecla F5 para ejecutar el código. Luego, todas las hojas de cálculo u hojas de cálculo especificadas de los libros en la carpeta determinada se combinan en un libro maestro de una vez.

Combinar fácilmente varios libros de trabajo u hojas especificadas de libros de trabajo en un libro

Afortunadamente, la utilidad Combinar libros de trabajo de Kutools para Excel facilita mucho la fusión de varios libros de trabajo en uno. Veamos cómo funciona esta función para combinar varios libros de trabajo.

1. Crea un nuevo libro de trabajo y haz clic en Kutools Plus > Combinar. Luego aparece un cuadro de diálogo para recordarte que todos los libros combinados deben guardarse y que la función no puede aplicarse a libros protegidos; haz clic en el botón Aceptar.

2. En el asistente Combinar Hojas de Cálculo, selecciona la opción Combinar múltiples hojas de cálculo de libros en un libro y luego haz clic en el botón Siguiente. Ver captura de pantalla:

3. En el cuadro de diálogo Combinar Hojas de Cálculo - Paso 2 de 3, haz clic en Agregar > Archivo o Carpeta para agregar los archivos de Excel que deseas fusionar en uno. Después de agregar los archivos de Excel, haz clic en el botón Finalizar y elige una carpeta para guardar el libro maestro. Ver captura de pantalla:

Ahora todos los libros de trabajo están fusionados en uno.

En comparación con los dos métodos anteriores, Kutools para Excel tiene las siguientes ventajas:

• 1) Todos los libros de trabajo y hojas de cálculo se enumeran en el cuadro de diálogo;
• 2) Para las hojas de cálculo que deseas excluir de la fusión, simplemente desmárcala;
• 3) Las hojas de cálculo en blanco se excluyen automáticamente;
• 4) El nombre del archivo original se agregará como prefijo al nombre de la hoja después de la fusión;
• Para más funciones de esta característica, por favor visita aquí.