excel vba - 从数组中删除重复项

Question

我正在尝试从excel数组中删除重复的元素。我想我不是以最有效的方式做到这一点，而且似乎无论如何都没有起作用：

For lrw = 1 To UBound(rcArray)
    For copyIndex = lrw + 1 To .Rows.Count
        If rcArray(copyIndex) = rcArray(lrw) Then
            rcArray(lrw).Delete
        End If
    Next copyIndex
Next lrw

我需要重新调整阵列吗？有人为此提供了一些代码的链接吗？

提前致谢！

Answer 1

虽然我需要花一些时间来编写一些代码，但最好的办法是创建一个新数组并复制你想要保留的值。您不能只删除数组中间的元素。

Redim只允许您添加或删除数组末尾的元素。