Kai turite nedidelę duomenų lentelę su keliais stulpeliais, galite lengvai suskaičiuoti visus stulpelius. Tačiau didelės duomenų lentelės atveju suskaičiuoti visus stulpelius be klaidų gana sunku. Be to, kai kuriuose stulpeliuose gali būti duomenų, o kai kurie stulpeliai gali būti visiškai tušti. Taigi suskaičiuoti visus stulpelius su duomenimis didelės duomenų lentelės atveju yra gana sunku. Šiame straipsnyje sužinosite 2 būdus, kaip suskaičiuotistulpelius su duomenimis, naudodami "Excel" VBA.

Atsisiųsti praktikos sąsiuvinį

Galite atsisiųsti "Excel" failą iš toliau pateiktos nuorodos ir praktikuotis kartu su juo.

Skaičiuoti stulpelius su Data.xlsm

2 būdai skaičiuoti stulpelius su duomenimis naudojant VBA programoje "Excel

1. Suskaičiuokite visus darbalapio su duomenimis stulpelius naudodami paprastą VBA kodą

Toliau pateiktoje duomenų lentelėje matome 3 stulpelius. Dabar VBA kodu nustatysime naudojamų stulpelių skaičių viename "Excel" darbalapyje.

❶ Pirmiausia paspauskite ALT + F11 atidaryti VBA redaktorių.

❷ Po to sukurkite naują modulį iš Insert> Modulis.

❸ Po to nukopijuokite šį VBA scenarijų.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Stulpelių su duomenimis skaičius yra: " & .Columns.Count End With End Sub 

❹ Tada grįžkite į VBA redaktorių ir paspauskite CTRL + V jį įklijuoti.

❺ Dabar išsaugokite VBA kodą paspausdami CTRL + S mygtuką.

❻ Norėdami paleisti VBA kodą, eikite į Kūrėjas skirtuką ir spustelėkite Makrokomandos . Arba tiesiog paspauskite F5 raktas.

Svetainė Makro bus rodomas dialogo langas.

❼ Viskas, ką jums reikia padaryti, tai spustelėti Paleisti mygtuką.

Dabar pamatysite, kad pasirodė dialogo langas, kuriame rašoma, kad stulpelių su duomenimis skaičius yra 3.

Skaityti daugiau: Kaip suskaičiuoti "Excel" stulpelių skaičių (3 paprasti metodai)

2. Suskaičiuokite visus tam tikro diapazono stulpelius su duomenimis naudodami "Excel" VBA kodą

Toliau pateiktas VBA kodas leis suskaičiuoti visus stulpelius, kurių duomenys patenka į tam tikrą intervalą.

Kaip naudoti kodą,

❶ Pirmiausia atidarykite VBA redaktorių paspausdami ALT + F11.

❷ Tada eikite į Insert> Modulis sukurti naują modulį.

❸ Po to nukopijuokite šį VBA scenarijų.

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

❹ Grįžkite į VBA redaktorių ir paspauskite CTRL + V jį įklijuoti.

❺ Dabar išsaugokite kodą paspausdami CTRL + S.

❻ Eikite į Kūrėjas skirtuką ir paspauskite Makrokomandos atidaryti Makro langas.

Arba tiesiog paspauskite F5 klavišą, kad galėtumėte naudotis Makro dialogo langas.

❼ Dialogo lange pasirinkite funkcijos pavadinimą CountColumnsInARange ir paspauskite Paleisti mygtuką.

Galiausiai pasirodys nedidelis dialogo langas, kuriame rašoma, kad bendras stulpelių skaičius yra 3.

Skaityti daugiau: Kaip skaičiuoti VLOOKUP stulpelius "Excel" programoje (2 metodai)

Daugiau VBA kodų "Excel" stulpeliams skaičiuoti

1. Naudokite VBA Range.End metodą, kad grąžintumėte paskutinio naudoto stulpelio numerį

Paskutinio naudoto "Excel" skaičiuoklės stulpelio numerio gavimas,

❶ Pirmiausia atidarykite VBA redaktorių paspausdami ALT + F11.

❷ Tada eikite į Insert> Modulis sukurti naują modulį.

❸ Nukopijuokite VBA kodas:

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

❹ Įklijuokite ir išsaugokite kodą VBA redaktoriuje.

❺ Paspauskite F5 klavišą, kad paleistumėte pirmiau pateiktą kodą.

Paskutinio stulpelio numerį gausite iššokančiame dialogo lange, kaip parodyta toliau pateiktame paveikslėlyje:

Skaityti daugiau: Kaip "Excel" skaičiuoti stulpelius, kol pasiekiama vertė

2. Naudokite metodą Range.Find, kad grąžintumėte paskutinio naudoto stulpelio numerį programoje "Excel

Jei ieškote VBA kodų, kad grąžintumėte paskutinio naudoto stulpelio numerį, atlikite toliau nurodytus veiksmus:

❶ Pirmiausia paspauskite ALT + F11 atidaryti VBA redaktorių.

❷ Po to sukurkite naują modulį iš Insert> Modulis.

❸ Nukopijuokite šį VBA kodą:

 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 

❹ Tada grįžkite į VBA redaktorių ir paspauskite CTRL + V jį įklijuoti.

❺ Dabar išsaugokite VBA kodą paspausdami CTRL + S mygtuką.

Dabar paspauskite F5 klavišą, kad paleistumėte pirmiau pateiktą kodą.

Paskutinio naudoto stulpelio numerį gausite iššokančiame dialogo lange, kaip parodyta toliau pateiktame paveikslėlyje:

Dalykai, kuriuos reikia prisiminti

• Paspauskite ALT + F11 atidaryti VBA redaktorių.
• Galite paspausti ALT + F8 pasinaudoti Makrokomandos dialogo langas.
• Norėdami paleisti VBA kodą, paspauskite F5.

Išvada

Apibendrinant, aptarėme 2 būdus, kaip skaičiuoti stulpelius su duomenimis naudojant "Excel" VBA. Rekomenduojame atsisiųsti kartu su šiuo straipsniu pridėtą praktikos sąsiuvinį ir praktiškai išbandyti visus metodus. Ir nedvejodami užduokite bet kokius klausimus toliau pateiktame komentarų skyriuje. Mes pasistengsime kuo greičiau atsakyti į visas svarbias užklausas. Ir apsilankykite mūsų svetainėje ExcelWIKI daugiau sužinoti.