Hogyan kombinálhat több munkafüzetet egy fő munkafüzetbe az Excelben?

Elakadt már valaha, amikor több munkafüzetet össze kell kapcsolnia az Excel fő munkafüzetévé? A legszörnyűbb az, hogy a kombinálandó munkafüzetek több munkalapot tartalmaznak. És hogyan lehet egyetlen munkafüzetbe egyesíteni csak a több munkafüzet meghatározott munkalapjait? Ez az oktatóprogram számos hasznos módszert mutat be, amelyek segítségével lépésről lépésre megoldhatja a problémát.

Egyesítsen több munkafüzetet egy munkafüzetbe az Áthelyezés vagy Másolás funkcióval

Ha csak pár munkafüzetet kell kombinálni, akkor az Áthelyezés vagy Másolás paranccsal manuálisan áthelyezheti vagy másolhatja a munkalapokat az eredeti munkafüzetből a fő munkafüzetbe.

1. Nyissa meg a munkafüzeteket, amelyeket egyesít egy fő munkafüzetbe.

2. Jelölje ki az eredeti munkafüzet munkalapjait, amelyeket áthelyez vagy átmásol a fő munkafüzetbe.

3. A szükséges munkalapok kiválasztása után kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Áthelyezés vagy Másolás a helyi menüből. Lásd a képernyőképet:

4. Ezután a Áthelyezés vagy Másolás párbeszédpanel jelenik meg, a Foglalni legördülő menüből válassza ki azt a fő munkafüzetet, amelybe áthelyezi vagy másolja a munkalapokat. Válassza ki az áthelyezést a Lap előtt jelölje be a négyzetet Hozzon létre egy példányt mezőbe, és végül kattintson a gombra OK gombot.

Ezután láthatja a munkalapokat két munkafüzetben, amelyek egybe vannak egyesítve. Kérjük, ismételje meg a fenti lépéseket a munkalapok más munkafüzetekből a fő munkafüzetbe történő áthelyezéséhez.

Kombináljon több munkafüzetet vagy meghatározott munkafüzetlapokat a VBA-val ellátott fő munkafüzetbe

Ha több munkafüzetet kell egyesíteni, akkor a következő VBA-kódokat alkalmazhatja annak gyors eléréséhez. Kérjük, tegye a következőket.

1. Helyezze az összes egyesíteni kívánt munkafüzetet egy könyvtárba.

2. Indítson el egy Excel fájlt (ez a munkafüzet lesz a fő munkafüzet).

3. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic alkalmazásokhoz ablak. Ban,-ben Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modulok, majd másolja a VBA kód alatt a Modul ablakba.

1. VBA-kód: Több Excel munkafüzet egyesítése egybe

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. megnyomni a F5 gombot a kód futtatásához. Ezután az adott mappában található összes munkafüzet vagy a megadott munkafüzetek egyszerre egyesülnek egy fő munkafüzettel.

Könnyen kombinálhat több munkafüzetet vagy meghatározott munkafüzetlapokat egy munkafüzetbe

Szerencsére a Kombájn munkafüzet segédprogramja Kutools az Excel számára sokkal könnyebbé teszi a több munkafüzet egyesítését egyben. Nézzük meg, hogyan érhető el ez a funkció több munkafüzet kombinálásakor.

1. Hozzon létre egy új munkafüzetet, és kattintson a gombra Kutools Plus > Kombájn. Ezután megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy az összes kombinált munkafüzetet el kell menteni, és a funkciót nem lehet alkalmazni a védett munkafüzetekre. Kérjük, kattintson a OK gombot.

2. Ban,-ben Kombinálja a munkalapokat varázsló, válassza a lehetőséget Kombinálja a munkafüzetek több munkalapját egy munkafüzetbe lehetőséget, majd kattintson a gombra Következő gomb. Lásd a képernyőképet:

3. Ban,-ben Kombinálja a munkalapokat - 2/3 lépés párbeszédpanelen kattintson a hozzáad > filé or Mappa az Excel fájlok hozzáadásához össze fogja egyesíteni. Az Excel fájlok hozzáadása után kattintson a gombra befejez gombra, és válasszon egy mappát a fő munkafüzet mentéséhez. Lásd a képernyőképet:

Most az összes munkafüzet egybe van egyesítve.

A fenti két módszerrel összehasonlítva Kutools az Excel számára a következő előnyökkel rendelkezik:

• 1) Az összes munkafüzet és munkalap megtalálható a párbeszédpanelen;
• 2) Az egyesítésből kizárni kívánt munkalapokhoz csak törölje a jelet;
• 3) Az üres munkalapok automatikusan kizárásra kerülnek;
• 4) Az eredeti fájlnév az egyesítés után előtagként kerül a lap nevéhez;
• A funkció további funkcióinak megtekintéséhez kérjük, látogasson el ide.

Kutools Excelhez - Segít a munka idő előtti befejezésében, legyen több ideje élvezni az életet

Gyakran találja magát magával a munka felzárkóztatásában, a saját és családja számára eltöltött idő hiányában?  Kutools az Excel számára segíthet megbirkózni 80% Excel rejtvények és 80%-os munkahatékonyság javítása, több idő jut a családdal való törődésre és az élet élvezetére.

300 fejlett eszköz 1500 munkamenethez, sokkal könnyebbé teszi munkáját, mint valaha.
Nincs többé szüksége képletek és VBA kódok memorizálására, mostantól pihentesse az agyad.
A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
Csökkentse a napi billentyűzet és egér több ezer műveletét, búcsúzzon el a foglalkozási betegségektől.
Legyen 3 perc alatt Excel-szakértő, segítsen gyorsan elismertetni és fizetésemelési promóciót kapni.
110,000 300 rendkívül hatékony ember és több mint XNUMX világhírű vállalat választása.
Tegyen 39.0 dollárt többet, mint mások 4000.0 dolláros képzése.
Teljes szolgáltatás ingyenes próbaverzió 30 nap. 60 napos pénzvisszafizetési garancia ok nélkül.