Συμβουλή: Άλλες γλώσσες μεταφράζονται από την Google. Μπορείτε να επισκεφθείτε το English έκδοση αυτής της σύνδεσης.
Σύνδεση
x
or
x
x
Κανε ΕΓΓΡΑΦΗ
x

or

Πώς να συνδυάσετε πολλαπλά βιβλία εργασίας σε ένα κύριο βιβλίο εργασίας στο Excel;

Έχετε κολλήσει ποτέ όταν πρέπει να συνδυάσετε πολλαπλά βιβλία εργασίας σε ένα κύριο βιβλίο εργασίας στο Excel; Το πιο τρομερό πράγμα είναι ότι τα βιβλία εργασίας που πρέπει να συνδυάσετε περιέχουν πολλαπλά φύλλα εργασίας. Και πώς να συνδυάσετε μόνο τα καθορισμένα φύλλα εργασίας πολλών βιβλίων εργασίας σε ένα βιβλίο εργασίας; Αυτό το σεμινάριο παρουσιάζει διάφορες χρήσιμες μεθόδους που θα σας βοηθήσουν να λύσετε τα βήματα με τα βήματα με τα βήματα.


Συνδυάστε εύκολα πολλά βιβλία εργασίας σε ένα στο Excel:

ο Συνδυασμός χρησιμότητα βιβλίων εργασίας Kutools για το Excel μπορεί να σας βοηθήσει να συνδυάσετε εύκολα πολλά αρχεία Excel σε ένα. Εκτός αυτού, σας επιτρέπει να συνδυάσετε τα καθορισμένα φύλλα εργασίας συγκεκριμένων αρχείων Excel σε ένα βιβλίο εργασίας εύκολα. Κατεβάστε το πλήρες χαρακτηριστικό δωρεάν μονοπάτι 60-ημέρα τώρα!

Συνδυάστε πολλά βιβλία εργασίας σε ένα βιβλίο εργασίας με τη λειτουργία Μετακίνηση ή Αντιγραφή

Εάν χρειάζεται να συνδυαστούν μόνο μερικά βιβλία εργασίας, μπορείτε να χρησιμοποιήσετε την εντολή Μετακίνηση ή Αντιγραφή για να μετακινήσετε ή να αντιγράψετε μη αυτόματα φύλλα εργασίας από το αρχικό βιβλίο εργασίας στο κύριο βιβλίο εργασίας.

1. Ανοίξτε τα βιβλία εργασίας που θα συγχωνευθούν σε ένα κύριο βιβλίο εργασίας.

2. Επιλέξτε τα φύλλα εργασίας στο αρχικό βιβλίο εργασίας που θα μετακινήσετε ή θα αντιγράψετε στο κύριο βιβλίο εργασίας.

:

1). Μπορείτε να επιλέξετε πολλά μη παρακείμενα φύλλα εργασίας με το πάτημα του Ctrl και κάνοντας κλικ στις καρτέλες φύλλου μία προς μία.

2). Για να επιλέξετε πολλά παρακείμενα φύλλα εργασίας, κάντε κλικ στην πρώτη καρτέλα φύλλου, κρατήστε πατημένο το αλλαγή και, στη συνέχεια, κάντε κλικ στην τελευταία καρτέλα φύλλου για να τα επιλέξετε όλα.

3). Μπορείτε να κάνετε δεξί κλικ σε οποιαδήποτε καρτέλα φύλλου, κάντε κλικ στο Επιλέξτε Όλα τα φύλλα από το μενού περιβάλλοντος για να επιλέξετε ταυτόχρονα όλα τα φύλλα εργασίας στο βιβλίο εργασίας.

3. Αφού επιλέξετε τα απαιτούμενα φύλλα εργασίας, κάντε δεξί κλικ στην καρτέλα φύλλο και στη συνέχεια κάντε κλικ στο κουμπί OK Μετακίνηση ή Αντιγραφή από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:

4. Μετά το Μετακίνηση ή Αντιγραφή εμφανίζεται το παράθυρο διαλόγου στο παράθυρο Να κάνετε κράτηση drop-down, επιλέξτε το κύριο βιβλίο εργασίας που θα μετακινήσετε ή θα αντιγράψετε φύλλα εργασίας. Επιλέξτε μετακίνηση για να τερματίσετε στο Πριν από το φύλλο , ελέγξτε το Δημιουργήστε ένα αντίγραφο και, τέλος, κάντε κλικ στο OK κουμπί.

Στη συνέχεια, μπορείτε να δείτε φύλλα εργασίας σε δύο βιβλία εργασίας σε συνδυασμό. Επαναλάβετε τα παραπάνω βήματα για να μετακινήσετε φύλλα εργασίας από άλλα βιβλία εργασίας στο κύριο βιβλίο εργασίας.

Καρτέλα Office - ένα πρόσθετο add-in σε πραγματικό χρόνο!

Προβολή όλων των ανοιγμένων εγγράφων σε ένα μόνο παράθυρο για την γρήγορη εύρεση ενός εγγράφου με μια ματιά.

Πλήρης δοκιμή δωρεάν δοκιμαστικής ημέρας 45. Συμβατό με κάθε έκδοση του Excel, Word και PowerPoint.

ΓΝΩΡΙΖΕΤΕ ΠΕΡΙΣΣΟΤΕΡΑ ΓΙΑ ΤΗΝ ΠΡΟΣΘΗΚΗ>

Συνδυάστε πολλά βιβλία εργασίας ή καθορισμένα φύλλα βιβλίων εργασίας σε ένα κύριο βιβλίο εργασίας με τη VBA

Εάν υπάρχουν πολλά βιβλία εργασίας πρέπει να συγχωνευθούν σε ένα, μπορείτε να εφαρμόσετε τους ακόλουθους κώδικες VBA για να το επιτύχετε γρήγορα. Παρακαλούμε κάντε τα εξής.

1. Τοποθετήστε όλα τα βιβλία εργασίας που θέλετε να συνδυάσετε σε ένα με τον ίδιο κατάλογο.

2. Εκκινήστε ένα αρχείο Excel (αυτό το βιβλίο εργασίας θα είναι το κύριο βιβλίο εργασίας).

3. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, στη συνέχεια αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο της ενότητας.

Κωδικός VBA 1: Συγχώνευση πολλών βιβλίων εργασίας του Excel σε ένα

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
	

:

1. Ο παραπάνω κώδικας VBA θα διατηρήσει τα ονόματα των φύλλων των αρχικών βιβλίων εργασίας μετά τη συγχώνευση.

2. Αν θέλετε να διακρίνετε ποια φύλλα εργασίας στο κύριο βιβλίο εργασίας ήρθαν από όπου μετά τη συγχώνευση, εφαρμόστε τον παρακάτω κώδικα VBA 2.

3. Αν θέλετε απλώς να συνδυάσετε συγκεκριμένα φύλλα εργασίας των βιβλίων εργασίας σε ένα κύριο βιβλίο εργασίας, ο παρακάτω κώδικας VBA 3 μπορεί να σας βοηθήσει.

Στους κώδικες VBA,C: \ Χρήστες \ DT168 \ Desktop \ KTE \"Είναι η διαδρομή του φακέλου. Στον κώδικα VBA 3, "Sheet1, Sheet3"είναι τα καθορισμένα φύλλα εργασίας των βιβλίων εργασίας που θα συνδυάσετε σε ένα κύριο βιβλίο εργασίας.Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.

Κωδικός VBA 2: Συγχώνευση βιβλίων εργασίας σε ένα (κάθε φύλλο εργασίας θα ονομάζεται με πρόθεμα του αρχικού του ονόματος αρχείου):

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 3: Συγχώνευση συγκεκριμένων φύλλων εργασίας βιβλίων εργασίας σε ένα κύριο βιβλίο εργασίας:

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. Πάτα το F5 για να εκτελέσετε τον κώδικα. Στη συνέχεια, όλα τα φύλλα εργασίας ή τα καθορισμένα φύλλα εργασίας των βιβλίων εργασίας του συγκεκριμένου φακέλου συνδυάζονται ταυτόχρονα σε ένα κύριο βιβλίο εργασίας.

Συνδυάστε εύκολα πολλά βιβλία εργασίας ή καθορισμένα φύλλα βιβλίων εργασίας σε ένα βιβλίο εργασίας

Kutools για το Excel

Πρόκειται για ένα εύχρηστο πρόσθετο Excel το οποίο συγκεντρώνει περισσότερες από τις προηγμένες λειτουργίες του 300 για την απλούστευση της εργασίας σας σε λειτουργίες του Excel. Με αυτό, μπορείτε εύκολα:

ΔΩΡΕΑΝ ΛΗΨΗ ΤΩΡΑ!

Ευτυχώς, το Συνδυασμός βοηθητικό πρόγραμμα βιβλίου εργασίας Kutools για το Excel καθιστά πολύ πιο εύκολη τη συγχώνευση πολλαπλών βιβλίων εργασίας σε ένα. Ας δούμε πώς μπορεί να λειτουργήσει αυτή η λειτουργία συνδυάζοντας πολλαπλά βιβλία εργασίας.

1. Δημιουργήστε ένα νέο βιβλίο εργασίας και κάντε κλικ στο κουμπί Kutools Περισσότερα > Συνδυασμός. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσω ότι όλα τα συνδυασμένα βιβλία εργασίας πρέπει να αποθηκευτούν και η δυνατότητα να μην εφαρμοστεί σε προστατευμένα βιβλία εργασίας, κάντε κλικ στο κουμπί OK κουμπί.

2. Στο Συνδυάστε τα φύλλα εργασίας οδηγό, επιλέξτε Συνδυάστε πολλά φύλλα εργασίας από βιβλία εργασίας σε ένα βιβλίο εργασίας , και στη συνέχεια κάντε κλικ στο κουμπί επόμενος κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Στο Συνδυάστε τα φύλλα εργασίας - Βήμα 2 του 3 , κάντε κλικ στο Προσθέτω > φιλέτο or Ντοσιέ για να προσθέσετε τα αρχεία του Excel που θα συγχωνεύσετε σε ένα. Μετά την προσθήκη των αρχείων του Excel, κάντε κλικ στο φινίρισμα και επιλέξτε ένα φάκελο για να αποθηκεύσετε το κύριο βιβλίο εργασίας. Δείτε το στιγμιότυπο οθόνης:

Τώρα όλα τα βιβλία εργασίας συγχωνεύονται σε ένα.

Σε σύγκριση με τις δύο παραπάνω μεθόδους, Kutools για το Excel έχει τα ακόλουθα πλεονεκτήματα:

  • 1) Όλα τα βιβλία εργασίας και τα φύλλα εργασίας παρατίθενται στο παράθυρο διαλόγου.
  • 2) Για τα φύλλα εργασίας που θέλετε να αποκλείσετε από τη συγχώνευση, απλά καταργήστε την επιλογή.
  • 3) Τα κενά φύλλα εργασίας αποκλείονται αυτόματα.
  • 4) Το αρχικό όνομα αρχείου θα προστεθεί ως πρόθεμα στο όνομα του φύλλου μετά τη συγχώνευση.
  • Για περισσότερες λειτουργίες αυτής της λειτουργίας, επισκεφθείτε εδώ.

Το κάνει αυτό Συνδυάστε βιβλία εργασίας Βοήθεια χρησιμότητας; Ας μεταφορτώσουμε και δοκιμάσουμε την πλήρη δοκιμαστική λειτουργία 60-free!

Συνιστώμενα εργαλεία παραγωγικότητας για το Microsoft Office

Καρτέλα Office - Περιήγηση με καρτέλες, επεξεργασία και διαχείριση σε Excel / Word / PowerPoint:

Καρτέλα Office φέρνει τη διεπαφή με καρτέλες όπως φαίνεται στα προγράμματα περιήγησης ιστού, όπως το Google Chrome, οι νέες εκδόσεις του Internet Explorer και ο Firefox στο Microsoft Excel / Word / PowerPoint. Θα είναι ένα εργαλείο εξοικονόμησης χρόνου και θα είναι αναντικατάστατο στη δουλειά σας. Δείτε παρακάτω demo:

Ot1

Kutools για Excel - Συνδυάζει περισσότερα από 300 Προηγμένες λειτουργίες και Εργαλεία για το Microsoft Excel:

Kutools για το Excel είναι ένα εύχρηστο Excel add-in με περισσότερες από 300 προηγμένες λειτουργίες για την απλοποίηση διαφόρων ειδών περίπλοκων εργασιών σε μερικά κλικ στο Excel. Για παράδειγμα:

  • Συνδυάστε ένα φύλλο εργασίας ή βιβλία εργασίας σε ένα βιβλίο εργασίας
  • Μετρήστε και αθροίστε τα κελιά με βάση το χρώμα φόντου / γραμματοσειράς
  • Διαχωρίστε τα περιεχόμενα των κελιών σε πολλές σειρές / στήλες ανά διάστημα / κόμμα / οριοθέτη
  • Παρτίδα Αφαιρέστε τους κύριους χώρους στα κελιά
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.