Note: The other languages of the website are Google-translated. Back to English

Πώς να συγχωνεύσετε ή να συνδυάσετε φύλλα εργασίας ή βιβλία εργασίας σε ένα φύλλο εργασίας;

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

doc συνδυάστε 1

ΓΡΗΓΟΡΗ ΠΛΟΗΓΗΣΗ

Συγχώνευση όλων των φύλλων του ενεργού βιβλίου εργασίας σε ένα φύλλο με το VBA
Συγχώνευση δεκάδων φύλλων ή βιβλίων εργασίας σε ένα φύλλο εργασίας / βιβλίο εργασίας με κλικ
Συγχώνευση δύο πινάκων σε έναν και ενημέρωση από μια στήλη με κλικ
Λήψη δείγματος αρχείου


Συγχώνευση όλων των φύλλων του ενεργού βιβλίου εργασίας σε ένα φύλλο με το VBA

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

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να συνδυάσετε όλα τα φύλλα του και, στη συνέχεια, πατήστε + κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο αναδυόμενο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε ένα νέο σενάριο Module.

3. Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τους στο σενάριο.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc συνδυάστε 2

4. Τύπος F5 κλειδί, τότε όλα τα δεδομένα σε όλα τα φύλλα έχουν συγχωνευτεί σε ένα νέο φύλλο που ονομάζεται Combined το οποίο τοποθετείται στο μπροστινό μέρος όλων των φύλλων.


μετακινηθείτε

Θέλετε να αυξήσετε τις πληρωμές και πολύ χρόνο για να συνοδεύσετε την οικογένεια;

Η καρτέλα του Office βελτιώνει την αποτελεσματικότητά σας κατά 50% στο Microsoft Office που λειτουργεί τώρα

Απίστευτο, η εργασία σε δύο ή περισσότερα έγγραφα είναι ευκολότερη και ταχύτερη από την εργασία σε ένα.

Σε σύγκριση με γνωστά προγράμματα περιήγησης, το εργαλείο καρτελών στο Office Tab είναι πιο ισχυρό και πιο αποτελεσματικό.

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

Εάν συνήθως εργάζεστε σε πολλά έγγραφα, η καρτέλα του Office θα είναι μια εξαιρετική εξοικονόμηση χρόνου για εσάς.

Δωρεάν δοκιμαστική περίοδο 30, δεν απαιτείται πιστωτική κάρτα.

ΔΙΑΒΑΣΤΕ ΠΕΡΙΣΣΟΤΕΡΑΔωρεάν Λήψη Τώρα


Συγχώνευση δεκάδων φύλλων ή βιβλίων εργασίας σε ένα φύλλο εργασίας / βιβλίο εργασίας με κλικ

Με το VBA, μπορείτε μόνο να συνδυάσετε φύλλα στο ενεργό βιβλίο εργασίας, αλλά πώς μπορείτε να συγχωνεύσετε φύλλα σε βιβλία εργασίας σε ένα φύλλο ή ένα βιβλίο εργασίας;

Συγχώνευση φύλλων σε βιβλία εργασίας σε ένα φύλλο
doc συνδυάστε 18

Συγχώνευση φύλλων σε βιβλία εργασίας σε ένα βιβλίο εργασίας
doc συνδυάστε 3

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

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

Ακολουθεί η δεύτερη επιλογή ως παράδειγμα:

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

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Ενεργοποιήστε το Excel, κάντε κλικ στο Kutools Plus > Συνδυασμός, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι τα βιβλία εργασίας που θέλετε να συνδυάσετε πρέπει να κλείσουν. Κάντε κλικ OK για να συνεχίσετε.
doc συνδυάστε 4
doc συνδυάστε 5

2. Στο Συνδυάστε τα φύλλα εργασίας βήμα 1 διάλογος, ελέγξτε Συνδυάστε πολλά φύλλα εργασίας από βιβλία εργασίας σε ένα βιβλίο εργασίας επιλογή. Κάντε κλικ επόμενος για να μεταβείτε στο επόμενο βήμα του οδηγού.
doc συνδυάστε 6

3. κλικ Προσθέτω > φιλέτο or Folder για να προσθέσετε τα βιβλία εργασίας που θέλετε να συνδυάσετε στο Λίστα βιβλίων εργασίας και, στη συνέχεια, μπορείτε να καθορίσετε σε ποιο φύλλο εργασίας θα ενωθούν, ελέγχοντας τα ονόματα Λίστα φύλλων εργασίας τζάμι. Κάντε κλικ επόμενος για να μεταβείτε στο τελευταίο βήμα του οδηγού.
doc συνδυάστε 7

4. Σε αυτό το βήμα, καθορίστε τις ρυθμίσεις που χρειάζεστε. Στη συνέχεια κάντε κλικ φινίρισμα.
doc συνδυάστε 8

5. Εμφανίζεται ένα παράθυρο για να επιλέξετε έναν φάκελο για να τοποθετήσετε το συνδυασμένο βιβλίο εργασίας και, στη συνέχεια, κάντε κλικ στο Αποθήκευση.
doc συνδυάστε 9

Τώρα τα βιβλία εργασίας έχουν συγχωνευτεί σε ένα βιβλίο εργασίας. Και στο μπροστινό μέρος όλων των φύλλων, δημιουργείται επίσης ένα κύριο φύλλο με το όνομα Kutools για Excel, το οποίο παραθέτει ορισμένες πληροφορίες σχετικά με τα φύλλα και τους συνδέσμους για κάθε φύλλο.
doc συνδυάστε 10

Επίδειξη: Συνδυάστε φύλλα / βιβλία εργασίας σε ένα φύλλο ή βιβλίο εργασίας

Kutools για Excel: 200 + χρήσιμα εύχρηστα εργαλεία, απλοποιώντας τις πολύπλοκες εργασίες στο Excel σε μερικά κλικ.

Πείτε αντίο στο χέρι του ποντικιού και την αυχενική σπονδυλίωση τώρα

300 προηγμένα εργαλεία του Kutools για Excel επιλύουν 80% εργασίες Excel σε δευτερόλεπτα, τραβούν τα χιλιάδες κλικ του ποντικιού.

Αντιμετωπίστε εύκολα 1500 σενάρια εργασίας, δεν χρειάζεται να χάνετε χρόνο για αναζήτηση λύσεων, έχετε πολύ χρόνο για να απολαύσετε τη ζωή σας.

Βελτιώστε την παραγωγικότητα 80% για 110000+ πολύ αποτελεσματικά άτομα κάθε μέρα, φυσικά και εσείς.

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

Δωρεάν δοκιμή 30 ημερών με πλήρη χαρακτηριστικά, επιστροφή χρημάτων 30 ημερών χωρίς λόγους.

Ένα καλύτερο σώμα δημιουργεί μια καλύτερη ζωή.


Συγχώνευση δύο πινάκων σε έναν και ενημέρωση από μια στήλη με κλικ

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

Kutools για Excel: περισσότερα από 200 εύχρηστα πρόσθετα του Excel για απλοποίηση πολύπλοκων εργασιών σε λίγα κλικ στο Excel

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. κλικ Kutools Plus > Συγχώνευση πινάκων να επιτρέψει Συγχώνευση πινάκων οδηγός.
doc συνδυάστε 12

2. Στο βήμα 1 του οδηγού, πρέπει να επιλέξετε ξεχωριστά τον κύριο πίνακα και τα εύρη του πίνακα αναζήτησης. Στη συνέχεια κάντε κλικ επόμενος.
doc συνδυάστε 13

3. Ελέγξτε τη στήλη κλειδιού στην οποία θέλετε να ενημερώσετε τα δεδομένα στον κύριο πίνακα βάσει. Κάντε κλικ επόμενος.
doc συνδυάστε 14

4. Στη συνέχεια, ελέγξτε τις στήλες στον κύριο πίνακα που θέλετε να ενημερώσετε τα δεδομένα με βάση τον πίνακα αναζήτησης. Κάντε κλικ επόμενος.
doc συνδυάστε 15

5. Στο βήμα 4 του οδηγού, ελέγξτε τις στήλες που θέλετε να προσθέσετε από τον πίνακα αναζήτησης στον κύριο πίνακα. Κάντε κλικ επόμενος.
doc συνδυάστε 16

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

Τώρα ο κύριος πίνακας έχει ενημερώσει τα δεδομένα και προσθέτει νέα δεδομένα με βάση τον πίνακα αναζήτησης.

Επίδειξη: Συνδυάστε φύλλα / βιβλία εργασίας σε ένα φύλλο ή βιβλίο εργασίας

Kutools για Excel: 200 + χρήσιμα εύχρηστα εργαλεία, απλοποιώντας τις πολύπλοκες εργασίες στο Excel σε μερικά κλικ.


Λήψη δείγματος αρχείου

δείγμα


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

Καρτέλα Office - Περιήγηση με καρτέλες, Επεξεργασία, Διαχείριση εγγράφων στο Microsoft Office 2019 - 2003 και Office 365


καρτέλα γραφείου

Ένα επαγγελματικό πρόσθετο για την επιτάχυνση του Excel 2019-2007, συρρικνώστε τις ώρες εργασίας σε δευτερόλεπτα

Αυτό το πρόσθετο περιλαμβάνει δεκάδες επαγγελματικές ομάδες, με 300+ επιλογές θα αυτοματοποιήσουν τις περισσότερες από τις καθημερινές σας εργασίες στο Excel και θα αυξήσουν την παραγωγικότητά σας τουλάχιστον κατά 50%. Όπως ομάδες οπτικών με ένα κλικ και ομαδικές μετατροπές.
Τώρα είναι η ευκαιρία σας να επιταχύνετε τον εαυτό σας με το Kutools για Excel!


Σχόλια (168)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
χρησιμοποιήσατε την πρώτη σας λειτουργία Macro. ΟΥΑΟΥ! ευχαριστώ για την ανάρτηση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Νομίζω ότι ο κωδικόςSelection.Offset(0, 0).Αλλαγή μεγέθους(Selection.Rows.Count - 1).Select«δεν πρέπει να είναι εκεί. Στο τέλος μου, αυτό που κάνει είναι να επιλέγει τη δεύτερη σειρά και μετά λείπει η πρώτη.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εχω το ίδιο πρόβλημα. Παραλείπει την πρώτη σειρά από το δεύτερο φύλλο εργασίας που προστέθηκε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καταργεί τις κεφαλίδες για να μην έχετε διπλότυπες κεφαλίδες
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί σαν γούρι, ευχαριστώ για την κοινή χρήση!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ! Η μακροεντολή λειτούργησε τέλεια.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δεν ξέρω πώς να χρησιμοποιήσω τη συνάρτηση VBN στο excel, μπορείτε παρακαλώ να βοηθήσετε πώς να το κάνω αυτό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπέροχο, ευχαριστώ!!! Πολύ Πολύ Χρήσιμο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το Macro one λειτουργεί μια χαρά. Ευχαριστώ!! Είναι φοβερό!!!! :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σημειώστε ότι αυτό περιορίζεται από το όριο των 65 χιλιάδων σειρών, εάν πρέπει να αυξήσετε τη γραμμή Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) εύρος για να επιλύσετε το πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικό εργαλείο όμως, δεν συνδυάζει και τα 21 φύλλα. Πώς μπορώ να επεκτείνω το εύρος;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΣΗΜΕΙΩΣΗ!!! Πρέπει να είστε προσεκτικοί με τη μακροεντολή.. θα λειτουργήσει εάν τα δεδομένα σας έχουν συνεχή ροή πληροφοριών και χωρίς κενή σειρά. αυτό κάνει η γραμμή "Selection.CurrentRegion.Select". Για παράδειγμα, εάν πρέπει να αντιγράψετε ΟΛΑ τα δεδομένα σε ένα υπολογιστικό φύλλο, αλλά υπάρχει μια κενή γραμμή (ας πούμε) στη σειρά 200, η ​​μακροεντολή θα αντιγράψει μόνο στη σειρά 200. ΘΑ ΠΕΡΙΦΕΡΕΙ ΟΛΑ ΤΑ ΔΕΔΟΜΕΝΑ ΚΑΤΩ ΑΠΟ ΑΥΤΗ ΤΗ ΣΕΙΡΑ!!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξέρει κανείς κάποια εντολή για να αποφευχθεί αυτό το θέμα;; Το πρόβλημα με το Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select μπορεί να λυθεί; Selection.Rows.Count - 1) είναι η εντολή που δημιουργεί το ζήτημα. Ο καθενας??
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αντί να ξεκινάτε από την κορυφή και να κατεβαίνετε, ξεκινήστε από κάτω και ανεβείτε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξέρει κανείς τον κώδικα για την επίλυση προβλημάτων κενών γραμμών και στηλών;. Το έχω στα δεδομένα μου αλλά δεν υπάρχει απλή λύση όπως εκκίνηση από κάτω προς τα πάνω; Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Για τη διαγραφή σειρών που είναι κενές: Επιλογή 1: Επιλέξτε κελιά στη στήλη Α που πρέπει να διαγραφούν. Χρησιμοποιήστε Ctrl - και, στη συνέχεια, επιλέξτε Ολόκληρη τη σειρά στο αναδυόμενο παράθυρο. Αποθήκευση βιβλίου εργασίας και έξοδος. Στη συνέχεια ανοίξτε το βιβλίο εργασίας. Επιλογή 2: Επιλέξτε σειρές που πρέπει να διαγραφούν. Χρησιμοποιήστε Ctrl -. Αποθήκευση βιβλίου εργασίας και έξοδος από το ανοιχτό βιβλίο εργασίας. Έδωσα την επιλογή 1, ώστε να είναι ορατό σε εσάς τι συνέβαινε. Για τη διαγραφή στηλών που είναι κενές: Επιλέξτε στήλη. Ctrl -. Αποθήκευση βιβλίου εργασίας και έξοδος από το ανοιχτό βιβλίο εργασίας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχουμε κάποια λύση για να αντιγράψουμε τα δεδομένα κάτω από το κενό κελί;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ ! Η 2η σειρά μου ήταν άδεια σε όλα τα φύλλα και ήμουν μπερδεμένος.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ο κώδικας vba λειτούργησε τέλεια, αλλά χρειάζομαι το συνδυασμένο φύλλο εργασίας για ενημέρωση καθώς προσθέτω νέες σειρές ή νέα δεδομένα στα κελιά των φύλλων εργασίας που συνδυάζω. Υπάρχει τρόπος να γίνει αυτό; Σας ευχαριστώ για τη βοήθειά σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας μακροεντολής λειτούργησε εξαιρετικά για το πρώτο συνδυασμένο φύλλο εργασίας, αλλά χρειάζομαι το συνδυασμένο φύλλο εργασίας για ενημέρωση καθώς προσθέτω δεδομένα στα υπάρχοντα φύλλα εργασίας που συνδυάζω. Υπάρχει τρόπος να γίνει αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καταλάβατε ποτέ πώς να το ενημερώσετε στο κύριο καθώς προσθέτετε σε σειρές στα άλλα φύλλα εργασίας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετική δουλειά.. Η δουλειά μου μειώθηκε από 2 ώρες σε 10 λεπτά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικό, χρησιμοποίησα τόσο την πρώτη μακροεντολή όσο και το Kutools, και τα δύο μείωσαν τρομερά τη συλλογή και τη συλλογή δεδομένων μου. Ευχαριστώ που το μοιράστηκες.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μόλις έσβησα το τμήμα που δίνεται παρακάτω και τώρα ενημερώνεται μόνο. Ελπίζουμε ότι αυτό βοηθά... Φύλλα(1).Επιλέξτε Φύλλα εργασίας.Προσθήκη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας λειτουργεί υπέροχα! Χρειάζομαι τη μακροεντολή για να αντιγράψω όλα τα δεδομένα στα φύλλα. Κόβει την πρώτη σειρά μετά το Φύλλο 1. Μόνο το πρώτο φύλλο έχει τη σειρά κεφαλίδας, τα άλλα φύλλα είναι απλώς δεδομένα. Είναι δυνατόν;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω μια ερώτηση σχετικά με τη "Συγχώνευση όλων των φύλλων εργασίας σε ένα φύλλο εργασίας με κώδικα VBA" :Ο κώδικας λειτουργεί πολύ καλά, αλλά μόνο όταν είναι κενός, προσθέτει την κεφαλίδα, είναι δυνατό να τροποποιήσετε τον κώδικα ώστε να μην ενοποιηθεί το κενό φύλλο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ, μου εξοικονομήσατε μια ώρα αντιγραφής και επικόλλησης :D
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχετε δύο βιβλία εργασίας, τα ίδια δεδομένα αλλά το δεύτερο έχει επιπλέον δεδομένα και ορισμένα δεδομένα έχουν ενημερωθεί, inv# Κατάσταση 123 7/2 ανοιχτό inv# κατάσταση 123 7/2 ανοιχτό 7/7 κλειστό πώς να συγχωνεύσετε σε ένα αφαιρώντας ή επισημαίνοντας διπλότυπα και προσθέτοντας οποιοδήποτε νέο inv# όχι στο πρώτο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί υπέροχα εάν η Στήλη Α σας δεν είναι κενή. Σε φύλλα με κενή στήλη Α, φαίνεται να αντικαθίσταται. Στη στήλη dtaa μου το Ε είναι ένα μη κενό σε όλα τα φύλλα. Πώς μπορώ να τροποποιήσω τον Προορισμό αντιγραφής ώστε να λαμβάνεται υπόψη η κενή στήλη Α σε ορισμένα φύλλα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 έως 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1).Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection .End(xlToRight)).Επιλέξτε Selection.Cut Sheets("Sheet1").Select ActiveSheet.Paste Next End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εύρος ("A:A").SpecialCells(xlCellTypeLastCell).Επιλέξτε ActiveCell.Offset(1, 0).Επιλέξτε 'χρησιμοποιήστε αυτόν τον κωδικό για να επιλέξετε το τελευταίο κελί στη στήλη "A" [εισαγόμενο] Sub CopySheet() ' ' CopySheet Macro ' Dim i ως ακέραιος αριθμός για i = 2 έως 25 φύλλα ("Φύλλο 1"). Επιλέξτε Εύρος ("A1"). Επιλέξτε Επιλογή. Τέλος (xlDown). Επιλέξτε Εύρος ("A" & CStr(Επιλογή.Σειρά) + 1) .Επιλέξτε Φύλλα("Φύλλο" & CStr(i)).Επιλέξτε Εύρος("A2").Επιλέξτε Εύρος(Επιλογή,Επιλογή.Τέλος(xlDown)).Επιλέξτε Εύρος(Επιλογή,Επιλογή.Τέλος(xlToRight)).Επιλέξτε Επιλογή .Cut Sheets("Sheet1").Επιλέξτε ActiveSheet.Paste Next End SubΑπό την Κλοπές[/ Quote]
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο ΚΩΔΙΚΟΣ ΜΑΚΡΟ ΛΕΙΤΟΥΡΓΗΣΕ ΤΟΣΟ ΚΑΛΑ... ΦΟΒΕΡΗ ΔΟΥΛΕΙΑ :-)
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες