Πώς να συμπληρώσετε τους αριθμούς ακολουθίας παράλειψη κρυφών σειρών στο Excel;

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

Συμπληρώστε τους αριθμούς ακολουθίας παραλείψτε τις κρυφές σειρές με τον τύπο

Συμπληρώστε τους αριθμούς ακολουθίας παραλείψτε κρυφές σειρές με τον κωδικό VBA

Συμπληρώστε τους αριθμούς ακολουθίας παραλείψτε κρυφές σειρές με το Kutools για Excel

Συμπληρώστε τους αριθμούς ακολουθίας παραλείψτε τις κρυφές σειρές με τον τύπο

Για να συμπληρώσετε τους αριθμούς ακολουθίας μόνο στα ορατά κελιά, ένας απλός τύπος μπορεί να σας βοηθήσει, κάντε τα εξής:

1. Εισαγάγετε αυτόν τον τύπο: = SUBTOTAL (103, $ B $ 3: $ B3)(B3 είναι το ορατό κελί που αντιστοιχεί στο κελί στο οποίο θέλετε να αρχίσετε να γεμίζετε τον αριθμό ακολουθίας) στο πρώτο κελί όπου θέλετε να συμπληρώσετε τους αριθμούς ακολουθίας, A3, για αυτήν την περίπτωση και, στη συνέχεια, πατήστε εισάγετε κλειδί, θα λάβετε έναν αριθμό 1, δείτε το στιγμιότυπο οθόνης:

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

Συμπληρώστε τους αριθμούς ακολουθίας παραλείψτε κρυφές σειρές με τον κωδικό VBA

Ο παρακάτω κώδικας VBA μπορεί επίσης να σας βοηθήσει να συμπληρώσετε τους αριθμούς ακολουθίας μόνο σε ορατά κελιά, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Συμπληρώστε τους αριθμούς ακολουθίας παράλειψη κρυφών σειρών:

Sub FillValue()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xVal As Long
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = xRg.SpecialCells(xlVisible)
    Debug.Print xRg.Address
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        xVal = xVal + 1
        xCell = xVal
    Next
End Sub

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

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, οι αριθμοί ακολουθίας έχουν συμπληρωθεί μόνο στα ορατά κελιά.

Συμπληρώστε τους αριθμούς ακολουθίας παραλείψτε κρυφές σειρές με το Kutools για Excel

Οι παραπάνω δύο μέθοδοι μπορούν μόνο να σας βοηθήσουν να συμπληρώσετε τους αριθμούς ακολουθίας στα ορατά κελιά, εάν θέλετε να συμπληρώσετε την ακολουθία ως AA-0001-BB, AA-0002-BB, AA-0003-BB…, οι παραπάνω μέθοδοι δεν θα λειτουργήσουν. Αλλά, μην ανησυχείτε, Kutools για Excel'S Εισαγωγή αριθμού ακολουθίας βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να το ολοκληρώσετε γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

1. Επιλέξτε τα κελιά που θέλετε να συμπληρώσετε συμβολοσειρές ακολουθίας.

2. Κλίκ Kutools > Κύριο θέμα > Εισαγωγή αριθμού ακολουθίας, Στην Εισαγωγή αριθμού ακολουθίας , κάντε κλικ στην επιλογή Νέα κουμπί, δείτε στιγμιότυπα οθόνης:

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

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

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

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

Επίδειξη: Συμπληρώστε τους αριθμούς ακολουθίας παραλείψτε κρυφές σειρές με το Kutools για Excel