Калі ў вас ёсць невялікая табліца даных з некалькімі слупкамі, вы можаце лёгка палічыць іх усе. Але для вялікай табліцы дадзеных даволі складана падлічыць усе слупкі без памылак. Акрамя таго, некаторыя слупкі могуць утрымліваць дадзеныя, а некаторыя слупкі могуць быць зусім пустымі. Такім чынам, падлічыць усе слупкі з дадзенымі ў выпадку вялікай табліцы дадзеных даволі складана. У гэтым артыкуле вы даведаецеся 2 спосабы падліку слупкоў з дадзенымі з дапамогай VBA ў Excel з лёгкасцю.

Спампаваць Практычны сшытак

Вы можаце загрузіць файл Excel па наступнай спасылцы і папрактыкавацца разам з it.

Падлік слупкоў з Data.xlsm

2 спосабы падліку слупкоў з дадзенымі з дапамогай VBA ў Excel

1 Падлічыце ўсе слупкі ў аркушы з дадзенымі з дапамогай простага кода VBA

Мы бачым 3 слупкі ў наступнай табліцы даных. Цяпер мы будзем выкарыстоўваць код VBA, каб вызначыць колькасць выкарыстоўваных слупкоў на адным аркушы Excel.

❶ Перш за ўсё, націсніце ALT + F11 каб адкрыць рэдактар ​​VBA.

❷ Пасля гэтага стварыце новы модуль з Уставіць > Модуль.

❸ Пасля гэтага скапіруйце наступны скрыпт VBA.

1563

❹ Затым вярніцеся ў рэдактар ​​VBA і націсніце CTRL + V , каб уставіць яго.

❺ Цяпер захавайце код VBA, націснуўшы кнопку CTRL + S .

❻ Каб запусціць код VBA, перайдзіце на ўкладку Распрацоўшчык і націсніце Макрасы . Або проста націсніце F5 клавіша.

З'явіцца дыялогавае акно Макрас .

❼ Усё, што вам трэба зрабіць, гэта націснуць на кнопку Выканаць .

Цяпер вы ўбачыце, што з'явілася дыялогавае акно. У якім сказана, што колькасць слупкоў з дадзенымі роўная 3.

Больш падрабязна: Як падлічыць колькасць слупкоў у Excel (3 простыя Метады)

2. Падлічыце ўсе слупкі ў зададзеным дыяпазоне з дадзенымі з дапамогай кода Excel VBA

Наступны код VBA дазволіць вам падлічыць усе слупкі з дадзенымі ў зададзены дыяпазон.

Каб выкарыстоўваць код,

❶ Перш за ўсё, адкрыйце рэдактар ​​VBA, націснуўшы ALT + F11.

❷ Затым перайдзіце да Уставіць > Module , каб стварыць новы модуль.

❸ Пасля гэтага скапіруйце наступны скрыпт VBA.

4080

❹ Вярніцеся ў рэдактар ​​VBA і націсніце CTRL + V , каб уставіць яго.

❺ Цяпер захавайце код, націснуўшы CTRL + S.

❻ Перайдзіце на ўкладку Распрацоўшчык і націсніце Макрасы , каб адкрыць акно Макрас .

Або проста націсніце Клавіша F5 , каб адкрыць дыялогавае акно Макрас .

❼ У дыялогавым акне абярыце назву функцыі CountColumnsInARange і націсніце Выканаць кнопка.

Нарэшце з'явіцца невялікае дыялогавае акно з паведамленнем, што агульная колькасць слупкоў роўная 3.

Больш падрабязна: Як падлічыць слупкі для VLOOKUP у Excel (2 метады)

Больш кодаў VBA для падліку слупкоў у Excel

1. ВыкарыстоўвайцеМетад VBA Range.End для вяртання апошняга выкарыстанага нумара слупка

Каб атрымаць апошні выкарыстаны нумар слупка ў табліцы Excel,

❶ Перш за ўсё, адкрыйце рэдактар ​​VBA, націснуўшы ALT + F11.

❷ Затым перайдзіце да Уставіць > Module , каб стварыць новы модуль.

❸ Скапіруйце наступны код VBA :

4535

❹ Устаўце і захавайце код у рэдактары VBA.

❺ Націсніце клавішу F5 , каб запусціць прыведзены вышэй код.

Вы атрымаеце апошні слупок лік ва ўсплываючым дыялогавым акне, як на малюнку ніжэй:

Больш падрабязна: Як лічыць слупкі да дасягнення значэння ў Excel

2. Выкарыстоўвайце метад Range.Find, каб вярнуць апошні выкарыстаны нумар слупка ў Excel

Калі вы шукаеце коды VBA, каб вярнуць апошні выкарыстаны нумар слупка, выканайце наступныя дзеянні :

❶ Перш за ўсё, націсніце ALT + F11 , каб адкрыць рэдактар ​​VBA.

❷ Пасля гэтага стварыце новы модуль з Insert > Модуль.

❸ Скапіруйце наступны код VBA:

4698

❹ Затым вярніцеся ў рэдактар ​​VBA і націсніце CTRL + V , каб уставіць яго.

❺ Цяпер захавайце код VBA, націснуўшы кнопку CTRL + S .

Цяпер націсніце клавішу F5 , каб запусціць прыведзены вышэй код.

Вы атрымаеце нумар апошняга выкарыстанага слупка ва ўсплываючым дыялогавым акне, як на малюнку ніжэй:

Пра што трэба памятаць

• Націсніце ALT + F11 , каб адкрыць рэдактар ​​VBA.
• Вы можаце націснуць ALT +F8 , каб атрымаць доступ да дыялогавага акна Макрасы .
• Каб запусціць код VBA, націсніце F5.

Выснова

Падводзячы вынік, мы абмеркавалі 2 спосабы падліку слупкоў з дадзенымі з дапамогай VBA ў Excel. Рэкамендуецца загрузіць практычны сшытак, які прыкладаецца да гэтага артыкула, і адпрацаваць усе метады з ім. І не саромейцеся задаваць любыя пытанні ў раздзеле каментарыяў ніжэй. Мы пастараемся як мага хутчэй адказаць на ўсе адпаведныя запыты. І, калі ласка, наведайце наш вэб-сайт ExcelWIKI , каб даведацца больш.