Ubound（array）函数清除数组

Question

我在VBA上还很新，但是这个错误对我来说没有任何意义。 我试图找到一个数组的ubber绑定，但是当我运行uBound（array）函数时，它将清除该数组，然后返回一个错误； 我不知道为什么。 我在“ Let ub = UBound（Unique，1）”上停止了代码，并对其进行了遍历，它实际上在步骤1中具有数组中的值，步骤2清除了数组，步骤3称为错误。 这也是错误首先发生的位置。

感谢大家的帮助：

Sub count_values(unique() As Variant, cccyarray() As Variant)

Dim m As Long
Dim n As Long
Dim b As Long
Dim ub As Variant
Dim ub2 As Variant

Let ub = UBound(unique, 1)
Let ub2 = UBound(unique)

Answer 1

我以前见过这种表示法，但是我通常以不同的方式使用UBound。 例如，如果Unique（）。length为5，并且数组中的最后一个条目为“橙色”，则：

UBound(Unique) 'Returns 5

和

Unique(UBound(Unique)) 'Returns Orange

基于此，我建议您是否要将Unique（）的第一个条目存储到ub中

ub = Unique(1)

并且如果数组的最后一个条目进入ub2

ub2 = Unique(UBound(Unique))