求一个自定义函数

zhangstone

各位高手：
     大家好！
     我是一个VBA小白，我想做一个自定义函数，要求如下：
     将【数据】中每个单元格中的尾数相同的数据挑出来，放到对应的【结果列】

chxw68

写了个自定义过程，楼主如果需要自定义函数的话稍微修改一下就行了。

太极拍天雄

测试一下，没有仔细检查！

gwjkkkkk

Function RightSame(Rng As Range) As String
    Dim ar, j&, dic As Object, vKey
   
    Set dic = CreateObject("Scripting.Dictionary")
    ar = Split(Rng.Value, ",")
    For j = 0 To UBound(ar)
        dic(Right(ar(j), 1)) = dic(Right(ar(j), 1)) & "," & ar(j)
    Next j
   
    For Each vKey In dic.keys
        ar = Split(dic(vKey), ",")
        If UBound(ar) > 1 Then
            dic(vKey) = Mid(dic(vKey), 2)
        Else
            dic.Remove vKey
            
        End If
    Next
    RightSame = Join(dic.items, ";")
End Function

gwjkkkkk

请参考。。。

zhangstone

chxw68,gwjkkkkk:
  谢谢二位大神！