UsedRange - Βρείτε το τελευταίο χρησιμοποιημένο κελί, στήλη ή γραμμή
Ο ακόλουθος κώδικας θα επιστρέψει ένα πλαίσιο μηνύματος που θα υποδεικνύει τον συνολικό αριθμό γραμμών που χρησιμοποιούνται σε ένα φύλλο εργασίας. Οι κενές σειρές θεωρούνται ότι χρησιμοποιούνται εάν τα δεδομένα ακολουθούν την κενή γραμμή.
| 1 | MsgBox ActiveSheet.UsedRange.Rows.Count |
Πρέπει να τρέξετε ένα βρόχο κάτω από ένα φύλλο αλλά δεν ξέρετε πού σταματούν τα δεδομένα; Το ActiveSheet.UsedRange.Rows.Count μπορεί να βοηθήσει.
Βάλτε το σε μια ενότητα:
| 123456789 | Sub LastRow ()Dim LastRow As IntegerLastRow = ActiveSheet.UsedRange.Rows.CountMsgBox LastRowΤέλος υπο |
| 123456789 | Sub LastCol ()Dim LastCol ως ακέραιοςLastCol = ActiveSheet.UsedRange.Col.CountMsgBox LastColΤέλος υπο |
Βρείτε το πρώτο άδειο κελί
Χρησιμοποιώντας το VBA μπορεί να χρειαστεί να γράψετε στο πρώτο κενό κελί ή μετά την τελευταία σειρά που χρησιμοποιείται σε μια στήλη. Δεν χρειάζεται να κάνετε loop για να το βρείτε, ο παρακάτω κώδικας το κάνει για εσάς.
Σε αυτό το παράδειγμα, ο κώδικας θα γράψει "FirstEmpty" στο πρώτο κενό κελί στη στήλη "d"
| 1234 | Public Sub AfterLast ()ActiveSheet.Range ("d" & ActiveSheet.Rows.Count). Τέλος (xlUp). Offset (1, 0) .Value = "FirstEmpty"Τέλος υπο |
Μετρήστε τις χρησιμοποιημένες στήλες στο φύλλο εργασίας
Ο ακόλουθος κώδικας θα επιστρέψει σε ένα πλαίσιο μηνυμάτων τον συνολικό αριθμό των στηλών που χρησιμοποιούνται σε ένα φύλλο εργασίας. Οι κενές στήλες θεωρούνται ότι χρησιμοποιούνται εάν τα δεδομένα ακολουθούν την κενή στήλη.
| 1 | MsgBox ActiveSheet.UsedRange.Columns.Count |
Τελευταίο χρησιμοποιημένο κελί - Προβλήματα
Όταν χρειάζομαι για… Επόμενο… Βρίσκω μια ολόκληρη στήλη συνήθως χρησιμοποιώ το ActiveSheet.UsedRange.Rows.Count για να βρω πού να σταματήσω. Είχα πάντα καλή τύχη με αυτήν την προσέγγιση.
Γνωρίζω επίσης ότι περιστασιακά το Excel πιστεύει ότι η τελευταία γραμμή υπάρχει κάπου, αλλά η γραμμή είναι στην πραγματικότητα κενή. Το έχω δει μερικές φορές μετά την εισαγωγή δεδομένων. Από την BeyondTechnology:
Το αντικείμενο του φύλλου εργασίας UsedRange δεν λειτουργεί πάντα επειδή το χρησιμοποιούμενο εύρος (ή "βρώμικη περιοχή") ενός υπολογιστικού φύλλου μπορεί να είναι μεγαλύτερο από την περιοχή που έχει πραγματικά συμπληρωθεί με τις εγγραφές σας.
