Excel VBA确定一维数组中的元素数量 - VBA

在Excel VBA中，需要经常操作数组。在某些时候，需要确定一个一维数组中的元素数量。本文主要介绍如何通过Excel VBA确定一维数组中的元素数量。

方法一 - UBound函数

UBound()函数是VBA中操作数组的一个内置函数，能够返回数组的上限索引。因为数组的下标从0开始，所以数组的元素个数可以通过UBound()函数返回的索引值加上1来计算。

Sub UBoundFunctionExample()
    
    Dim numbers(1 To 5) As Integer
    Dim count As Integer
    
    numbers(1) = 10
    numbers(2) = 20
    numbers(3) = 30
    numbers(4) = 40
    numbers(5) = 50
    
    count = UBound(numbers) + 1
    
    Debug.Print "数组中的元素个数为：" & count
    
End Sub

输出结果为：数组中的元素个数为：5

方法二 - For循环

通过遍历一维数组，统计数组中的元素个数也是一种方法。需要注意的是，不能使用For Each循环语句，因为For Each语句只能用于枚举集合，而数组不是集合。

Sub ForLoopExample()
    
    Dim numbers(1 To 5) As Integer
    Dim count As Integer
    
    numbers(1) = 10
    numbers(2) = 20
    numbers(3) = 30
    numbers(4) = 40
    numbers(5) = 50
    
    For i = 1 To UBound(numbers)
        count = count + 1
    Next i
    
    Debug.Print "数组中的元素个数为：" & count
    
End Sub

输出结果与方法一相同：数组中的元素个数为：5

总结

通过UBound()函数或者遍历一维数组的方式，我们可以轻松地确定一个一维数组中的元素数量。在实际编程中，我们可以根据实际需要选择合适的方法。

Markdown代码片段

## Excel VBA确定一维数组中的元素数量 - VBA

在Excel VBA中，需要经常操作数组。在某些时候，需要确定一个一维数组中的元素数量。本文主要介绍如何通过Excel VBA确定一维数组中的元素数量。

### 方法一 - UBound函数

`UBound()`函数是VBA中操作数组的一个内置函数，能够返回数组的上限索引。因为数组的下标从0开始，所以数组的元素个数可以通过`UBound()`函数返回的索引值加上1来计算。

```vb
Sub UBoundFunctionExample()
    
    Dim numbers(1 To 5) As Integer
    Dim count As Integer
    
    numbers(1) = 10
    numbers(2) = 20
    numbers(3) = 30
    numbers(4) = 40
    numbers(5) = 50
    
    count = UBound(numbers) + 1
    
    Debug.Print "数组中的元素个数为：" & count
    
End Sub
```

输出结果为：`数组中的元素个数为：5`

### 方法二 - For循环

通过遍历一维数组，统计数组中的元素个数也是一种方法。需要注意的是，不能使用`For Each`循环语句，因为`For Each`语句只能用于枚举集合，而数组不是集合。

```vb
Sub ForLoopExample()
    
    Dim numbers(1 To 5) As Integer
    Dim count As Integer
    
    numbers(1) = 10
    numbers(2) = 20
    numbers(3) = 30
    numbers(4) = 40
    numbers(5) = 50
    
    For i = 1 To UBound(numbers)
        count = count + 1
    Next i
    
    Debug.Print "数组中的元素个数为：" & count
    
End Sub
```

输出结果与方法一相同：`数组中的元素个数为：5`

### 总结

通过`UBound()`函数或者遍历一维数组的方式，我们可以轻松地确定一个一维数组中的元素数量。在实际编程中，我们可以根据实际需要选择合适的方法。