Kui teil on väike andmetabel, kus on mõned veerud, saate neid kõiki hõlpsasti loendada. Kuid suure andmetabeli puhul on üsna raske kõiki veerge vigadeta loendada. Lisaks sellele võivad mõned veerud sisaldada andmeid, samas kui mõned veerud võivad olla täiesti tühjad. Seega on suure andmetabeli puhul kõigi andmetega veergude loendamine üsna raske. Selles artiklis saate teada 2 viisi, kuidas loendada.veerud koos andmetega, kasutades Excelis hõlpsasti VBA-d.

Lae alla praktiline töövihik

Excel-faili saate alla laadida alljärgnevalt lingilt ja sellega koos harjutada.

Loendussambad andmetega.xlsm

2 viisi veergude loendamiseks andmete abil VBA abil Excelis

1. Loendage kõiki veerge töölehel koos andmetega, kasutades lihtsat VBA-koodi

Järgnevas andmetabelis näeme 3 veergu. Nüüd kasutame VBA-koodi, et määrata kasutatud veergude arv ühes Exceli töölehel.

❶ Kõigepealt vajutage ALT + F11 VBA redaktori avamiseks.

❷ Pärast seda luua uus moodul alates Sisesta> Moodul.

❸ Pärast seda kopeerige järgmine VBA-skript.

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

❹ Seejärel minge tagasi VBA redaktorisse ja vajutage nuppu CTRL + V selle kleepimiseks.

❺ Nüüd salvestage VBA-kood, vajutades nuppu CTRL + S nupp.

❻ VBA-koodi käivitamiseks minge aadressile Arendaja vahekaart ja klõpsa Makros Või vajutage lihtsalt F5 võti.

The Makro ilmub dialoogiboks.

❼ Kõik, mida peate tegema, on klõpsata nupule Käivita nuppu.

Nüüd näete, et on ilmunud dialoogiaken, mis ütleb, et veergude arv on 3.

Loe edasi: Kuidas lugeda veergude arvu Excelis (3 lihtsat meetodit)

2. Lugege kõiki veerge antud vahemikus olevate andmetega, kasutades Exceli VBA-koodi

Järgnev VBA-kood võimaldab teil loendada kõiki veerge, mille andmed on antud vahemikus.

Koodi kasutamiseks,

❶ Kõigepealt avage VBA toimetaja, vajutades klahvi ALT + F11.

❷ Siis mine aadressile Insert> moodul uue mooduli loomiseks.

❸ Pärast seda kopeerige järgmine VBA-skript.

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

❹ Mine tagasi VBA redaktorisse ja vajuta nuppu CTRL + V selle kleepimiseks.

❺ Nüüd salvestage kood, vajutades nuppu CTRL + S.

❻ Minge juurde Arendaja vahekaart ja vajutage Makros avada Makro aken.

Või vajutage lihtsalt F5 klahviga, et kasutada Makro dialoogiaknas.

❼ Valige dialoogiaknas funktsiooni nimi. CountColumnsInARange ja vajutage Käivita nuppu.

Lõpuks ilmub väike dialoogiaken, mis ütleb, et veergude koguarv on 3.

Loe edasi: Kuidas lugeda veerge VLOOKUP-i jaoks Excelis (2 meetodit)

Rohkem VBA-koode Exceli veergude lugemiseks

1. Kasutage VBA Range.End meetodit viimati kasutatud veeru numbri tagastamiseks

Viimati kasutatud veeru numbri leidmine Exceli tabelis,

❶ Kõigepealt avage VBA toimetaja, vajutades klahvi ALT + F11.

❷ Siis mine aadressile Insert> moodul uue mooduli loomiseks.

❸ Kopeerige järgmist VBA kood:

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

❹ Sisestage ja salvestage kood VBA redaktoris.

❺ Vajutage F5 klahvi, et käivitada ülaltoodud kood.

Saate viimase veeru numbri hüpikaknas, nagu allpool oleval pildil:

Loe edasi: Kuidas lugeda veerge, kuni väärtus on Excelis saavutatud

2. Kasutage meetodit Range.Find, et tagastada Exceli viimati kasutatud veeru number

Kui otsite VBA-koode, et tagastada viimati kasutatud veeru number, siis järgige alljärgnevaid samme:

❶ Kõigepealt vajutage ALT + F11 VBA redaktori avamiseks.

❷ Pärast seda luua uus moodul alates Sisesta> Moodul.

❸ Kopeeri järgmine VBA-kood:

 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 

❹ Seejärel minge tagasi VBA redaktorisse ja vajutage nuppu CTRL + V selle kleepimiseks.

❺ Nüüd salvestage VBA-kood, vajutades nuppu CTRL + S nupp.

Nüüd vajutage F5 klahvi, et käivitada ülaltoodud kood.

Viimati kasutatud veeru number kuvatakse hüpikaknas, nagu allpool oleval pildil:

Asjad, mida meeles pidada

• Press ALT + F11 VBA redaktori avamiseks.
• Saate vajutada ALT + F8 kasutada Makros dialoogiaknas.
• VBA koodi käivitamiseks vajutage F5.

Kokkuvõte

Kokkuvõtteks oleme arutanud 2 viisi, kuidas lugeda veerge koos andmetega, kasutades VBA-d Excelis. Soovitame teil alla laadida selle artikliga kaasas olev praktiline töövihik ja harjutada kõiki meetodeid selle abil. Ja ärge kartke küsida küsimusi allpool olevas kommentaaride sektsioonis. Me püüame vastata kõigile asjakohastele päringutele niipea kui võimalik. Ja külastage palun meie veebisaiti. ExcelWIKI rohkem uurida.