Функция VBA: UBound

Описание

Функция VBA UBound возвращает наибольший индекс для указанного массива.

Синтаксис UBound

UBound(массив)

Или

UBound(массив, измерение)

Пример VBA UBound

Использование функции UBound для получения индекса каждого из 2-х измерений массива:

Sub example()

      Dim array(10, 4)
    
      'Максимальный индекс первого измерения
      MsgBox UBound(array) 'Возвращает: 10
    
      'Максимальный индекс второго измерения
      MsgBox UBound(array, 2) 'Возвращает: 4

End Sub

Использование функции UBound для получения количества значений в массиве, созданого функцией SPLIT:

Sub example()

      link = "www.moonexcel.com.ua"
    
      'Разделение строки символов на массив
      array = Split(link, ".")
    
      'Количество элементов массива (зная, что массив начинается с 0)
      number = UBound(array) + 1
    
      'Отобразить количество элементов массива
      MsgBox number 'Возвращает: 4

End Sub