Πώς να μετακινηθείτε σε γραμμές μέχρι να είναι κενό στη στήλη Excel;

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

Περάστε τις σειρές μέχρι να αδειάσει με VBA

Περάστε τις σειρές μέχρι να αδειάσει με VBA

1. Τύπος Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

VBA: Βρόχος μέχρι κενό

Sub Test1()
'UpdatebyExtendoffice20161222
      Dim x As Integer
      Application.ScreenUpdating = False
      ' Set numrows = number of rows of data.
      NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
      ' Select cell a1.
      Range("A1").Select
      ' Establish "For" loop to loop "numrows" number of times.
      For x = 1 To NumRows
         ' Insert your code here.
         ' Selects cell down 1 row from active cell.
         ActiveCell.Offset(1, 0).Select
      Next
      Application.ScreenUpdating = True
End Sub

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

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

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

Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
      ' Select cell A2, *first line of data*.
      Dim xrg As Range
      On Error Resume Next
      Set xrg = Application.InputBox _
        (Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
      xrg.Cells(1, 1).Select
      ' Set Do loop to stop when two consecutive empty cells are reached.
      Application.ScreenUpdating = False
      Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
         ' Insert your code here.
         '
         ' Step down 2 rows from present location.
         ActiveCell.Offset(2, 0).Select
      Loop
      Application.ScreenUpdating = False
End Sub

Στη συνέχεια, πρέπει να επιλέξετε το πρώτο κελί από το οποίο θέλετε να κάνετε βρόχο στο Kutools για Excel κάντε κλικ στο πλαίσιο διαλόγου OK, τότε ο δρομέας σταματά στα πρώτα συνεχόμενα κενά κελιά.

Ξεκλειδώστε το Excel Magic με Kutools AI

• Έξυπνη εκτέλεση: Εκτελέστε λειτουργίες κυψέλης, αναλύστε δεδομένα και δημιουργήστε γραφήματα—όλα αυτά καθοδηγούνται από απλές εντολές.
• Προσαρμοσμένες φόρμουλες: Δημιουργήστε προσαρμοσμένους τύπους για να βελτιστοποιήσετε τις ροές εργασίας σας.
• Κωδικοποίηση VBA: Γράψτε και εφαρμόστε τον κώδικα VBA χωρίς κόπο.
• Ερμηνεία τύπου: Κατανοήστε πολύπλοκους τύπους με ευκολία.
• Μετάφραση κειμένου: Σπάστε τα γλωσσικά εμπόδια στα υπολογιστικά φύλλα σας.

Βελτιώστε τις δυνατότητές σας στο Excel με εργαλεία που υποστηρίζονται από AI. Κατεβάστε τώρα και βιώστε την αποτελεσματικότητα όπως ποτέ άλλοτε!