Excel VBA: броене на колони с данни (2 примера)

Hugh West

16-10-2023 Макроси & Excel VBA
  • Споделя Това
Hugh West

Когато имате малка таблица с данни с няколко колони, можете лесно да ги преброите. Но при голяма таблица с данни е доста трудно да преброите всички колони без грешка. Освен това някои колони могат да съдържат данни, а други да са напълно празни. Така преброяването на всички колони с данни при голяма таблица с данни е доста трудно. В тази статия ще научите 2 начина за преброяванеколони с данни с помощта на VBA в Excel с лекота.

Изтегляне на работна тетрадка за практика

Можете да изтеглите файла на Excel от следния линк и да се упражнявате с него.

Преброяване на колони с данни.xlsm

2 начина за преброяване на колони с данни с помощта на VBA в Excel

1. Преброяване на всички колони в работен лист с данни с помощта на прост код VBA

Можем да видим 3-те колони в следната таблица с данни. Сега ще използваме код VBA, за да определим броя на използваните колони в един работен лист на Excel.

❶ Първо, натиснете ALT + F11 за да отворите редактора VBA.

❷ След това създайте нов модул от Insert> Модул.

❸ След това копирайте следния VBA скрипт. 

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Броят на колоните с данни е: " & .Columns.Count End With End Sub

❹ След това се върнете в редактора VBA и натиснете CTRL + V за да го поставите.

❺ Сега запазете кода VBA, като натиснете CTRL + S бутон.

❻ За да стартирате кода VBA, отидете в Разработчик и щракнете върху Макроси . Или просто натиснете F5 ключ.

Сайтът Macro ще се появи диалогов прозорец.

❼ Всичко, което трябва да направите, е да кликнете върху Изпълнявайте бутон.

Сега ще видите, че се е появил диалогов прозорец, в който се казва, че броят на колоните с данни е 3.

Прочетете още: Как да преброим броя на колоните в Excel (3 лесни метода)

2. Преброяване на всички колони в даден диапазон с данни с помощта на Excel VBA код

Следващият код VBA ще ви позволи да преброите всички колони с данни в даден диапазон.

За да използвате кода,

❶ Преди всичко отворете редактора VBA, като натиснете ALT + F11.

❷ След това отидете в Вмъкване> Модул за създаване на нов модул.

❸ След това копирайте следния VBA скрипт. 

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

❹ Върнете се в редактора VBA и натиснете CTRL + V за да го поставите.

❺ Сега запазете кода, като натиснете CTRL + S.

❻ Отидете в Разработчик и натиснете бутона Макроси за да отворите Macro прозорец.

Или просто натиснете бутона F5 за да се възползвате от Macro диалогов прозорец.

❼ В диалоговия прозорец изберете името на функцията CountColumnsInARange и натиснете Изпълнявайте бутон.

Накрая ще се появи малък диалогов прозорец, в който се казва, че общият брой на колоните е 3.

Прочетете още: Как да преброите колоните за VLOOKUP в Excel (2 метода)

Още кодове VBA за броене на колони в Excel

1. Използвайте метода VBA Range.End, за да върнете номера на последната използвана колона

Получаване на номера на последната използвана колона в електронна таблица на Excel,

❶ Преди всичко отворете редактора VBA, като натиснете ALT + F11.

❷ След това отидете в Вмъкване> Модул за създаване на нов модул.

❸ Копирайте следното VBA код: 

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

❹ Поставете и запазете кода в редактора VBA.

❺ Натиснете F5 за да стартирате горния код.

Ще получите номера на последната колона в изскачащ диалогов прозорец, както е показано на снимката по-долу:

Прочетете още: Как да преброите колоните до достигане на стойност в Excel

2. Използвайте метода Range.Find, за да върнете номера на последно използваната колона в Excel

Ако търсите VBA кодове за връщане на последния използван номер на колона, следвайте стъпките по-долу:

❶ Първо, натиснете ALT + F11 за да отворите редактора VBA.

❷ След това създайте нов модул от Insert> Модул.

❸ Копирайте следния 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

❹ След това се върнете в редактора VBA и натиснете CTRL + V за да го поставите.

❺ Сега запазете кода VBA, като натиснете CTRL + S бутон.

Сега натиснете бутона F5 за да стартирате горния код.

Ще получите номера на последната използвана колона в изскачащ диалогов прозорец, както е показано на снимката по-долу:

Нещата, които трябва да запомните

  • Натиснете ALT + F11 за да отворите редактора VBA.
  • Можете да натиснете ALT + F8 да се възползвате от Макроси диалогов прозорец.
  • За да стартирате кода VBA, натиснете бутона F5.

Заключение

В обобщение, обсъдихме 2 начина за броене на колони с данни с помощта на VBA в Excel. Препоръчваме ви да изтеглите работната тетрадка за упражнения, приложена заедно с тази статия, и да практикувате всички методи с нея. И не се колебайте да задавате въпроси в раздела за коментари по-долу. Ще се опитаме да отговорим на всички съответни запитвания възможно най-скоро. И моля, посетете нашия уебсайт ExcelWIKI за да проучите повече.

Предишна публикация Попълване до следващата стойност в Excel (5 лесни метода)
Следваща публикация Как да групирате редове по стойност на клетката в Excel (3 прости начина)

Хю Уест е опитен обучител и анализатор на Excel с над 10 години опит в индустрията. Има бакалавърска степен по счетоводство и финанси и магистърска степен по бизнес администрация. Хю има страст към преподаването и е разработил уникален подход на преподаване, който е лесен за следване и разбиране. Неговите експертни познания по Excel са помогнали на хиляди студенти и професионалисти по целия свят да подобрят уменията си и да постигнат отлични резултати в кариерата си. Чрез своя блог Хю споделя знанията си със света, като предлага безплатни уроци за Excel и онлайн обучение, за да помогне на хората и фирмите да достигнат пълния си потенциал.