函数VBA：UBound

描述

VBA UBound 函数返回指定数组的最大可用索引。

语法 UBound

UBound（数组）

或者

UBound（数组，维度）

示例 VBA UBound

使用 UBound 函数获取数组 2 个维度中每个维度的索引：

Sub UBoundExample1()

     Dim array(10, 4)
    
     '第一维度的最大索引
     MsgBox UBound(array) '退货：10
    
     '第二维最大索引
     MsgBox UBound(array, 2) '退货：4

End Sub

使用函数UBound获取函数SPLIT创建的数组中值的个数：

Sub UBoundExample2()

     link = "www.moonexcel.com.ua"
    
     '将字符串拆分为数组
     array = Split(link, ".")
    
     '数组元素的数量（知道数组从0开始）
     number = UBound(array) + 1
    
     '显示数组元素的数量
     MsgBox number '退货：4

End Sub