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

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το αρχείο Excel από τον ακόλουθο σύνδεσμο και να εξασκηθείτε μαζί του.

Καταμέτρηση στηλών με Data.xlsm

2 τρόποι για να μετρήσετε στήλες με δεδομένα χρησιμοποιώντας το VBA στο Excel

1. Μετρήστε όλες τις στήλες σε ένα φύλλο εργασίας με δεδομένα χρησιμοποιώντας έναν απλό κώδικα VBA

Μπορούμε να δούμε τις 3 στήλες στον ακόλουθο πίνακα δεδομένων. Τώρα θα χρησιμοποιήσουμε έναν κώδικα VBA για να προσδιορίσουμε τον αριθμό των χρησιμοποιούμενων στηλών σε ένα μόνο φύλλο εργασίας του Excel.

❶ Πρώτα απ' όλα, πατήστε ALT + F11 για να ανοίξετε τον επεξεργαστή VBA.

❷ Μετά από αυτό δημιουργήστε μια νέα ενότητα από το Εισαγωγή> Ενότητα.

❸ Μετά από αυτό αντιγράψτε την ακόλουθη δέσμη ενεργειών VBA.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "The number of columns with Data is: " & .Columns.Count End With End Sub 

❹ Στη συνέχεια, επιστρέψτε στον επεξεργαστή VBA και πατήστε CTRL + V για να το επικολλήσετε.

❺ Τώρα αποθηκεύστε τον κώδικα VBA πατώντας το πλήκτρο CTRL + S κουμπί.

❻ Για να εκτελέσετε τον κώδικα VBA, μεταβείτε στο Προγραμματιστής και κάντε κλικ στο Μακροεντολές . ή, απλά πατήστε το πλήκτρο F5 κλειδί.

Το Μάκρο θα εμφανιστεί το παράθυρο διαλόγου.

❼ Το μόνο που χρειάζεται να κάνετε είναι να κάνετε κλικ στο κουμπί Εκτέλεση κουμπί.

Τώρα θα δείτε ότι έχει εμφανιστεί ένα παράθυρο διαλόγου που λέει ότι ο αριθμός των στηλών με δεδομένα είναι 3.

Διαβάστε περισσότερα: Πώς να μετρήσετε τον αριθμό των στηλών στο Excel (3 εύκολες μέθοδοι)

2. Καταμετρήστε όλες τις στήλες σε μια δεδομένη περιοχή με δεδομένα χρησιμοποιώντας έναν κώδικα VBA του Excel

Ο παρακάτω κώδικας VBA θα σας επιτρέψει να μετρήσετε όλες τις στήλες με δεδομένα σε ένα συγκεκριμένο εύρος.

Για να χρησιμοποιήσετε τον κωδικό,

❶ Πρώτα απ' όλα, ανοίξτε τον επεξεργαστή VBA πατώντας το πλήκτρο ALT + F11.

❷ Στη συνέχεια, μεταβείτε στο Εισαγωγή> Ενότητα για να δημιουργήσετε μια νέα ενότητα.

❸ Μετά από αυτό αντιγράψτε την ακόλουθη δέσμη ενεργειών VBA.

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Total column: " & xRng.Range("B5:D5").Columns.Count End Sub 

❹ Επιστρέψτε στον επεξεργαστή VBA και πατήστε CTRL + V για να το επικολλήσετε.

❺ Τώρα αποθηκεύστε τον κώδικα πατώντας το πλήκτρο CTRL + S.

❻ Πηγαίνετε στο Προγραμματιστής και πατήστε την καρτέλα Μακροεντολές για να ανοίξετε το Μάκρο παράθυρο.

Ή, απλά πατήστε το πλήκτρο F5 για να χρησιμοποιήσετε το πλήκτρο Μάκρο παράθυρο διαλόγου.

❼ Από το παράθυρο διαλόγου, επιλέξτε το όνομα της λειτουργίας CountColumnsInARange και χτύπησε το Εκτέλεση κουμπί.

Τέλος, θα εμφανιστεί ένα μικρό παράθυρο διαλόγου που λέει ότι ο συνολικός αριθμός των στηλών είναι 3.

Διαβάστε περισσότερα: Πώς να μετρήσετε τις στήλες για το VLOOKUP στο Excel (2 μέθοδοι)

Περισσότεροι κώδικες VBA για την καταμέτρηση στηλών στο Excel

1. Χρησιμοποιήστε τη μέθοδο VBA Range.End για να επιστρέψετε τον τελευταίο αριθμό στήλης που χρησιμοποιήθηκε

Για να λάβετε τον αριθμό της τελευταίας χρησιμοποιούμενης στήλης σε ένα φύλλο Excel,

❶ Πρώτα απ' όλα, ανοίξτε τον επεξεργαστή VBA πατώντας το πλήκτρο ALT + F11.

❷ Στη συνέχεια, μεταβείτε στο Εισαγωγή> Ενότητα για να δημιουργήσετε μια νέα ενότητα.

❸ Αντιγράψτε τα εξής VBA κωδικός:

 Option Explicit Sub LastColumn() Dim xRng As Integer xRng = Range("B4").End(xlToRight).Column MsgBox xRng End Sub 

❹ Επικολλήστε και αποθηκεύστε τον κώδικα στον επεξεργαστή VBA.

❺ Πατήστε το F5 για να εκτελέσετε τον παραπάνω κώδικα.

Θα λάβετε τον αριθμό της τελευταίας στήλης σε ένα αναδυόμενο παράθυρο διαλόγου όπως στην παρακάτω εικόνα:

Διαβάστε περισσότερα: Πώς να μετρήσετε τις στήλες μέχρι να φτάσετε στην τιμή στο Excel

2. Χρησιμοποιήστε τη μέθοδο Range.Find για να επιστρέψετε τον τελευταίο αριθμό στήλης που χρησιμοποιήθηκε στο Excel

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

❶ Πρώτα απ' όλα, πατήστε ALT + F11 για να ανοίξετε τον επεξεργαστή VBA.

❷ Μετά από αυτό δημιουργήστε μια νέα ενότητα από το Εισαγωγή> Ενότητα.

❸ Αντιγράψτε τον ακόλουθο κώδικα VBA:

 Sub LastUsedColumnNo() Dim xRng As Long xRng = Cells.Find(What:="*", _ After:=Range("B4"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column MsgBox "Last Used Column Numeber: " & xRng End Sub 

❹ Στη συνέχεια, επιστρέψτε στον επεξεργαστή VBA και πατήστε CTRL + V για να το επικολλήσετε.

❺ Τώρα αποθηκεύστε τον κώδικα VBA πατώντας το πλήκτρο CTRL + S κουμπί.

Τώρα, πατήστε το F5 για να εκτελέσετε τον παραπάνω κώδικα.

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

Πράγματα που πρέπει να θυμάστε

• Τύπος ALT + F11 για να ανοίξετε τον επεξεργαστή VBA.
• Μπορείτε να πατήσετε ALT + F8 για να επωφεληθείτε από το Μακροεντολές παράθυρο διαλόγου.
• Για να εκτελέσετε τον κώδικα VBA, πατήστε το πλήκτρο F5.

Συμπέρασμα

Συνοψίζοντας, συζητήσαμε 2 τρόπους για την καταμέτρηση στηλών με δεδομένα χρησιμοποιώντας το VBA στο Excel. Σας συνιστούμε να κατεβάσετε το βιβλίο εργασίας πρακτικής που επισυνάπτεται μαζί με αυτό το άρθρο και να εξασκηθείτε σε όλες τις μεθόδους με αυτό. Και μη διστάσετε να θέσετε οποιεσδήποτε ερωτήσεις στην παρακάτω ενότητα σχολίων. Θα προσπαθήσουμε να απαντήσουμε σε όλα τα σχετικά ερωτήματα το συντομότερο δυνατό. Και παρακαλούμε επισκεφθείτε την ιστοσελίδα μας ExcelWIKI για να εξερευνήσετε περισσότερα.