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

Завантажити Практичний посібник

Ви можете завантажити Excel-файл за наступним посиланням та потренуватися разом з ним.

Підрахунок стовпців за допомогою Data.xlsm

2 Способи підрахунку стовпців з даними за допомогою VBA в Excel

1. порахувати всі стовпці на аркуші з даними за допомогою простого коду VBA

У наведеній нижче таблиці даних ми бачимо 3 стовпці. Тепер ми використаємо код VBA для визначення кількості використовуваних стовпців на одному аркуші Excel.

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

❷ Після цього створіть новий модуль з Вставка> Модуль.

❸ Після цього скопіюйте наступний VBA-скрипт.

 Public Sub CountUsedColumns() With Sheet1.UsedRange MsgBox "Кількість стовпців з даними становить: " & .Columns.Count End With End Sub 

❹ Потім поверніться в редактор VBA і натисніть CTRL + V щоб наклеїти його.

❺ Тепер збережіть код VBA, натиснувши CTRL + S кнопку.

❻ Для запуску коду на VBA перейдіть в розділ Розробник та натисніть на вкладку Макроси Або просто натисніть кнопку F5 ключ.

На сьогоднішній день, на жаль, це не так. Макрос з'явиться діалогове вікно.

❼ Все, що вам потрібно зробити, це натиснути на кнопку Біжи кнопку.

Тепер ви побачите, що з'явилося діалогове вікно, в якому зазначено, що кількість стовпців з даними - 3.

Читати далі: Як порахувати кількість стовпців в Excel (3 простих способи)

2. підрахувати всі стовпці в заданому діапазоні з даними за допомогою VBA-коду Excel

Наступний VBA-код дозволить порахувати всі стовпці з даними в заданому діапазоні.

Для використання коду,

❶ Перш за все, відкриваємо редактор VBA, натиснувши ALT + F11.

❷ Потім перейдіть до Вставка> Модуль створити новий модуль.

❸ Після цього скопіюйте наступний VBA-скрипт.

 Sub CountColumnsInARange() Dim xRng As Worksheet Set xRng = Worksheets("Sheet1") MsgBox "Всього стовпців: " & xRng.Range("B5:D5").Columns.Count End Sub 

❹ Поверніться в редактор VBA і натисніть CTRL + V щоб наклеїти його.

❺ Тепер збережіть код, натиснувши CTRL + S.

❻ Перейдіть до розділу Розробник і натисніть на вкладку Макроси для відкриття Макрос вікно.

Або просто натисніть на кнопку F5 ключем для того, щоб скористатися Макрос діалогове вікно.

❼ У діалоговому вікні оберіть назву функції 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.

❷ Після цього створіть новий модуль з Вставка> Модуль.

❸ Скопіюйте наступний код 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 "Останній використаний номер стовпця: " & xRng End Sub 

❹ Потім поверніться в редактор VBA і натисніть CTRL + V щоб наклеїти його.

❺ Тепер збережіть код VBA, натиснувши CTRL + S кнопку.

Тепер натисніть кнопку F5 для запуску вищевказаного коду.

Ви отримаєте останній використаний номер стовпця у спливаючому діалоговому вікні, як показано на малюнку нижче:

Важливі моменти для запам'ятовування

• Преса ALT + F11 відкрити редактор VBA.
• Ви можете натиснути ALT + F8 для того, щоб скористатися Макроси діалогове вікно.
• Щоб запустити код VBA, натисніть кнопку F5.

Висновок

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