Wanneer jy 'n klein datatabel met 'n paar kolomme het, kan jy hulle almal maklik tel. Maar vir 'n groot datatabel is dit nogal moeilik om al die kolomme sonder enige fout te tel. Daarbenewens kan sommige kolomme data bevat, terwyl sommige kolomme heeltemal leeg kan wees. Dit is dus baie moeilik om al die kolomme met data te tel in die geval van 'n groot datatabel. In hierdie artikel sal jy 2 maniere leer om kolomme met data met gemak met behulp van VBA in Excel te tel.

Laai Oefenwerkboek af

Jy kan die Excel-lêer van die volgende skakel aflaai en oefen saam met dit.

Tel kolomme met Data.xlsm

2 maniere om kolomme met data te tel deur VBA in Excel te gebruik

1 Tel al die kolomme in 'n werkblad met data deur 'n eenvoudige VBA-kode te gebruik

Ons kan die 3 kolomme in die volgende datatabel sien. Nou sal ons 'n VBA-kode gebruik om die aantal gebruikte kolomme in 'n enkele Excel-werkblad te bepaal.

❶ Eerstens, druk ALT + F11 om die VBA-redigeerder oop te maak.

❷ Skep daarna 'n nuwe module vanaf Insert > Module.

❸ Kopieer daarna die volgende VBA-skrip.

7917

❹ Gaan dan terug na die VBA-redigeerder en druk CTRL + V om dit te plak.

❺ Stoor nou die VBA-kode deur die CTRL + S -knoppie te druk.

❻ Om die VBA-kode te laat loop, gaan na die Ontwikkelaar oortjie en klik op Makro's . Of druk eenvoudig die F5 sleutel.

Die Makro dialoogkassie sal verskyn.

❼ Al wat jy hoef te doen is om op die Hardloop knoppie te klik.

Nou sal jy sien dat 'n dialoogkassie verskyn het. Wat sê, die aantal kolomme met data is 3.

Lees meer: ​​ Hoe om die aantal kolomme in Excel te tel (3 maklik Metodes)

2. Tel al die kolomme in 'n gegewe reeks met data deur 'n Excel VBA-kode te gebruik

Die volgende VBA-kode sal jou in staat stel om al die kolomme met data in 'n gegewe reeks.

Om die kode te gebruik,

❶ Maak eers die VBA-redigeerder oop deur ALT + F11 te druk.

❷ Gaan dan na Voeg in > Module om 'n nuwe module te skep.

❸ Kopieer daarna die volgende VBA-skrip.

5117

❹ Gaan terug na die VBA-redigeerder en druk CTRL + V om dit te plak.

❺ Stoor nou die kode deur CTRL + S.

Of, druk eenvoudig net die F5 sleutel om die Makro dialoogkassie te gebruik.

❼ Kies die funksienaam CountColumnsInARange in die dialoogkassie en druk die Run knoppie.

Uiteindelik sal 'n klein dialoogkassie verskyn wat sê die totale aantal kolomme is 3.

Lees meer: ​​ Hoe om kolomme vir VLOOKUP in Excel te tel (2 metodes)

Meer VBA-kodes om kolomme in Excel te tel

1. GebruikVBA Range.End Metode om die laasgebruikte kolomnommer terug te gee

Om die laaste gebruikte kolomnommer in 'n Excel-sigblad te kry,

❶ Maak eers die VBA-redigeerder oop deur te druk ALT + F11.

❷ Gaan dan na Voeg in > Module om 'n nuwe module te skep.

❸ Kopieer die volgende VBA -kode:

3873

❹ Plak en stoor die kode in die VBA-redigeerder.

❺ Druk die F5 sleutel om die bogenoemde kode uit te voer.

Jy sal die laaste kolom kry nommer in 'n pop-up dialoogkassie soos in die prentjie hieronder:

Lees meer: ​​ Hoe om kolomme te tel totdat waarde in Excel bereik is

2. Gebruik Range.Find Metode om die laaste gebruikte kolomnommer in Excel terug te gee

As jy op soek is na VBA-kodes om die laaste gebruikte kolomnommer terug te gee, volg dan die stappe hieronder :

❶ Eerstens, druk ALT + F11 om die VBA-redigeerder oop te maak.

❷ Skep daarna 'n nuwe module vanaf Insert > Module.

❸ Kopieer die volgende VBA-kode:

3439

❹ Gaan dan terug na die VBA-redigeerder en druk CTRL + V om dit te plak.

❺ Stoor nou die VBA-kode deur die CTRL + S -knoppie te druk.

Nou, druk die F5 sleutel om die bogenoemde kode uit te voer.

Jy sal die laaste gebruikte kolomnommer in 'n opspringdialoogkassie kry soos in die prentjie hieronder:

Dinge om te onthou

• Druk ALT + F11 om die VBA-redigeerder oop te maak.
• Jy kan ALT + drukF8 om die Makro's -dialoogkassie te gebruik.
• Om die VBA-kode te laat loop, druk die F5.

Gevolgtrekking

Om op te som, ons het 2 maniere bespreek om kolomme met data te tel deur VBA in Excel te gebruik. Jy word aanbeveel om die oefenwerkboek wat saam met hierdie artikel aangeheg is af te laai en al die metodes daarmee te oefen. En moenie huiwer om enige vrae in die kommentaarafdeling hieronder te vra nie. Ons sal probeer om so gou moontlik op al die relevante navrae te reageer. En besoek asseblief ons webwerf ExcelWIKI om meer te verken.