[已解决]求个vba

oplkj

例 b3格是"04548867550" 把里面的同数字只要一个放在c5格,结果是045867

最佳答案

月排行榜 / 总排行榜

望帝春心

2016-9-7 18:47

1. Sub Greenhand()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For i = 1 To Len([b3].Value)
   
4.         d(Mid$([b3].Value, i, 1)) = ""
   
5.     Next
   
6.     [c5].NumberFormat = "@"
   
7.     [c5] = Join(d.keys, "")
   
8. End Sub

复制代码

跳转到最佳答案楼层

望帝春心

1. Sub Greenhand()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     For i = 1 To Len([b3].Value)
   
4.         d(Mid$([b3].Value, i, 1)) = ""
   
5.     Next
   
6.     [c5].NumberFormat = "@"
   
7.     [c5] = Join(d.keys, "")
   
8. End Sub

复制代码

苏子龙

初学vba，代码太长

小小水皮1

望帝春心 发表于 2016-9-7 18:47

感谢感谢，真的是学习了  正在学字典和正则

望帝春心

小小水皮1 发表于 2016-9-9 17:15
感谢感谢，真的是学习了  正在学字典和正则

不客气，相互学习，我也是新手