As cookies axúdanos a entregar os nosos servizos. Ao usar os nosos servizos, acepta o noso uso das cookies.
Consello: outros idiomas están traducidos a Google. Podes visitar o English versión desta ligazón.
Iniciar sesión
x
or
x
x
Register
x

or

¿Como combinar varios libros a un libro en Excel?

Xa estivo atrapado cando tes que combinar varios libros nun único libro en Excel? O máis terrible é que o libro que cómpre combinar contén varias follas de traballo. Alguén pode suxerir unha boa forma de solucionar este problema?

Combina múltiples libros de traballo a un libro con VBA

Combina varios libros a un libro co comando Mover ou Copiar

Combina facilmente varios libros nun libro con Kutools para Excel


Combina facilmente varias follas de cálculo / libros en unha folla de cálculo / libro:

Combinar múltiples follas de traballo ou libros nunha única folla de traballo ou libro pode ser unha tarefa enorme no seu traballo diario. Pero, se tes Kutools para Excel, a súa poderosa utilidade - Combinar pode axudarche a combinar rápidamente varias follas de traballo, libros nunha folla de cálculo ou libro de traballo. Descarga a característica completa 60-day libre de Kutools para Excel agora!

Kutools para Excel: con máis de 200 complementos de Excel útiles, gratuítos para probar sen ningunha limitación en 60 días. Descarga e proba gratuíta Agora!


Combina múltiples libros de traballo a un libro con VBA

Para os programadores cualificados e profesionais, pode usar scripts VBA para combinar varios libros en un libro mestre. Pode xestionar isto cos seguintes pasos:

1. Coloca todos os libros que desexa combinar no mesmo directorio. Ver captura de pantalla:

2. Inicia un ficheiro de Excel que queres combinar noutros libros.

3. Prema Revelador > Visual Basic, Unha nova Microsoft Visual Basic para aplicacións amosarase a xanela, faga clic Inserir > Módulos, e introduza o seguinte código no módulo:

Sub GetSheets()
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

Punta: No código anterior, pode cambiar a ruta para a que está a usar.

4. A continuación, fai clic en doc-merge-multiple-books-button botón para executar o código e todas as follas de traballo (incluídas as follas de cálculo en branco) dentro dos libros foron fundidas no libro mestre.

Nota: Este código VBA pode fundir todos os libros de traballo no libro mestre, se quere combinar follas de traballo especificadas dos libros, este código non funcionará.


Combina varios libros a un libro co comando Mover ou Copiar

Se es un novato de Microsoft Excel, non ten máis remedio que só ter que copiar os datos de cada folla e pegarlos nun libro novo un a un e aplicar o comando Mover ou copiar. Usando o Mover ou Copiar O comando axudaralle a exportar ou copiar unha ou varias follas de traballo a un novo caderno de traballo rapidamente.

1. Abre todos os libros que desexe fusionar nun único libro.

2. Seleccione todos os nomes de folla de traballo dun libro na barra de lingüetas. Pode seleccionar múltiple premendo Ctrl clave ou Desprazarse clave. Fai clic co botón dereito no nome da folla de traballo e faga clic no botón Mover ou Copiar dende o menú contextual.

3. En Mover ou Copiar caixa de diálogo, seleccione o libro mestre que desexe combinar outros libros na lista desplegable de Mover follas seleccionadas para reservar. E despois especifique a localización das fichas combinadas. Ver capturas de pantalla:

4. A continuación, fai clic en OK. As follas de traballo seleccionadas trasladáronse ao libro mestre.

5. Repita os pasos de 2 a 4 para mover outros libros ao libro mestre. A continuación, combina todas as follas de traballo de libros abertos nun único libro. Ver capturas de pantalla:


Combina facilmente varios libros nun libro con Kutools para Excel

Afortunadamente, para rookies e novas mans de Microsoft Excel, hai algunhas ferramentas dispoñibles para axudarche a combinar rápidamente centos de libros en un. A función Combinar in Kutools para Excel fai que sexa moito máis doado combinar varios ficheiros de Excel. A aplicación utilízase para liberar as operacións repetitivas e redundantes en Excel. Realmente desempeña un papel importante se ten que xestionar unha gran cantidade de arquivos de Excel no seu traballo diario. Agora, vexamos como conseguir que funcione esta función para combinar varios libros.

Kutools para Excel : con máis de 300 complementos de Excel útiles, gratis para probar sen ningunha limitación en 60 días.

1. Permitir Excel e facer clic Kutools Máis > Combinar. A continuación, aparece un diálogo para lembra-lo que todos os libros de traballo combinados deben ser gardados e que a función non se pode aplicar a libros protexidos. OK botón.

2. no Combina follas de traballo asistente, seleccione Combina varias follas de traballo de libros en un libro, e despois faga clic no seguinte botón. Ver captura de pantalla:

2. Entón podes ver todos os libros abertos e as follas de traballo están listadas na páxina Combina follas de traballo: paso 2 de 3 caixa de diálogo. Faga clic na Engadir > Arquivo / Dobrador para engadir outros ficheiros ou cartafoles de Excel que conteñan os ficheiros de Excel que combinará. Despois de seleccionar ficheiros, faga clic no seguinte botón para avanzar. Ver captura de pantalla:

doc fusiona varios libros arrow1

3. no Combina follas de traballo: paso 3 de 3 caixa de diálogo, fai a seguinte configuración:

  • 3.1 Pode excluír todas as follas de cálculo en branco fusionando seleccionando Saltar a partir do Cando atopas unha folla de cálculo en branco lista despregábel.
  • 3.2 Comprobe o Primeira fila de cada folla de traballo (Comentario) opción para inserir información sobre follas de traballo de cada folla combinada.
  • 3.3 Pode renomear as novas follas de cálculo combinadas inserindo os nomes dos libros antes ou despois dos nomes de follas de traballo orixinais ou simplemente manter os nomes dos follas de traballo orixinais sen marcar a Ao inserir o nome do libro opción.
  • 3.4 fai clic no botón Rematar botón.

4. A continuación, escolla un cartafol para gardar o libro de traballo combinado e ábreo directamente como necesite. Agora todos os libros de traballo especificados combínanse nun.

Notas:

1. Preguntarás se desexas gardar este escenario. Fai clic si Para gardar como precise, escriba o nome do escenario (consulte as seguintes capturas de pantalla). Despois de gardar o escenario, só tes que facer clic Escenario botón para escoller o nome do escenario no asistente step2 para usalo directamente.

2. As follas de traballo nos libros seleccionados fusionáronse nun novo caderno de traballo, e as follas de traballo teñen o nome co nome do libro antes ou despois do nome do traballo orixinal se marcou o Ao inserir o nome do libro opción. Mentres tanto, unha nova folla de traballo nomeada Kutools para Excel Xera antes de todas as follas de traballo, que enumera os libros con información detallada de cada folla de cálculo. Ver captura de pantalla:

3. Se o seu nome de folla de traballo é demasiado longo, quizais os caracteres de nome sexan maiores que 31characters, o nome combinado non se mostrará e só mostrará o nome da folla orixinal.

Consello.Se queres ter unha versión de proba gratuíta desta utilidade, vai a descarga o software libremente primeiro, e despois vai aplicar a operación segundo os pasos anteriores.


Tabulación de Office - Navegación, Edición e Xestión de libros de texto en táboas en Excel:

A pestana Office trae a interface tabulada como se pode ver nos navegadores web como Google Chrome, versións novas de Internet Explorer e Firefox a Microsoft Excel. Será unha ferramenta de aforro de tempo e irreemplazable no teu traballo. Vexa a continuación demo:

Fai clic en Proba gratuíta de Office Tab!

Pestana de Office para Excel

Demostración: Combina fácilmente varios libros nun libro con Kutools para Excel




Artigos relacionados:



Ferramentas de produtividade recomendadas

Tabulación de Office

estrela de ouro1 Traia páxinas útiles para Excel e outro software de Office, como Chrome, Firefox e Internet Explorer novo.

Kutools para Excel

estrela de ouro1 Sorprendente! Aumenta tu productividad en 5 minutos. Non necesitas habilidades especiais, garda dúas horas todos os días.

estrela de ouro1 300 Novidades para Excel, Excel moi fácil e poderoso:

  • Combina celas / filas / columnas sen perder datos.
  • Combina e consolida varias follas e libros de traballo.
  • Comparar intervalos, copiar varios intervalos, converter texto a data, conversión de unidade e moeda.
  • Conta por cores, subtotales de paginación, clasificación avanzada e filtro super,
  • Máis Seleccionar / Inserir / Eliminar / Texto / Formato / Ligazón / Comentario / Libros / Follas de ferramentas ...

Pantalla de Kutools para Excel

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.
  • To post as a guest, your comment is unpublished.
    Dezignext Technologies · 4 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 3 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      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
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 3 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      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
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.