VBA获取二维数组中的个数

在VBA中，如果你有一个动态大小的二维数组，想要获取其中元素的总数（即行数乘以列数），你可以通过遍历的方式来计算。下面是一个简单的示例，假设我们有一个名为 `myArray` 的动态二维数组：

Sub CountElementsInArray()
    Dim myArray() As Variant ' 假设这是一个动态类型的二维数组
    Dim numRows As Long, numCols As Long
    Dim totalElements As Long

    ' 获取数组维度
    numRows = UBound(myArray, 1) + 1 ' VB数组下标从1开始，所以加1
    numCols = UBound(myArray, 2)

    ' 计算总元素数
    totalElements = numRows * numCols

    Debug.Print "Total elements in the array: " & totalElements
End Sub

这段代码首先确定了数组的行数 (`UBound(1)`）和列数 (`UBound(2)`)，然后计算总元素数。`UBound()` 函数用于获取数组的上界。