数组分组算法求助！！！！！！！！！

Question

谁知道好的数组分组算法啊
比如一个数组{m,m,m,m,m,m,y,y,y,y,y,u,u,u,u,u,u,r,r.....}把相同的分到一个新的数组。
哪位大哥帮帮忙啊

Answer 1

楼主不要那么惜字如金嘛，写明白一写下面是根据我的理解写的代码，不知道是不是楼主要的，结果放在ary2里了Dim ary1() As String
Dim ary2() As String
Dim i As Integer
ReDim ary2(0)
Dim strtmp As String
ary1 = Split("m,m,m,m,m,m,y,y,y,y,y,u,u,u,u,u,u,r,r", ",")
For i = 0 To UBound(ary1)
    If strtmp <> ary1(i) Then
        ReDim Preserve ary2(UBound(ary2) + 1)
        ary2(UBound(ary2) - 1) = ary1(i)
        strtmp = ary1(i)
    End If
Next
ReDim Preserve ary2(UBound(ary2) - 1)