Посчитать количество столбцов в Excel

Описание функции

Функция =КОЛИЧЕСТВОСТОЛБЦОВ([ИМЯ_ЛИСТА]; [ИМЯ_КНИГИ]) имеет два необязательных аргумента.

• [ИМЯ_ЛИСТА] - По умолчанию (если аргумент не указан) функция применяется к активному листу. Укажите лист, в котором необходимо определить количество столбцов.
• [ИМЯ_КНИГИ] - Укажите имя книги, в которой необходимо определить количество столбцов. По умолчанию используется активная книга.

Ниже приведен пример работы данной формулы.

Пример

Определение количества столбцов на текущем листе.

Код на VBA

Function КОЛИЧЕСТВОСТОЛБЦОВ(Optional ИМЯ_ЛИСТА As Variant, Optional ИМЯ_КНИГИ As Variant) As Long
    If IsMissing(ИМЯ_КНИГИ) Then ИМЯ_КНИГИ = ActiveWorkbook.Name
    If IsMissing(ИМЯ_ЛИСТА) Then ИМЯ_ЛИСТА = ActiveSheet.Name
 
    КОЛИЧЕСТВОСТОЛБЦОВ = Workbooks(ИМЯ_КНИГИ).Sheets(ИМЯ_ЛИСТА).UsedRange.Column - 1 + _
        Workbooks(ИМЯ_КНИГИ).Sheets(ИМЯ_ЛИСТА).UsedRange.Columns.Count
End Function