二维数组去重报错

脚本小学弟

如果定义一个静态的二维数组,然后去重,是可以正确实现的(不报错)

例如

[按键精灵] 纯文本查看 复制代码

//定义一个静态二维数组
Dim 合体数组()
合体数组(0) = Array(1, 1, 1, 1)
合体数组(1) = Array(2, 2, 2, 2)
合体数组(2) = Array(3, 3, 3, 3)
合体数组(3) = Array(4, 4, 4, 4)
合体数组(4) = Array(4, 4, 4, 4)
合体数组(5) = Array(3, 3, 3, 3)
合体数组(6) = Array(1, 1, 1, 1)
//对静态二维数组去重
For i = 1 To UBOUND(合体数组) + 1
    For j = i + 1 To UBOUND(合体数组)
        If Join(合体数组(i), "") = Join(合体数组(j), "") Then 
            合体数组(j) = null
            Exit For
        End If
    Next 
Next
//遍历去重后的二维数组
For i = 1 To UBOUND(合体数组)+1
    TracePrint 合体数组[i][1],合体数组[i][2],合体数组[i][3],合体数组[i][4]
Next

对于静态二维数组,这套去重代码可以正常用,但是如果用去重代码去去重一个动态的二维数组就会报错,这个怎么去解决啊

报错内容:发生运行时错误！错误代码：2，错误行号：39，错误信息： bad argument #1 to 'table' (table expected, got null)

紫猫

试下用zm.ArrayRemove移除元素, 不要用null