Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe kan jy meer werkboeke kombineer in 'n meesterwerkboek in Excel?

Het jy al ooit vasgekom wanneer jy verskeie werkboeke in 'n meesterwerkboek in Excel moet kombineer? Die mees verskriklike ding is dat die werkboeke wat jy moet kombineer, veelvuldige werkkaarte bevat. En hoe om net die gespesifiseerde werkkaarte van verskeie werkboeke in een werkboek te kombineer? Hierdie handleiding demonstreer verskeie nuttige metodes om u te help om die probleemstappe deur stappe op te los.


Maklik verskeie werkboeke in een in Excel kombineer:

Die Kombineer werkboek nut van Kutools for Excel kan u help om verskeie Excel-lêers maklik in een te kombineer. Daarbenewens kan jy die gespesifiseerde werkkaarte van sekere Excel-lêers maklik in 'n meesterwerkboek kombineer. Laai nou die volledige funksie 60-dag gratis roete af!

Kombineer verskeie werkboeke in een werkboek met die skuif of kopieer funksie

As daar net 'n paar werkboeke moet gekombineer word, kan u die instruksies Beweeg of Kopieer gebruik om handvelle van die oorspronklike werkboek na die meesterwerkboek handmatig te skuif of te kopieer.

1. Maak die werkboeke oop wat jy in 'n meesterwerkboek sal saamsmelt.

2. Kies die werkkaarte in die oorspronklike werkboek wat jy sal skuif of kopieer na die meesterwerkboek.

Notas:

1). U kan verskeie nie-aangrensende werkkaarte kies met die hou van die Ctrl sleutel en klik die bladbladsye een vir een.

2). As u verskeie aangrensende werkkaarte kies, klik asseblief op die eerste bladblad, hou die Skuif sleutel en klik dan op die laaste blad oortjie om hulle almal te kies.

3). U kan regs op enige bladblad klik, klik op Kies Alle Blaaie uit die konteks kieslys om al die werkkaarte in die werkboek terselfdertyd te kies.

3. Nadat u die nodige werkkaarte gekies het, kliek regs op die bladblad en klik Skuif of Kopieer uit die konteks kieslys. Sien skermkiekie:

4. Dan die Skuif of Kopieer dialoog verskyn in die Om te bespreek drop-down, kies die meesterwerkboek wat jy sal skuif of kopieer werkkaarte in. Kies skuif om te eindig in die Voor die blad boks, maak seker die Skep 'n kopie boks, en klik uiteindelik op die OK knoppie.

Dan kan jy werkkaarte in twee werkboeke gekombineer in een sien. Herhaal bogenoemde stappe om werksvelle van ander werkboeke in die meesterwerkboek te skuif.

Kantoor-oortjie - 'n invoegtoepassing vir real-time saver!

Wys alle oop dokumente in 'n venster om vinnig te help om 'n dokument te kry wat nodig is.

Volledige funksie gratis verhoor 45-dag. Verenigbaar met elke weergawe van Excel, Word en PowerPoint.

WEET MEER OOR DIE ADD-IN>

Kombineer verskeie werkboeke of gespesifiseerde velle werkboeke aan 'n meesterwerkboek met VBA

As daar meer werkboeke is, moet dit saamgevoeg word. U kan die volgende VBA-kodes toepas om dit vinnig te bereik. Doen asseblief as volg.

1. Plaas al die werkboeke wat u wil kombineer in een onder dieselfde gids.

2. Begin 'n Excel-lêer (hierdie werkboek sal die meesterwerkboek wees).

3. Druk die alt + F11 sleutels om die Microsoft Visual Basic vir toepassings venster. In die Microsoft Visual Basic vir toepassings venster, kliek Plaas > module, dan kopieer VBA-kode hieronder na die Module-venster.

VBA-kode 1: Versamel verskeie Excel-werkboeke in een

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. Bogenoemde VBA-kode sal die velname van die oorspronklike werkboeke hou nadat dit saamgesmelt is.

2. As jy wil onderskei watter werkkaarte in die meesterwerkboek vandaan kom, waarna dit saamgevoeg het, gebruik asseblief die onderstaande VBA-kode 2.

3. As jy net gespesifiseerde werkkaarte van die werkboeke in 'n meesterwerkboek wil kombineer, kan die onderstaande VBA-kode 3 help.

In VBA kodes, "C: \ Users \ DT168 \ Desktop \ KTE \"Is die gids pad. In die VBA-kode 3, "Sheet1, Sheet3"is die gespesifiseerde werkkaarte van die werkboeke wat u sal kombineer na 'n meesterwerkboek. U kan dit verander volgens u behoeftes.

VBA-kode 2: Werkboeke saamvoeg in een (elke werkblad sal met die voorvoegsel van die oorspronklike lêernaam genoem word):

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

VBA-kode 3: Voeg gespesifiseerde werkkaarte van werkboeke saam in 'n meesterwerkboek:

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. Druk die F5 sleutel om die kode uit te voer. Dan word al die werkkaarte of gespesifiseerde werkkaarte van die werkboeke in die bepaalde gids gelyktydig in 'n meesterwerkboek gekombineer.

Maklik verskeie werkboeke of gespesifiseerde velle werkboeke kombineer met een werkboek

Kutools for Excel

Dit is 'n handige Excel-invoegtoepassing wat meer as 300 gevorderde funksies versamel om jou werk in Excel-bedrywighede te vereenvoudig. Met dit kan jy maklik:

  • Kombineer Multi-werkboeke;
  • Tel / som selle volgens kleur;
  • Gesplete selle;
  • Batch verwyder spasies;
  • Meer kenmerke ...

GRATIS DOWNLOAD NOU!

Gelukkig het die Kombineer werkboek nut van Kutools for Excel maak dit baie makliker om verskeie werkboeke in een te voeg. Kom ons kyk hoe om hierdie funksie te kry om verskeie werkboeke te kombineer.

1. Skep 'n nuwe werkboek en klik Kutools Plus > Kombineer. Dan verskyn 'n dialoog om u te herinner dat alle gekombineerde werkboeke gestoor moet word en die funksie nie op beskermde werkboeke toegepas kan word nie, klik asseblief op die OK knoppie.

2. In die Kombineer Werkkaarte towenaar, kies Kombineer verskeie werkkaarte van werkboeke in een werkboek opsie, en klik dan op die volgende knoppie. Sien skermkiekie:

3. In die Kombineer Werkkaarte - Stap 2 van 3 dialoogkassie, klik die Voeg > File or Folder Om die Excel-lêers by te voeg, sal jy saamsmelt. Nadat u die Excel-lêers bygevoeg het, klik die Voltooi knoppie en kies 'n gids om die meesterwerkboek te stoor. Sien skermkiekie:

Nou word alle werkboeke saamgesmelt.

In vergelyking met die bogenoemde twee metodes, Kutools for Excel het die volgende voordele:

  • 1) Alle werkboeke en werkkaarte word in die dialoogkassie gelys;
  • 2) Vir die werkkaarte wat u wil uitsluit van samesmelting, maak dit net uit.
  • 3) Blank werkkaarte word outomaties uitgesluit;
  • 4) Die oorspronklike lêernaam sal as voorvoegsel aan die bladnaam bygevoeg word na samesmelting;
  • Vir meer funksies van hierdie funksie, besoek asseblief hier.

Doen dit Kombineer werkboeke nut hulp? Kom ons laai en probeer die volledige proeflopie 60-dag!

Aanbevole Produktiviteitsgereedskap vir Microsoft Office

Office Tab - Tabbed Browsing, redigering en bestuur in Excel / Word / PowerPoint:

Office Tab bring die oortjie koppelvlak soos gesien in webblaaiers soos Google Chrome, Internet Explorer nuwe weergawes en Firefox na Microsoft Excel / Word / PowerPoint. Dit sal 'n tydbesparende hulpmiddel wees en onvervangbaar in jou werk. Sien onderstaande demo:

ot1

Kutools for Excel - kombineer meer as 300 Gevorderde funksies en gereedskap vir Microsoft Excel:

Kutools for Excel is 'n handige Excel-invoegtoepassing met meer as 300 gevorderde funksies om verskeie soorte ingewikkelde take in enkele kliek in Excel te vereenvoudig. Byvoorbeeld:

  • Kombineer verskeie werkkaarte of werkboeke in een werkboek
  • Tel en som selle gebaseer op agtergrond / font kleur
  • Verdeel selinhoud in verskeie rye / kolomme per spasie / komma / delimiter
  • Batch Verwyder leidende spasies in selle
kte

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 · 1 months 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 · 2 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 · 1 months 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 · 3 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 · 1 months 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 · 6 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 · 9 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.