Cum se combină mai multe registre de lucru într-un singur registru de lucru principal în Excel?

Ați fost vreodată blocați când trebuie să combinați mai multe registre de lucru într-un registru de lucru master în Excel? Cel mai teribil lucru este că registrele de lucru pe care trebuie să le combinați conțin mai multe foi de lucru. Și cum să combinați doar foile de lucru specificate pentru mai multe registre de lucru într-un singur registru de lucru? Acest tutorial demonstrează mai multe metode utile pentru a vă ajuta să rezolvați pașii cu pași.

Combinați mai multe registre de lucru într-un singur registru de lucru cu funcția Mutare sau Copiere

Dacă trebuie combinate doar câteva registre de lucru, puteți utiliza comanda Mutare sau Copiere pentru a muta sau copia manual foi de lucru din registrul de lucru original în registrul de lucru principal.

1. Deschideți registrele de lucru pe care le veți îmbina într-un registru principal.

2. Selectați foile de lucru din registrul de lucru original pe care îl veți muta sau copia în registrul de lucru principal.

3. După selectarea foilor de lucru necesare, faceți clic dreapta pe fila foaie, apoi faceți clic pe Mutați sau copiați din meniul contextual. Vedeți captura de ecran:

4. Apoi Mutați sau copiați apare fereastra de dialog, în A rezerva derulant, selectați registrul de lucru principal în care veți muta sau copiați foile de lucru. Selectați mutare pentru a termina în Înainte de foaie , bifați caseta Creați o copie , apoi faceți clic pe butonul OK butonul.

Apoi, puteți vedea foi de lucru în două registre de lucru combinate într-una. Vă rugăm să repetați pașii de mai sus pentru a muta foile de lucru din alte registre de lucru în registrul de lucru principal.

Combinați mai multe registre de lucru sau foi de cărți de lucru specificate într-un registru de lucru principal cu VBA

Dacă există mai multe registre de lucru care trebuie îmbinate într-unul singur, puteți aplica următoarele coduri VBA pentru a le realiza rapid. Vă rugăm să faceți următoarele.

1. Puneți toate registrele de lucru pe care doriți să le combinați într-unul sub același director.

2. Lansați un fișier Excel (acest registru de lucru va fi registrul de lucru principal).

3. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, apoi copiați mai jos codul VBA în fereastra Module.

Cod VBA 1: îmbinați mai multe registre de lucru Excel într-unul singur

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. apasă pe F5 tasta pentru a rula codul. Apoi, toate foile de lucru sau foile de lucru specificate ale registrelor de lucru din anumite dosare sunt combinate într-un registru de lucru principal simultan.

Combinați cu ușurință mai multe registre de lucru sau foi de cărți de lucru specificate într-un singur registru de lucru

Din fericire, Combina utilitar registru de lucru al Kutools for Excel face mult mai ușoară îmbinarea mai multor registre de lucru într-unul singur. Să vedem cum să funcționăm această funcție în combinarea mai multor registre de lucru.

1. Creați un nou registru de lucru și faceți clic pe Kutools Plus > Combina. Apoi apare o fereastră de dialog pentru a vă reaminti că toate registrele de lucru combinate ar trebui să fie salvate și caracteristica nu poate fi aplicată registrelor de lucru protejate, faceți clic pe OK butonul.

2. În Combinați foi de lucru vrăjitor, selectați Combinați mai multe foi de lucru din registrele de lucru într-un singur registru de lucru , apoi faceți clic pe Pagina Următoare → buton. Vedeți captura de ecran:

3. În Combinați foi de lucru - Pasul 2 din 3 , faceți clic pe Adăuga > Fișier or Dosar pentru a adăuga fișierele Excel veți fuziona într-unul singur. După adăugarea fișierelor Excel, faceți clic pe finalizarea și alegeți un folder pentru a salva registrul de lucru principal. Vedeți captura de ecran:

Acum toate registrele de lucru sunt îmbinate într-unul singur.

Comparativ cu cele două metode de mai sus, Kutools for Excel are următoarele avantaje:

• 1) Toate registrele de lucru și foile de lucru sunt listate în caseta de dialog;
• 2) Pentru foile de lucru pe care doriți să le excludeți de la îmbinare, debifați-le;
• 3) Fișele de lucru goale sunt excluse automat;
• 4) Numele fișierului original va fi adăugat ca prefix la numele foii după îmbinare;
• Pentru mai multe funcții ale acestei funcții, vă rugăm să vizitați aici.

Kutools for Excel - Vă ajută să terminați întotdeauna munca înainte de timp, să aveți mai mult timp să vă bucurați de viață

Te găsești adesea jucându-te la curent cu munca, lipsa de timp pe care să-l petreci pentru tine și pentru familie?  Kutools for Excel te poate ajuta să faci față 80% Excel puzzle și îmbunătăți eficiența muncii cu 80%, vă oferă mai mult timp pentru a vă ocupa de familie și a vă bucura de viață.

300 de instrumente avansate pentru 1500 de scenarii de lucru, vă fac munca mult mai ușoară ca niciodată.
Nu mai aveți nevoie de memorarea formulelor și codurilor VBA, lăsați-vă creierului să vă odihniți de acum înainte.
Operațiile complicate și repetate pot fi efectuate o procesare unică în câteva secunde.
Reduceți mii de operații de la tastatură și mouse în fiecare zi, spuneți adio acum bolilor profesionale.
Deveniți un expert Excel în 3 minute, vă ajută să vă recunoașteți rapid și să promovați o creștere a salariilor.
110,000 de oameni foarte eficienți și peste 300 de companii de renume mondial la alegere.
Faceți ca 39.0 USD să fie mai în valoare de peste 4000.0 USD pentru antrenamentul altora.
Probă gratuită cu funcții complete 30-zi. Garanție de returnare a banilor de 60 de zile fără motiv.