Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

¿Alguna vez se ha quedado atascado cuando tiene que combinar varios libros en un libro maestro en Excel? Lo más terrible es que los libros que necesita combinar contienen varias hojas de trabajo. ¿Y cómo combinar solo las hojas de trabajo especificadas de varios libros en un solo libro? Este tutorial muestra varios métodos útiles para ayudarlo a resolver los problemas paso a paso.


Combine fácilmente varios libros de trabajo en uno con solo varios clics

El Combinar libros de trabajo utilidad de Kutools for Excel le ayuda a combinar rápidamente ciertos libros de trabajo en uno. Solo varios clics para ahorrar 90% de su tiempo. Además, con esta función, puede combinar varias hojas de trabajo u hojas de trabajo con el mismo nombre en todos los libros de trabajo en una sola, o consolidar los valores de los libros de trabajo en una sola hoja según sus necesidades. ¡Descargue la función completa 60-day gratis de Kutools for Excel ahora!

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

Si solo hay que combinar un par de libros, puede usar el comando Mover o Copiar para mover o copiar manualmente las hojas de trabajo del libro original al libro maestro.

1. Abra los libros de trabajo que fusionará en un libro de trabajo maestro.

2. Seleccione las hojas de trabajo en el libro de trabajo original que moverá o copiará en el libro de trabajo maestro.

Notas:

1). Puede seleccionar varias hojas de trabajo no adyacentes manteniendo el Ctrl Tecla y haciendo clic en las pestañas de la hoja una por una.

2). Para seleccionar varias hojas de cálculo adyacentes, haga clic en la pestaña de la primera hoja, mantenga presionada la tecla cambio clave, y luego haga clic en la última pestaña de la hoja para seleccionarlos todos.

3). Puede hacer clic derecho en cualquier pestaña de la hoja, haga clic en Seleccionar todas las hojas desde el menú contextual para seleccionar todas las hojas de trabajo en el libro al mismo tiempo.

3. Después de seleccionar las hojas de trabajo necesarias, haga clic con el botón derecho en la pestaña de la hoja y luego haga clic en Mover o copiar desde el menú contextual. Ver captura de pantalla:

4. Entonces el Mover o copiar aparece un diálogo, en el Reservar En la lista desplegable, seleccione el libro de trabajo principal al que moverá o copiará las hojas de trabajo. Seleccione mover para terminar en el Antes de la hoja caja, compruebe el Crea una copia cuadro, y finalmente haga clic en el OK botón.

Luego puede ver las hojas de trabajo en dos libros combinados en uno. Repita los pasos anteriores para mover las hojas de trabajo de otros libros al libro de trabajo maestro.

Traiga edición y navegación con pestañas en Office
--- Haz tu trabajo mucho más fácil
Office Tab ahorrará 50% de su tiempo de trabajo cuando navegue y edite varios documentos.
¡Increíble! La operación de dos o más documentos es incluso más agradable que la operación de un solo documento.
Reduzca miles de operaciones de teclado y mouse todos los días, adiós a las enfermedades ocupacionales ahora.
La interfaz de Office Tab es mucho más potente y eficiente que los navegadores de Internet.

Combine varios libros de trabajo u hojas específicas de libros de trabajo en un libro de trabajo maestro con VBA

Si hay varios libros que se deben combinar en uno, puede aplicar los siguientes códigos de VBA para lograrlo rápidamente. Por favor, haga lo siguiente.

1. Coloque todos los libros que desea combinar en uno en el mismo directorio.

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

3. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie debajo del código de VBA en la ventana del Módulo.

Código VBA 1: fusione varios libros de Excel en uno

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  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
	

Notas:

1. El código VBA anterior mantendrá los nombres de las hojas de los libros de trabajo originales después de la combinación.

2. Si desea distinguir qué hojas de trabajo en el libro de trabajo maestro provienen de donde después de la fusión, aplique el siguiente código VBA 2.

3. Si solo desea combinar las hojas de trabajo especificadas de los libros en un libro de trabajo maestro, el siguiente código VBA 3 puede ayudarlo.

En los códigos VBA, "C: \ Users \ DT168 \ Desktop \ KTE \”Es la ruta de la carpeta. En el código VBA 3, "Hoja1, Hoja3"son las hojas de trabajo especificadas de los libros de trabajo que combinará con un libro de trabajo maestro. Puede cambiarlos según sus necesidades.

Código VBA 2: Combinar libros en uno (cada hoja de trabajo se nombrará con el prefijo de su nombre de archivo original):

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: fusionar hojas de trabajo 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 Sub

4. presione el F5 Clave para ejecutar el código. Luego, todas las hojas de trabajo o las hojas de trabajo especificadas de los libros en la carpeta determinada se combinan a la vez en un libro maestro.

Combine fácilmente múltiples libros de trabajo o hojas de libros específicos en un solo libro

Afortunadamente, el Combinar utilidad de libro de Kutools for Excel hace que sea mucho más fácil combinar varios libros en uno. Veamos cómo hacer que esta función funcione combinando varios libros.

1. Crear un nuevo libro de trabajo y haga clic en Kutools Más > Combinar. Luego aparece un cuadro de diálogo para recordarle que todos los libros de trabajo combinados deben guardarse y que la función no se puede aplicar a los libros protegidos, haga clic en OK botón.

2. En el Combine hojas de trabajo asistente, seleccionar Combina varias hojas de trabajo de libros de trabajo en un libro de trabajo opción, y luego haga clic en Siguiente botón. Ver captura de pantalla:

3. En el Combine hojas de trabajo - Paso 2 de 3 cuadro de diálogo, haga clic en Añadir > Envíe el or carpeta para agregar los archivos de Excel que se fusionará en uno. Después de agregar los archivos de Excel, haga clic en Terminar y elija una carpeta para guardar el libro de trabajo maestro. Ver captura de pantalla:

Ahora todos los libros se combinan en uno.

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

  • 1) Todos los libros de trabajo y hojas de trabajo se enumeran en el cuadro de diálogo;
  • 2) Para las hojas de trabajo que desea excluir de la fusión, simplemente deseleccione;
  • 3) Las hojas de trabajo 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 aqui.

Propina. Si desea tener una prueba gratuita (60-day) de esta utilidad, por favor haga clic para descargarloy, a continuación, vaya a aplicar la operación según los pasos anteriores.


Kutools para Excel - Le ayuda a terminar siempre el trabajo antes de tiempo, tiene más tiempo para disfrutar la vida
¿A menudo te encuentras poniéndote al día con el trabajo, la falta de tiempo para gastar para ti y tu familia? Kutools for Excel puede ayudarlo a lidiar con los rompecabezas de 80% Excel y mejorar la eficiencia del trabajo de 80%, darle más tiempo para cuidar de la familia y disfrutar de la vida.
Las herramientas avanzadas de 300 para los escenarios de trabajo de 1500 hacen que su trabajo sea mucho más fácil que nunca.
Ya no es necesario memorizar fórmulas y códigos de VBA, dale un descanso a tu cerebro de ahora en adelante.
Las operaciones complicadas y repetidas se pueden realizar un procesamiento único en segundos.
Reduzca miles de operaciones de teclado y mouse todos los días, despídase ahora de las enfermedades profesionales.
Conviértase en un experto en Excel en minutos 3, ayúdele a ser reconocido rápidamente y a una promoción de aumento de sueldo.
110,000 personas altamente efectivas y 300 + elección de compañías de renombre mundial.
Haga que su $ 39.0 valga más que la capacitación de otros $ 4000.0.
Prueba gratuita de funciones completas 30-day. Garantía de devolución de dinero de 60-Day sin motivo.

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.