Πίνακας περιεχομένων
Σήμερα θα σας δείξω πώς μπορείτε να μετρήσετε σειρές με VBA στο Excel από οποιοδήποτε σύνολο δεδομένων. Θα σας δείξω πώς μπορείτε να μετράτε γραμμές από ένα συγκεκριμένο εύρος, από ένα επιλεγμένο εύρος, ταιριάζοντας με ένα συγκεκριμένο κριτήριο, ταιριάζοντας με μια συγκεκριμένη τιμή κειμένου και αποκλείοντας τα κενά κελιά.
Κατεβάστε το βιβλίο ασκήσεων
Καταμέτρηση σειρών με VBA.xlsm5 μέθοδοι για την καταμέτρηση σειρών με VBA στο Excel
Εδώ έχουμε ένα σύνολο δεδομένων με τα ονόματα ορισμένων μαθητών και τα σημάδια τους στα Αγγλικά σε ένα σχολείο που ονομάζεται Sunflower Kindergarten.
Σήμερα ο στόχος μας είναι να μετρήσουμε το συνολικό αριθμό των γραμμών χρησιμοποιώντας ένα Κώδικας VBA .
1. Χρήση κώδικα VBA για την καταμέτρηση σειρών μιας συγκεκριμένης περιοχής
⧪ Βήμα 1:
➤ Τύπος ALT+F11 στο πληκτρολόγιό σας. Παράθυρο VBA θα ανοίξει.
⧪ Βήμα 2:
➤ Πηγαίνετε στο Εισαγωγή στην καρτέλα VBA παράθυρο.
➤ Από τις διαθέσιμες επιλογές, επιλέξτε Ενότητα .
I 
⧪ Βήμα 3:
➤ Ένα νέο παράθυρο ενότητας που ονομάζεται "Ενότητα 1" θα ανοίξει.
➤ Εισάγετε τα ακόλουθα VBA κώδικα στην ενότητα.
Κωδ:
Sub Count_Rows() Dim rng As Range Set rng = Range("B4:C13") MsgBox rng.Rows.Count End Sub Σημειώσεις:
- Αυτός ο κώδικας παράγει ένα Μάκρο που ονομάζεται Count_Rows .
- Το 3η γραμμή του κώδικα περιέχει το καθορισμένο εύρος " B4:C13″. Θέλω να μετρήσω τον αριθμό των γραμμών σε αυτό το εύρος.
- Χρησιμοποιήστε το δικό σας.
⧪ Βήμα 4:
➤ Αποθηκεύστε το βιβλίο εργασίας ως Βιβλίο εργασίας με δυνατότητα μακροεντολών του Excel .
⧪ Βήμα 5:
➤ Επιστρέψτε στο φύλλο εργασίας σας και πατήστε ALT+F8 στο πληκτρολόγιό σας.
➤ Ένα παράθυρο διαλόγου που ονομάζεται Μάκρο θα ανοίξει. Επιλέξτε Count_Rows ( Το όνομα του Macro) και κάντε κλικ στο Εκτέλεση .
⧪ Βήμα 6:
➤ Θα βρείτε ένα μικρό πλαίσιο μηνυμάτων που δείχνει τον αριθμό των συνολικών γραμμών ( 10 σε αυτή την περίπτωση).
➤ Κάντε κλικ στο OK για έξοδο.
Διαβάστε περισσότερα: Excel VBA για να μετρήσετε σειρές με δεδομένα
2. Εκτέλεση του κώδικα VBA του Excel για την καταμέτρηση των σειρών μιας επιλεγμένης περιοχής
Στην προηγούμενη μέθοδο, μετρήσαμε τον αριθμό των γραμμών ενός συγκεκριμένου εύρους ( B4:C13 ).
Αλλά μπορούμε επίσης να χρησιμοποιήσουμε ένα VBA κώδικα για να μετρήσουμε τον αριθμό των γραμμών σε οποιοδήποτε επιλεγμένο εύρος σύμφωνα με την επιθυμία μας.
Τα βήματα είναι όλα τα ίδια όπως Μέθοδος 1 ( Βήμα 1-6 ).
⧪ Just in Βήμα 3 , αντί του προηγούμενου κώδικα, εισάγετε αυτόν τον κώδικα:
Κωδ:
Sub Count_Selected_Rows() Dim rng As Range Set rng = Selection MsgBox rng.Rows.Count End Sub Σημείωση:
- Αυτός ο κώδικας δημιουργεί μια ενότητα που ονομάζεται Count_Selected_Rows .
⧪ Και στο Βήμα 5 , πριν από την εκτέλεση του κώδικα, επιλέξτε πρώτα ένα εύρος. Εδώ έχω επιλέξει ολόκληρο το σύνολο των δεδομένων μου (Χωρίς το Επικεφαλίδες στηλών ).
⧪ Στη συνέχεια πατήστε ALT+F8 , επιλέξτε Count_Selected_Rows , και κάντε κλικ στο Εκτέλεση .
Θα εμφανιστεί ένα πλαίσιο μηνύματος που θα σας δείχνει τον συνολικό αριθμό των γραμμών στο επιλεγμένο εύρος ( 10 σε αυτή την περίπτωση.)
3. Εισαγωγή κώδικα VBA για την καταμέτρηση σειρών με κριτήρια στο Excel
Μπορούμε επίσης να χρησιμοποιήσουμε ένα VBA κώδικα για να μετράτε το συνολικό αριθμό των γραμμών που διατηρούν ένα συγκεκριμένο κριτήριο.
Για παράδειγμα, ας δημιουργήσουμε ένα Μάκρο που θα μετρήσει τον αριθμό των μαθητών που έλαβαν βαθμούς μικρότερους από 40.
Τα βήματα είναι επίσης όλα τα ίδια όπως Μέθοδος 1 ( Βήμα 1-6 ).
⧪ Just in Βήμα 3 , αλλάξτε το VBA κώδικα σε αυτό:
Κωδ:
Sub Count_Rows_with_Criteria() Dim Count As Integer Count = 0 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 1) <40 Then Count = Count + 1 End If Next i MsgBox Count End Sub Σημείωση:
- Αυτός ο κώδικας δημιουργεί μια ενότητα που ονομάζεται Count_Rows_with_Criteria .
- Στη γραμμή 6 , χρησιμοποιήσαμε "<40" επειδή αυτό είναι το κριτήριο που χρησιμοποιούμε. Το αλλάζετε ανάλογα με τις ανάγκες σας.
⧪ Και στο Βήμα 5 , πριν από την εκτέλεση του κώδικα, επιλέξτε την περιοχή των κελιών με τα κριτήρια. Εδώ έχω επιλέξει μόνο τη στήλη C ( C4:C13 ) επειδή το κριτήριο βρίσκεται εκεί.
⧪ Στη συνέχεια πατήστε ALT+F8 , επιλέξτε Count_Rows_with_Criteria , και κάντε κλικ στο Εκτέλεση .
Θα εμφανιστεί ένα πλαίσιο μηνύματος που θα σας δείχνει το συνολικό αριθμό των γραμμών που πληρούν το κριτήριό σας ( 3 σε αυτή την περίπτωση.)
Παρόμοιες αναγνώσεις
- Excel Count Visible Rows (Τύπος και κώδικας VBA)
- Πώς το Excel μετράει σειρές με τιμή (8 τρόποι)
4. Ενσωματώστε κώδικα VBA για να μετρήσετε σειρές που έχουν μια συγκεκριμένη τιμή κειμένου
Μπορείτε επίσης να χρησιμοποιήσετε ένα VBA κώδικα για να μετράτε τον αριθμό των γραμμών που περιέχουν μια συγκεκριμένη τιμή κειμένου.
Κοιτάξτε αυτό το νέο σύνολο δεδομένων.
Έχουμε το Εγγραφές βιβλίων κάποιων βιβλίων ενός βιβλιοπωλείου που ονομάζεται Martin Bookstore.
Ας δημιουργήσουμε ένα Μάκρο που θα μετρήσει τον αριθμό των βιβλίων που έχουν ένα συγκεκριμένο κείμενο από αυτό το σύνολο δεδομένων.
Τα βήματα είναι επίσης τα ίδια με Μέθοδος 1 ( Βήμα 1-6 ).
⧪ Just in Βήμα 3 , αλλάξτε το VBA κώδικα σε αυτό:
Κωδ:
Sub Count_Rows_with_Specific_Text() Dim Count As Integer Count = 0 Dim Text As String Text = InputBox("Enter the Text Value: ") LText = LCase(Text) For i = 1 To Selection.Rows.Count Words = Split(Selection.Cells(i, 1)) For Each j In Words LWord = LCase(j) If LText = LWord Then Count = Count + 1 End If Next j Next i MsgBox Count End Sub Σημείωση:
- Αυτός ο κώδικας δημιουργεί μια ενότητα που ονομάζεται Count_Rows_with_Specific_Text .
⧪ Και στο Βήμα 5 , πριν από την εκτέλεση του κώδικα, επιλέξτε την περιοχή των κελιών με τις τιμές του κειμένου. Εδώ έχω επιλέξει την περιοχή B4:B13 ( Όνομα των βιβλίων ).
⧪ Στη συνέχεια πατήστε ALT+F8 , επιλέξτε Count_Rows_with_Specific_Text , και κάντε κλικ στο Εκτέλεση .
⧪ Ένα Πλαίσιο εισαγωγής θα εμφανιστεί το παράθυρο που θα σας ζητήσει να εισαγάγετε τη συγκεκριμένη τιμή κειμένου που θέλετε να ταιριάξετε.
Για χάρη αυτού του παραδείγματος, το έχω εισάγει ως "ιστορία" .
Τέλος, θα εμφανιστεί ένα πλαίσιο μηνύματος που θα σας δείχνει το συνολικό αριθμό των γραμμών που περιέχουν το συγκεκριμένο κείμενο ( 3 σε αυτή την περίπτωση.)
Διαβάστε περισσότερα: Πώς να μετρήσετε σειρές με κείμενο στο Excel
5. Μετρήστε σειρές με κενά κελιά χρησιμοποιώντας το VBA στο Excel
Τέλος, θα αναπτύξουμε μια μακροεντολή που θα μετράει το συνολικό αριθμό των γραμμών χωρίς τα κενά κελιά από ένα σύνολο δεδομένων.
Κοιτάξτε αυτό το νέο σύνολο δεδομένων.
Έχουμε το Μαρκς ορισμένων υποψηφίων σε ένα τεστ πρόσληψης μιας εταιρείας που ονομάζεται APEX group.
Δυστυχώς, όμως, ορισμένοι υποψήφιοι δεν μπόρεσαν να εμφανιστούν στη δοκιμασία και στη θέση των βαθμών τους υπάρχουν κενά κελιά.
Ας αναπτύξουμε μια μακροεντολή που θα μετράει το συνολικό αριθμό των γραμμών εξαιρουμένων των κενών κελιών.
Αυτό σημαίνει, πόσοι υποψήφιοι εμφανίστηκαν στη δοκιμασία.
Τα βήματα είναι όλα τα ίδια όπως Μέθοδος 1 ( Βήμα 1-6 ).
⧪ Just in Βήμα 3 , πληκτρολογήστε αυτό VBA κώδικα στη θέση του προηγούμενου:
Κωδ:
Sub Count_Rows_with_Blank_Cells() Dim Count As Integer Count = 0 For i = 1 To Selection.Rows.Count If Selection.Cells(i, 1) "" Then Count = Count + 1 End If Next i MsgBox Count End Sub Σημείωση:
- Αυτός ο κώδικας δημιουργεί μια ενότητα που ονομάζεται Count_Rows_with_Blank_Cells (Μέτρηση_σειρών_με_κενά_κελιά) .
⧪ Σε Βήμα 5 , πριν από την εκτέλεση του κώδικα, επιλέξτε την περιοχή κελιών με τα κενά κελιά. Εδώ έχω επιλέξει την περιοχή C4:C13 ( Σημάδια στο Tes t).
⧪ Στη συνέχεια πατήστε ALT+F8 , επιλέξτε Count_Rows_with_Blank_Cells (Μέτρηση_σειρών_με_κενά_κελιά) , και κάντε κλικ στο Εκτέλεση .
Θα εμφανιστεί ένα πλαίσιο μηνύματος που θα σας δείχνει τον συνολικό αριθμό των γραμμών χωρίς τα κενά κελιά ( 7 σε αυτή την περίπτωση.)
Συμπέρασμα
Χρησιμοποιώντας αυτές τις μεθόδους, μπορείτε να μετρήσετε σειρές με VBA από ένα σύνολο δεδομένων στο Excel που ταιριάζουν σε διάφορες συνθήκες. Έχετε οποιοδήποτε πρόβλημα; Μη διστάσετε να μας ρωτήσετε.
