VBA比较锯齿数组触发“类型不匹配”错误求助

嘿，作为VBA新手遇到这个问题太正常了！咱们先搞清楚为啥会报错：

你代码里的table(0)是一个一维数组（因为外层Array里嵌套了另一个Array），aux也是一维数组，但VBA的=运算符根本没法直接比较两个数组——它只支持单个值之间的比较，所以直接写If table(0) = aux then就会触发「类型不匹配」的异常。

给你两个靠谱的解决方案：

方案1：自定义函数逐个元素比较（最可靠） #

写一个专门的函数来检查两个数组的元素是否完全一致，连维度、长度都会先校验，避免踩坑：

Function AreArraysEqual(arr1 As Variant, arr2 As Variant) As Boolean
    Dim i As Integer
    
    ' 先判断两个参数是不是数组
    If Not IsArray(arr1) Or Not IsArray(arr2) Then
        AreArraysEqual = False
        Exit Function
    End If
    
    ' 检查数组长度是否一致
    If UBound(arr1) <> UBound(arr2) Then
        AreArraysEqual = False
        Exit Function
    End If
    
    ' 遍历每个元素逐一比较
    For i = LBound(arr1) To UBound(arr1)
        If arr1(i) <> arr2(i) Then
            AreArraysEqual = False
            Exit Function
        End If
    Next i
    
    ' 所有元素都匹配，返回True
    AreArraysEqual = True
End Function

然后把你的代码改成这样调用：

Dim table() As Variant: table = Array(Array(0, 0, 0))
Dim aux() As Variant: aux = Array(0, 0, 0)

If AreArraysEqual(table(0), aux) Then
    ' 这里写你要执行的逻辑
    MsgBox "两个数组完全一致！"
End If

方案2：转成字符串快速比较（适合简单场景） #

如果你的数组元素都是简单数值/文本，没有逗号这类分隔符，可以用Join函数把数组转成字符串再比较，写法更简洁：

Dim table() As Variant: table = Array(Array(0, 0, 0))
Dim aux() As Variant: aux = Array(0, 0, 0)

If Join(table(0), ",") = Join(aux, ",") Then
    MsgBox "两个数组完全一致！"
End If

⚠️ 注意：如果数组元素里包含你用来分隔的字符（比如这里的逗号），这个方法会出错，所以只推荐在确定元素无特殊字符时用。

内容的提问来源于stack exchange，提问作者Evaristé Galois