Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com combinar múltiples llibres en un llibre en Excel?

Alguna vegada has estat atrapat quan has de combinar múltiples llibres en un únic llibre d'Excel? El més terrible és que el llibre que heu de combinar conté diversos fulls de treball. Algú pot suggerir una bona manera d'abordar aquest problema?

Combina múltiples llibres en un llibre amb VBA

Combineu diversos llibres en un llibre amb la comanda Move o Copy

Combineu fàcilment llibres múltiples en un llibre amb Kutools for Excel


Combineu fàcilment múltiples fulls de treball / llibres en un full de treball / llibre de treball:

Combinar múltiples fulls de treball o llibres en un únic full de treball o llibre de treball pot ser una tasca enorme en el seu treball diari. Però, si ho tens Kutools for Excel, la seva poderosa utilitat - Combinar us pot ajudar a combinar ràpidament múltiples fulls de treball, llibres en un full de treball o llibre de treball. Descarregueu la funció completa de 60-day gratis de Kutools per a Excel ara!

Kutools for Excel: amb més complements Excel de 200, gratuïts per intentar sense limitacions en 60 dies. Baixada i prova gratuïta Ara!


Combina múltiples llibres en un llibre amb VBA

Per als programadors qualificats i professionals, podeu utilitzar scripts VBA per combinar diversos llibres en un llibre de màster. Podeu fer front a això amb els passos següents:

1. Col·loqueu tots els llibres que voleu combinar al mateix directori. Mostra la captura de pantalla:

2. Inicieu un fitxer d'Excel que vulgueu combinar altres llibres.

3. Clic Revelador > Visual Basic, Un nou Microsoft Visual Basic per a aplicacions es mostrarà la finestra, feu clic a Insereix > Mòduls, i introduïu el següent codi al mòdul:

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: En el codi anterior, podeu canviar la ruta d'accés a la que esteu utilitzant.

4. A continuació, feu clic a doc-merge-multiple-books-button botó per executar el codi, i totes les fulls de treball (incloses les fulls de càlcul en blanc) dins dels llibres s'han fusionat al llibre mestre.

Nota: Aquest codi VBA pot combinar tots els llibres al llibre mestre, si voleu combinar fulls de treball especificats dels llibres, aquest codi no funcionarà.


Combineu diversos llibres en un llibre amb la comanda Move o Copy

Si sou novell de Microsoft Excel, no teniu més remei que fer-ho, només heu de copiar les dades de cada full i enganxar-les a un llibre nou un per un i aplicar l'ordre Move o Copy. Utilitzant el Moure o copiar La comanda us ajudarà a exportar o copiar una o diverses fulls de treball ràpidament a un llibre nou.

1. Obriu tots els llibres que vulgueu combinar en un sol llibre.

2. Seleccioneu tots els noms del full de treball d'un llibre a la barra de pestanyes. Podeu seleccionar múltiples mantenint premut Ctrl clau o Canviar clau Feu clic amb el botó dret al nom del full de càlcul i feu clic al botó Moure o copiar des del menú contextual.

3. . In En Moure o copiar quadre de diàleg, seleccioneu el llibre mestre que voleu combinar altres llibres des de la llista desplegable de Mou els fulls seleccionats per reservar. A continuació, especifiqueu la ubicació dels fulls de treball fusionats. Veure captures de pantalla:

4. A continuació, feu clic a OK. Les fitxes de treball seleccionades s'han mogut al llibre mestre.

5. Repetiu els passos de 2 a 4 per moure altres llibres al llibre mestre. A continuació, combina tots els fulls de treball dels quaderns oberts en un únic llibre. Veure captures de pantalla:


Combineu fàcilment llibres múltiples en un llibre amb Kutools for Excel

Afortunadament, per als novells i les noves mans de Microsoft Excel, hi ha algunes eines disponibles que us ajudaran a combinar ràpidament centenars de llibres en un. La funció Combinar in Kutools for Excel fa que sigui molt més fàcil combinar diversos fitxers d'Excel. L'aplicació s'utilitza per alliberar les operacions repetitives i redundants en Excel. En realitat, juga un paper important si heu de fer front a una gran quantitat d'arxius d'Excel en el vostre treball diari. Ara, vegem com aconseguir que aquesta funció funcioni en la combinació de llibres múltiples.

Kutools for Excel : amb més complements útils de 300 de Excel, lliure de provar sense límit en 60 dies.

1. Activa Excel i fes clic Kutools més > Combinar. A continuació, apareix un quadre de diàleg per recordar-vos que s'han de desar tots els llibres combinats i la funció no es pot aplicar als llibres de treball protegits, feu clic a OK botó.

2. Al Combine Worksheets assistent, seleccioneu Combineu diverses fulles de treball des de llibres en un sol llibre, i després feu clic a la icona Pròxim botó Mostra la captura de pantalla:

2. A continuació, podeu veure que tots els quadres de treball o fulls oberts es mostren a la secció Combina fulls de càlcul: pas 2 de 3 Caixa de diàleg. Feu clic al Add > Dossier / Carpeta per afegir altres fitxers o carpetes Excel que continguin els fitxers Excel que combinaràs. Després de seleccionar fitxers, feu clic a la icona Pròxim botó per avançar. Mostra la captura de pantalla:

doc combina múltiples llibres arrow 1

3. Al Combina fulls de càlcul: pas 3 de 3 quadre de diàleg, feu la configuració següent:

  • 3.1 Podeu excloure la combinació de totes les fitxes de treball seleccionant Omet des Quan trobeu un full de càlcul en blanc llista desplegable.
  • 3.2 Comproveu la Primera fila de cada full de treball (Comentari) opció per inserir la informació del full de càlcul de cada full de treball combinat.
  • 3.3 Podeu canviar el nom de les fitxes de treball combinades introduint els noms del llibre abans o després dels noms dels fulls de treball originals o simplement conserveu els noms del full de treball original desmarqueu la Inserint el nom del llibre de treball opció.
  • 3.4 Feu clic al botó Finish botó.

4. A continuació, seleccioneu una carpeta per desar el llibre de treball combinat i obriu-lo directament segons calgui. Ara, tots els llibres de treball especificats es combinen en un.

notes:

1. Se us demanarà si voleu desar aquest escenari. Feu clic Per desar com necessiteu, escriviu el nom de l'escenari (vegeu les captures de pantalla següents). Després d'desar l'escenari, només heu de fer clic Escenari botó per triar el nom de l'escenari a l'assistent step2 per utilitzar-lo directament.

2. Els fulls de treball dels quaderns seleccionats s'han combinat en un llibre nou, i les fitxes es nomenen amb el nom del llibre abans o després del nom del full de treball original si heu marcat Inserint el nom del llibre de treball opció. Mentrestant, un nou full de treball anomenat Kutools for Excel es genera abans de totes les fitxes, que enumera els llibres amb informació detallada de cada full de càlcul. Mostra la captura de pantalla:

3. Si el vostre nom del full de treball és massa llarg, potser els caràcters de noms són més grans que 31characters, el nom combinat no es mostrarà i només mostrarà el nom del full original.

Consell.Si voleu fer una prova gratuïta d'aquesta utilitat, visiteu descarregueu el programari lliurement primer, i després aneu a aplicar l'operació segons els passos anteriors.


Pestanya d'Office - Navegació amb pestanyes, edició i gestió de llibres en Excel:

La pestanya Office mostra la interfície de pestanyes que es veu als navegadors web com ara Google Chrome, versions noves d'Internet Explorer i Firefox a Microsoft Excel. Serà una eina que estalviarà temps i serà irreemplaçable en el vostre treball. Vegeu a continuació demo:

Feu clic per obtenir una prova gratuïta de la pestanya d'Office.

Pestanya d&#39;Office per a Excel

Demostració: combineu fàcilment llibres múltiples en un llibre amb Kutools for Excel




Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d&#39;or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d&#39;or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d&#39;or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a 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 · 5 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 · 4 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 · 4 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.