Оглавление
Когда у вас есть небольшая таблица данных с несколькими столбцами, вы можете легко подсчитать их все. Но для большой таблицы данных довольно сложно подсчитать все столбцы без ошибок. Кроме того, некоторые столбцы могут содержать данные, в то время как некоторые столбцы могут быть совершенно пустыми. Таким образом, подсчитать все столбцы с данными в случае большой таблицы данных довольно сложно. В этой статье вы узнаете 2 способа подсчетастолбцов с данными с помощью VBA в Excel с легкостью.
Скачать Практическое пособие
Вы можете скачать файл Excel по следующей ссылке и практиковаться вместе с ним.
Подсчет столбцов с данными.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. подсчет всех столбцов в заданном диапазоне с данными с помощью кода 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.
❻ Перейти к Разработчик и нажмите кнопку Макросы чтобы открыть Макро окно.
Или просто нажмите кнопку 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 "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 чтобы узнать больше.
