Keď máte malú dátovú tabuľku s niekoľkými stĺpcami, môžete ich ľahko spočítať všetky. Ale v prípade veľkej dátovej tabuľky je pomerne ťažké spočítať všetky stĺpce bez chyby. Okrem toho niektoré stĺpce môžu obsahovať údaje, zatiaľ čo niektoré stĺpce môžu byť úplne prázdne. Spočítať všetky stĺpce s údajmi v prípade veľkej dátovej tabuľky je teda pomerne ťažké. V tomto článku sa dozviete 2 spôsoby počítaniastĺpce s údajmi pomocou VBA v programe Excel.

Stiahnite si cvičebnicu

Súbor Excel si môžete stiahnuť z nasledujúceho odkazu a precvičiť si ho.

Počítanie stĺpcov s údajmi.xlsm

2 spôsoby počítania stĺpcov s údajmi pomocou VBA v programe Excel

1. Spočítajte všetky stĺpce v pracovnom hárku s údajmi pomocou jednoduchého kódu VBA

V nasledujúcej tabuľke údajov vidíme 3 stĺpce. Teraz použijeme kód VBA na určenie počtu použitých stĺpcov v jednom hárku programu Excel.

❶ Najprv stlačte ALT + F11 otvoriť editor VBA.

❷ Potom vytvorte nový modul z Insert> Modul.

❸ Potom skopírujte nasledujúci skript VBA.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Počet stĺpcov s údajmi je: " & .Columns.Count End With End Sub 

❹ Potom sa vráťte do editora VBA a stlačte CTRL + V a vložte ho.

❺ Teraz uložte kód VBA stlačením CTRL + S tlačidlo.

❻ Ak chcete spustiť kód VBA, prejdite na Vývojár a kliknite na kartu Makrá Alebo jednoducho stlačte tlačidlo F5 kľúč.

Stránka Makro zobrazí sa dialógové okno.

❼ Všetko, čo musíte urobiť, je, kliknite na Spustiť tlačidlo.

Teraz uvidíte, že sa objavilo dialógové okno, v ktorom sa píše, že počet stĺpcov s údajmi je 3.

Prečítajte si viac: Ako spočítať počet stĺpcov v programe Excel (3 jednoduché metódy)

2. Spočítajte všetky stĺpce v danom rozsahu s údajmi pomocou kódu Excel VBA

Nasledujúci kód VBA vám umožní spočítať všetky stĺpce s údajmi v danom rozsahu.

Použitie kódu,

❶ Najprv otvorte editor VBA stlačením ALT + F11.

❷ Potom prejdite na Vložiť> Modul na vytvorenie nového modulu.

❸ Potom skopírujte nasledujúci skript VBA.

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

❹ Vráťte sa do editora VBA a stlačte tlačidlo CTRL + V a vložte ho.

❺ Teraz uložte kód stlačením CTRL + S.

❻ Prejsť na Vývojár a stlačte kartu Makrá otvoriť Makro okno.

Alebo jednoducho stlačte tlačidlo F5 tlačidlo na využitie Makro dialógové okno.

❼ V dialógovom okne vyberte názov funkcie CountColumnsInARange a stlačte tlačidlo Spustiť tlačidlo.

Nakoniec sa zobrazí malé dialógové okno s informáciou, že celkový počet stĺpcov je 3.

Prečítajte si viac: Ako počítať stĺpce pre VLOOKUP v programe Excel (2 metódy)

Ďalšie kódy VBA na počítanie stĺpcov v programe Excel

1. Použite metódu VBA Range.End na vrátenie čísla naposledy použitého stĺpca

Získanie čísla posledného použitého stĺpca v tabuľke programu Excel,

❶ Najprv otvorte editor VBA stlačením ALT + F11.

❷ Potom prejdite na Vložiť> Modul na vytvorenie nového modulu.

❸ Skopírujte nasledujúce VBA kód:

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

❹ Vložte a uložte kód v editore VBA.

❺ Stlačte tlačidlo F5 spustiť vyššie uvedený kód.

Číslo posledného stĺpca sa zobrazí vo vyskakovacom dialógovom okne ako na obrázku nižšie:

Prečítajte si viac: Ako počítať stĺpce až do dosiahnutia hodnoty v programe Excel

2. Použite metódu Range.Find na vrátenie čísla naposledy použitého stĺpca v programe Excel

Ak hľadáte kódy VBA na vrátenie čísla naposledy použitého stĺpca, postupujte podľa nasledujúcich krokov:

❶ Najprv stlačte ALT + F11 otvoriť editor VBA.

❷ Potom vytvorte nový modul z Insert> Modul.

❸ Skopírujte nasledujúci kód 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 

❹ Potom sa vráťte do editora VBA a stlačte CTRL + V a vložte ho.

❺ Teraz uložte kód VBA stlačením CTRL + S tlačidlo.

Teraz stlačte tlačidlo F5 spustiť vyššie uvedený kód.

Číslo posledného použitého stĺpca sa zobrazí vo vyskakovacom dialógovom okne, ako na obrázku nižšie:

Čo si treba zapamätať

• Tlač ALT + F11 otvoriť editor VBA.
• Môžete stlačiť ALT + F8 využiť Makrá dialógové okno.
• Ak chcete spustiť kód VBA, stlačte tlačidlo F5.

Záver

Ak to zhrnieme, prebrali sme 2 spôsoby počítania stĺpcov s údajmi pomocou VBA v programe Excel. Odporúčame vám stiahnuť si cvičný zošit priložený spolu s týmto článkom a precvičiť si všetky metódy pomocou neho. A neváhajte položiť akékoľvek otázky v sekcii komentárov nižšie. Budeme sa snažiť odpovedať na všetky relevantné otázky čo najskôr. A navštívte prosím našu webovú stránku ExcelWIKI preskúmať viac.