**Edit1：**我重写了你的循环，我认为这是问题的原因。Ubound 和 Lbound 假设第一个维度，如果它没有被提供。所以你做它的方式和下面应该返回正确的上限和下限。但是当然，当你处理二维数组时，最好是显式的。而且 vArray3 应该是 Dimensioned。我在你的代码中没有看到它。还添加了一个 Boolean 变量。

ReDim vArray3 (1 to 10, 1 to 2) '~~> change to suit
Dim dup As Boolean: k = 1
For i = LBound(vArray1, 1) To UBound(vArray1, 1) '~~> specify dimension
    dup = False
    For j = LBound(vArray2, 1) To UBound(vArray2, 1) '~~> specify dimension
        If vArray1(i, 1) = vArray2(j, 1) Then
            dup = True: Exit For
        End If
    Next j
    If Not dup Then '~~> transfer if not duplicate
        vArray3(k, 1) = vArray1(i, 1)
        k = k + 1
    End If
Next I

也可以像这样使用match：

'~~> Use 1D array instead by using Transpose
vArray2 = Application.Transpose(wb1.Worksheets(2).Range("B1:B" & lRow1))
For i = LBound(vArray1, 1) To UBound(vArray1, 1) '~~> specify dimension
    If IsError(Application.Match(vArray1(i, 1), vArray2, 0)) Then
        vArray3(k, 1) = vArray1(i, 1)
        k = k + 1
    End If
Next i

If (Join(varArray1, ",") = Join(varArray2, ",")) Then
    IsEqual = True
End If