Πώς να δημιουργήσετε φύλλα εργασίας ακολουθίας από μια σειρά κελιών στο Excel;
Εάν έχετε μια σειρά δεδομένων στο φύλλο εργασίας σας και τώρα, θέλετε να δημιουργήσετε μια ακολουθία φύλλων εργασίας με βάση τα δεδομένα κελιού, δείτε το παρακάτω στιγμιότυπο οθόνης. Φυσικά, μπορείτε να επεξεργαστείτε το όνομα του φύλλου εργασίας ένα προς ένα χειροκίνητα, αλλά αν υπάρχουν πολλά ονόματα φύλλων εργασίας που πρέπει να επεξεργαστούν, αυτός ο τρόπος θα είναι ενοχλητικός και χρονοβόρος. Εδώ, θα μιλήσω για μερικά γρήγορα κόλπα για να σας βοηθήσω.
Δημιουργία φύλλων εργασίας ακολουθίας από λίστα κελιών με κώδικα VBA
Δημιουργήστε φύλλα εργασίας ακολουθίας από τη λίστα κελιών με το Kutools για Excel
Δημιουργία φύλλων εργασίας ακολουθίας από λίστα κελιών με κώδικα VBA
Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να προσθέσετε ορισμένα φύλλα εργασίας που ονομάζονται με βάση τα περιεχόμενα του κελιού μετά από υπάρχοντα φύλλα εργασίας. Κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 και μετά ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: προσθέστε φύλλα εργασίας ακολουθίας με βάση τη λίστα κελιών
Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και, στη συνέχεια, θα εμφανιστεί ένα πλαίσιο προτροπής για να επιλέξετε το εύρος που θέλετε να χρησιμοποιήσετε. Δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, τα φύλλα εργασίας που ονομάζονται από τις τιμές κελιών έχουν προστεθεί μετά το υπάρχον φύλλο εργασίας. Δείτε το στιγμιότυπο οθόνης:
:
1. Τα νέα φύλλα εργασίας θα εισαχθούν μετά το τρέχον φύλλο εργασίας.
2. Εάν το επιλεγμένο εύρος περιλαμβάνει κενά κελιά, τα φύλλα εργασίας ονομάζονται βάσει προεπιλογής. Δείτε στιγμιότυπα οθόνης:
 |
 |
 |
Δημιουργήστε φύλλα εργασίας ακολουθίας από τη λίστα κελιών με το Kutools για Excel
Εδώ, παρουσιάζω ένα εύχρηστο εργαλείο-Kutools για Excel, Με τους Δημιουργία φύλλων εργασίας ακολουθίας, μπορείτε να δημιουργήσετε γρήγορα φύλλα εργασίας με όνομα μήνα, όνομα ημέρας, προσαρμοσμένη λίστα και ούτω καθεξής.
Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Αποκτήστε το τώρα.
Μετά την εγκατάσταση του Kutools για Excel, κάντε τα εξής βήματα:
1. Επιλέξτε το εύρος στο οποίο θέλετε να δημιουργήσετε φύλλα εργασίας βάσει.
2. Πατήστε Εταιρεία > Εργαλεία φύλλου εργασίας > Δημιουργία φύλλων εργασίας ακολουθίας, δείτε το στιγμιότυπο οθόνης:
3. Στην Δημιουργία φύλλων εργασίας ακολουθίας πλαίσιο διαλόγου, επιλέξτε τον τύπο φύλλου εργασίας που θέλετε να δημιουργήσετε τα νέα φύλλα εργασίας ακολουθίας και, στη συνέχεια, επιλέξτε Δεδομένα σε εύρος επιλογή, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου και έχει δημιουργηθεί ένα νέο βιβλίο εργασίας που περιέχει τα φύλλα εργασίας από τα επιλεγμένα δεδομένα εύρους. Δείτε το στιγμιότυπο οθόνης:
:
1. Εάν επιλέξετε Φύλλο 1 ή Φύλλο 2, τα νέα φύλλα εργασίας που δημιουργούνται θα έχουν την ίδια μορφοποίηση με το Φύλλο 1 ή το Φύλλο 2.
2. Τα νέα φύλλα εργασίας δημιουργούνται σε ένα νέο βιβλίο εργασίας.
3. Εάν το επιλεγμένο εύρος περιλαμβάνει κενά κελιά, τα φύλλα εργασίας ονομάζονται βάσει προεπιλογής. Δείτε στιγμιότυπα οθόνης:
 |
|
 |
Κάντε κλικ για να μάθετε περισσότερα σχετικά με αυτήν τη δυνατότητα Δημιουργία φύλλων ακολουθίας.
Σχετικό άρθρο:
Πώς να προσθέσετε νέα φύλλα εργασίας με προσαρμοσμένα ονόματα στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
