数组去重键位发生改变_VBA数组去重

最新推荐文章于 2024-05-27 14:33:20 发布

空空如爷儿

最新推荐文章于 2024-05-27 14:33:20 发布

阅读量102

点赞数

文章标签：数组去重键位发生改变

本文链接：https://blog.csdn.net/weixin_33724264/article/details/112588251

版权

Sub 数组去重()
rdp_arr = Array(1, 2, 2, 3, 3, 4, 5)
Dim midarr()
ReDim midarr(UBound(rdp_arr) - LBound(rdp_arr))
k = 0
For Each d In rdp_arr
    For i = 0 To UBound(rdp_arr) Step 1
        If d = midarr(i) Then Exit For
        If i = UBound(rdp_arr) Then
            midarr(k) = d
            k = k + 1
        End If
    Next
Next
i = 0
For Each x In midarr
    If x <> "" Then
        i = i + 1
    End If
Next
i = i - 1
Dim result()
ReDim result(i)
For k = 0 To i
    result(k) = midarr(k)
Next
End Sub