excel vba – 删除数组中的重复项

我想从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 

我是否需要reDim数组？ 有没有人有这个链接到一些代码？

提前致谢！

Answer 1

虽然需要一段时间才能凑齐一些代码，但最好的办法是创build一个新的数组，然后复制要保留的值。 你不能只删除数组中间的元素。

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