求大神给写个VBA函数

zhangstone

各位大神：

    我是一个VBA小白，想在想求一个VBA函数，详见附件。

小凡、、、

看不出举例有啥规律，你描述的的也挺抽象的

cyh3230

你这个, 好像可以用 M365 新版函数实现, 如果我理解的没有错
用VBA 感觉比函数麻烦的多

zhangstone

cyh3230，您好！
就是这个意思，怎么操作的？我没有365，只有2019

yjh_27

1. Function shu(a)
   
2. Dim arr(9, 1 To 2)
   
3. brr = Split(a, ",")
   
4. For i = 0 To UBound(brr)
   
5.     c = brr(i) Mod 10
   
6.     arr(c, 1) = arr(c, 1) + 1
   
7.     arr(c, 2) = arr(c, 2) & "," & brr(i)
   
8. Next
   
9. For i = 0 To 9
   
10.     If arr(i, 1) > 1 Then
    
11.         s = s & ";" & Mid(arr(i, 2), 2)
    
12.     End If
    
13. Next
    
14. 
    
15. If Len(s > 1) Then shu = Mid(s, 2)
    
16. End Function
    

复制代码

zhangstone

yjh_27大神：
   超级感谢！每次都是您救我。这正是我想要的。

longwin

请测试。。。。。 工作簿1(自定义函数）.zip (13.14 KB, 下载次数: 0)

2024-4-30 15:03 上传

点击文件名下载附件

zhangstone

longwin，非常感谢！