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

时间:2012-03-06 21:17:18

标签: 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

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

提前致谢!

1 个答案:

答案 0 :(得分:0)

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

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