Vba: как подсчитать количество используемых столбцов

Вы можете использовать следующий базовый синтаксис для подсчета количества столбцов, используемых в листе Excel, с помощью VBA:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

В этом конкретном примере подсчитывается количество столбцов, используемых на листе с именем Sheet1 , и отображается результат в ячейке A10 .

Если вместо этого вы хотите отобразить количество столбцов в окне сообщения, вы можете использовать следующий синтаксис:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

В следующих примерах показано, как использовать каждый из этих методов на практике со следующим набором данных в Excel, содержащим информацию о различных баскетболистах:

Пример 1. Подсчитайте столбцы, используемые в VBA, и отобразите результаты в ячейке.

Предположим, мы хотим подсчитать количество используемых столбцов и отобразить результаты в определенной ячейке.

Для этого мы можем создать следующий макрос:

 SubCountColumns ()
    Range(" A10 ") = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Обратите внимание, что ячейка A10 содержит значение 4 .

Это говорит нам о том, что используются 4 столбца.

Пример 2. Подсчет использованных столбцов в VBA и отображение результатов в окне сообщения.

Предположим, вместо этого мы хотим подсчитать количество используемых столбцов и отобразить результаты в окне сообщения.

Для этого мы можем создать следующий макрос:

 SubCountColumns ()
    Dim LastCol As Long
    LastCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
    MsgBox " Column Count: " & LastCol
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

В окне сообщения сообщается, что используются 4 столбца.

Примечание . Если после пустых столбцов следуют столбцы с данными, VBA посчитает пустые столбцы «использованными» в расчетах.

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: как посчитать количество листов в книге
VBA: как подсчитать количество строк в диапазоне
VBA: как подсчитать ячейки с определенным текстом