Ja jums ir neliela datu tabula ar dažām kolonnām, jūs varat viegli saskaitīt visas kolonnas. Bet, ja datu tabula ir liela, ir diezgan grūti saskaitīt visas kolonnas bez kļūdām. Turklāt dažās kolonnās var būt dati, bet dažas kolonnas var būt pilnīgi tukšas. Tādējādi saskaitīt visas kolonnas ar datiem lielas datu tabulas gadījumā ir diezgan grūti. Šajā rakstā jūs uzzināsiet 2 veidus, kā saskaitīt.kolonnas ar datiem, izmantojot VBA programmā Excel.

Lejupielādēt Practice Workbook

Excel failu varat lejupielādēt no šādas saites un vingrināties ar to.

Skaitīt kolonnas ar Data.xlsm

2 veidi, kā saskaitīt kolonnas ar datiem, izmantojot VBA programmā Excel

1. Saskaitiet visas darblapas kolonnas darblapā ar datiem, izmantojot vienkāršu VBA kodu

Mēs varam redzēt 3 kolonnas nākamajā datu tabulā. Tagad mēs izmantosim VBA kodu, lai noteiktu izmantoto kolonnu skaitu vienā Excel darblapā.

❶ Vispirms nospiediet ALT + F11 lai atvērtu VBA redaktoru.

❷ Pēc tam izveidojiet jaunu moduli no Ievietot> Modulis.

❸ Pēc tam kopējiet šādu VBA skriptu.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Datu kolonnu skaits ir: " & amp; .Columns.Count End With End Sub 

❹ Pēc tam atgriezieties VBA redaktorā un nospiediet CTRL + V lai to ielīmētu.

❺ Tagad saglabājiet VBA kodu, nospiežot CTRL + S pogu.

❻ Lai palaistu VBA kodu, dodieties uz Izstrādātājs cilni un noklikšķiniet uz Makroprocesori . Vai arī vienkārši nospiediet F5 atslēga.

Portāls Makro tiks parādīts dialoglodziņš.

❼ Viss, kas jums jādara, ir, noklikšķiniet uz Palaist pogu.

Tagad redzēsiet, ka ir parādījies dialoglodziņš, kurā norādīts, ka kolonnu skaits ar datiem ir 3.

Lasīt vairāk: Kā Excel programmā Excel saskaitīt kolonnu skaitu (3 vienkāršas metodes)

2. Saskaitiet visas kolonnas dotajā diapazonā ar datiem, izmantojot Excel VBA kodu

Tālāk norādītais VBA kods ļaus jums saskaitīt visas kolonnas ar datiem noteiktā diapazonā.

Lai izmantotu kodu,

❶ Vispirms atveriet VBA redaktoru, nospiežot ALT + F11.

❷ Tad dodieties uz Ievietot> Modulis lai izveidotu jaunu moduli.

❸ Pēc tam kopējiet šādu VBA skriptu.

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Kopējais stabiņš: " & amp; xRng.Range("B5:D5").Columns.Count End Sub 

❹ Atgriezieties VBA redaktorā un nospiediet CTRL + V lai to ielīmētu.

❺ Tagad saglabājiet kodu, nospiežot CTRL + S.

❻ Dodieties uz Izstrādātājs cilni un nospiediet Makroprocesori lai atvērtu Makro logs.

Vai arī vienkārši nospiediet F5 taustiņu, lai izmantotu Makro dialoglodziņš.

❼ Dialoglodziņā izvēlieties funkcijas nosaukumu. CountColumnsInARange un nospiediet Palaist pogu.

Visbeidzot tiks parādīts neliels dialoglodziņš, kurā būs norādīts, ka kopējais kolonnu skaits ir 3.

Lasīt vairāk: Kā Excel programmā VLOOKUP saskaitīt kolonnas (2 metodes)

Vairāk VBA kodu, lai Excel programmā Excel saskaitītu kolonnas

1. Izmantojiet VBA Range.End metodi, lai atgrieztu pēdējās izmantotās kolonnas numuru

Pēdējās izmantotās kolonnas numura iegūšana Excel izklājlapā,

❶ Vispirms atveriet VBA redaktoru, nospiežot ALT + F11.

❷ Tad dodieties uz Ievietot> Modulis lai izveidotu jaunu moduli.

❸ Kopējiet šādus VBA kods:

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

❹ Ielīmējiet un saglabājiet kodu VBA redaktorā.

❺ Nospiediet F5 taustiņu, lai palaistu iepriekš minēto kodu.

Pēdējās kolonnas numurs tiks parādīts uznirstošajā dialoglodziņā, kā parādīts attēlā zemāk:

Lasīt vairāk: Kā Excel programmā Excel saskaitīt kolonnas līdz sasniegta vērtība

2. Izmantojiet metodi Range.Find, lai atgrieztu pēdējo izmantoto kolonnas numuru programmā Excel

Ja meklējat VBA kodus, lai atgrieztu pēdējo izmantoto kolonnas numuru, izpildiet tālāk norādītās darbības:

❶ Vispirms nospiediet ALT + F11 lai atvērtu VBA redaktoru.

❷ Pēc tam izveidojiet jaunu moduli no Ievietot> Modulis.

❸ Kopējiet šādu VBA kodu:

 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: " & amp; xRng End Sub 

❹ Pēc tam atgriezieties VBA redaktorā un nospiediet CTRL + V lai to ielīmētu.

❺ Tagad saglabājiet VBA kodu, nospiežot CTRL + S pogu.

Tagad nospiediet F5 taustiņu, lai palaistu iepriekš minēto kodu.

Pēdējās izmantotās kolonnas numurs tiks parādīts uznirstošajā dialoglodziņā, kā parādīts attēlā zemāk:

Lietas, kas jāatceras

• Spiediet ALT + F11 lai atvērtu VBA redaktoru.
• Varat nospiest ALT + F8 izmantot Makroprocesori dialoglodziņš.
• Lai palaistu VBA kodu, nospiediet F5.

Secinājums

Apkopojot, mēs esam apsprieduši 2 veidus, kā Excel programmā VBA saskaitīt kolonnas ar datiem. Jums ieteicams lejupielādēt kopā ar šo rakstu pievienoto prakses darbgrāmatu un praktizēt visas metodes ar to. Un nevilcinieties uzdot jebkādus jautājumus komentāru sadaļā zemāk. Mēs centīsimies atbildēt uz visiem attiecīgajiem jautājumiem pēc iespējas ātrāk. Un, lūdzu, apmeklējiet mūsu vietni. ExcelWIKI lai izpētītu vairāk.