Πώς να αριθμείτε αυτόματα συγχωνευμένα κελιά στο Excel;
Πώς θα μπορούσαμε να συμπληρώσουμε αριθμούς σειράς σε μια λίστα συγχωνευμένων κελιών διαφορετικού μεγέθους στο Excel; Πρώτα στο μυαλό μας είναι να σύρετε τη λαβή αυτόματης συμπλήρωσης για να γεμίσετε τα συγχωνευμένα κελιά, αλλά, σε αυτήν την περίπτωση, θα λάβουμε το ακόλουθο προειδοποιητικό μήνυμα και δεν μπορούμε να γεμίσουμε τα συγχωνευμένα κελιά.
Επειδή η λαβή πλήρωσης δεν υποστηρίζει τα συγχωνευμένα κελιά, εδώ, μπορώ να μιλήσω για μερικά άλλα κόλπα για την επίλυση αυτού του προβλήματος.
Αυτόματος αριθμός / συμπλήρωση συγχωνευμένων κελιών με κωδικό VBA
Αυτόματος αριθμός / συμπλήρωση συγχωνευμένων κελιών με κωδικό VBA
Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αριθμήσετε γρήγορα τα επιλεγμένα συγχωνευμένα κελιά. Κάντε τα εξής:
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Αυτόματη συγχώνευση κελιών
Sub NumberCellsAndMergedCells()
'Update 20141028
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας επιτρέψει να επιλέξετε τα συγχωνευμένα κελιά που θέλετε να συμπληρώσετε, δείτε το στιγμιότυπο οθόνης:
4. Αφού επιλέξετε τα συγχωνευμένα κελιά και κάντε κλικ στο OK, τώρα, τα επιλεγμένα συγχωνευμένα κελιά σας έχουν γεμίσει με διαδοχικούς αριθμούς, δείτε το στιγμιότυπο οθόνης:
Σχετικά άρθρα:
Πώς να κάνετε αυτόματο αριθμό ή αρίθμηση μετά το φίλτρο στο Excel;
Πώς να συγχωνεύσετε γρήγορα παρακείμενες σειρές με ίδια δεδομένα στο Excel;
Πώς να καταργήσετε τη συγχώνευση κελιών και να γεμίσετε με διπλές τιμές στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!