<em>Excel</em> <em>VBA</em>中二维数组的大小有

动态数组原则上跟你可用内存有关系!!!
但现在的内存足以容纳整个工作表.

请检查单元格内的数据,是否存在超过255个字符的单元格.

受内存的限制

Sub s()
    n = Cells(Rows.Count, 1).End(3).Row
    arr = Range("A11:F" & n)
    ReDim brr(1 To n, 1 To 6)
    For i = 1 To 6
        brr(1, i) = arr(1, i)
    Next
    k = 1
    For i = 2 To UBound(arr)
        For j = 1 To k
            t = ""
            For ii = 1 To 6
                t = t & brr(j, ii)
            Next
            For ii = 1 To 6
                t = Replace(t, arr(i, ii), "")
            Next
            If Len(t) < 2 Then GoTo 1
        Next
        k = k + 1
        For ii = 1 To 6
            brr(k, ii) = arr(i, ii)
        Next
1:
    Next
    [p11].Resize(k, 6) = brr
End Sub

动态数组原则上跟你可用内存有关系!!! 但现在的内存足以容纳整个工作表.