Efnisyfirlit
Þegar þú ert með litla gagnatöflu með nokkrum dálkum geturðu auðveldlega talið þá alla. En fyrir stóra gagnatöflu er frekar erfitt að telja alla dálkana án nokkurrar villu. Fyrir utan það geta sumir dálkar innihaldið gögn en sumir dálkar geta verið alveg auðir. Þannig að telja alla dálka með gögnum ef um er að ræða stóra gagnatöflu er frekar erfitt. Í þessari grein muntu læra 2 leiðir til að telja dálka með gögnum með því að nota VBA í Excel á auðveldan hátt.
Hlaða niður æfingarvinnubók
Þú getur hlaðið niður Excel skránni af eftirfarandi hlekk og æft ásamt it.
Telja dálka með Data.xlsm
2 leiðir til að telja dálka með gögnum með því að nota VBA í Excel
1 Telja alla dálka í vinnublaði með gögnum með því að nota einfaldan VBA kóða
Við getum séð 3 dálkana í eftirfarandi gagnatöflu. Nú munum við nota VBA kóða til að ákvarða fjölda notaðra dálka í einu Excel vinnublaði.
 Dim xRng As Long xRng = Cells.Find(What:=)
❶ Fyrst af öllu, ýttu á ALT + F11 til að opna VBA ritilinn.
❷ Eftir það búðu til nýja einingu úr Insert > Module.
❸ Eftir það afritaðu eftirfarandi VBA skriftu.
6379
❹ Farðu svo aftur í VBA ritilinn og ýttu á CTRL + V til að líma það.
❺ Vistaðu nú VBA kóðann með því að ýta á CTRL + S hnappinn.
❻ Til að keyra VBA kóðann skaltu fara í flipann Þróunaraðili og smella á fjölva . Eða ýttu einfaldlega á F5 lykill.
Valglugginn Macro birtist.
❼ Allt sem þú þarft að gera er að smella á Run hnappinn.
Nú muntu sjá að svargluggi hefur birst. Sem segir að fjöldi dálka með gögnum er 3.
Lesa meira: Hvernig á að telja fjölda dálka í Excel (3 Easy Aðferðir)
2. Telja alla dálka á tilteknu bili með gögnum með því að nota Excel VBA kóða
Eftirfarandi VBA kóða gerir þér kleift að telja alla dálka með gögnum í a gefið svið.
Til að nota kóðann,
❶ Fyrst af öllu, opnaðu VBA ritilinn með því að ýta á ALT + F11.
❷ Farðu svo að Setja inn > Module til að búa til nýja einingu.
❸ Eftir það afritaðu eftirfarandi VBA skriftu.
8906
❹ Farðu aftur í VBA ritilinn og ýttu á CTRL + V til að líma það.
❺ Vistaðu nú kóðann með því að ýta á CTRL + S.
❻ Farðu á flipann Þróunaraðili og ýttu á Macros til að opna Macro gluggann.
Eða ýttu einfaldlega á F5 lykill til að nota Macro valgluggann.
❼ Í glugganum, veldu heiti fallsins CountColumnsInARange og ýttu á Run hnappur.
Að lokum birtist lítill svargluggi sem segir að heildarfjöldi dálka sé 3.
Lesa meira: Hvernig á að telja dálka fyrir VLOOKUP í Excel (2 aðferðir)
Fleiri VBA kóðar til að telja dálka í Excel
1. NotaðuVBA Range.End Aðferð til að skila síðasta notaða dálknúmerinu
Til að fá síðasta notaða dálknúmerið í Excel töflureikni,
❶ Fyrst af öllu, opnaðu VBA ritilinn með því að ýta á ALT + F11.
❷ Farðu síðan í Insert > Module til að búa til nýja einingu.
❸ Afritaðu eftirfarandi VBA kóða:
1370
❹ Límdu og vistaðu kóða í VBA ritlinum.
❺ Ýttu á F5 lykilinn til að keyra ofangreindan kóða.
Þú færð síðasta dálkinn númer í sprettiglugga eins og á myndinni hér að neðan:
Lesa meira: Hvernig á að telja dálka þar til gildi er náð í Excel
2. Notaðu Range.Find Method til að skila síðasta notaða dálknúmerinu í Excel
Ef þú ert að leita að VBA kóða til að skila síðasta notaða dálknúmerinu skaltu fylgja skrefunum hér að neðan :
❶ Fyrst af öllu, ýttu á ALT + F11 til að opna VBA ritilinn.
❷ Eftir það búðu til nýja einingu úr Insert > Module.
❸ Afritaðu eftirfarandi VBA kóða:
1173
❹ Farðu svo aftur í VBA ritilinn og ýttu á CTRL + V til að líma það.
❺ Vistaðu nú VBA kóðann með því að ýta á CTRL + S hnappinn.
Nú, ýttu á F5 lykillinn til að keyra kóðann hér að ofan.
Þú færð síðasta notaða dálknúmerið í sprettiglugga eins og á myndinni hér að neðan:
Atriði sem þarf að muna
- Ýttu á ALT + F11 til að opna VBA ritilinn.
- Þú getur ýtt á ALT +F8 til að nota Macros gluggann.
- Til að keyra VBA kóðann, ýttu á F5.
Niðurstaða
Til að draga saman þá höfum við rætt tvær leiðir til að telja dálka með gögnum með því að nota VBA í Excel. Mælt er með því að hlaða niður æfingabókinni sem fylgir þessari grein og æfa allar aðferðir með því. Og ekki hika við að spyrja spurninga í athugasemdahlutanum hér að neðan. Við munum reyna að svara öllum viðeigandi fyrirspurnum eins fljótt og auðið er. Og vinsamlegast farðu á vefsíðu okkar ExcelWIKI til að kanna meira.
