[已解决]求助VBA

lkjpoi

条件.rar (20.32 KB, 下载次数: 17)

2012-12-31 09:42 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-31 14:07

条件.rar (20.54 KB, 下载次数: 4)

2012-12-31 14:07 上传

点击文件名下载附件 ，就像平时用的函数一样。

跳转到最佳答案楼层

hwc2ycy

用字典，正则可以试试。
字典去重是很容易的。

hwc2ycy

1. Function getfive(ByVal number As String) As String
   
2.     If Len(number) < 5 Then
   
3.         getfive = "长度不足5位"
   
4.         Exit Function
   
5.     End If
   
6.    
   
7.     Dim dic As Object
   
8.     Set dic = CreateObject("scripting.dictionary")
   
9.     Dim i%
   
10.     For i = 1 To Len(number)
    
11.     dic(Mid(number, i, 1)) = ""
    
12.     Next
    
13.     getfive = Left(Join(dic.keys, ""), 5)
    
14.     Set dic = Nothing
    
15. End Function

复制代码

自定义函数。

hwc2ycy

1. Function getfive(ByVal number As String) As String
   
2.     If Len(number) < 5 Then
   
3.         getfive = "长度不足5位"
   
4.         Exit Function
   
5.     End If
   
6. 
   
7.     Dim dic As Object
   
8.     Set dic = CreateObject("scripting.dictionary")
   
9.     Dim i%
   
10.     For i = 1 To Len(number)
    
11.         dic(Mid(number, i, 1)) = ""
    
12.         If dic.Count = 5 Then Exit For
    
13.     Next
    
14.     getfive = Left(Join(dic.keys, ""), 5)
    
15.     Set dic = Nothing
    
16. End Function

复制代码

lkjpoi

hwc2ycy 发表于 2012-12-31 12:57

我不知道要怎样才能运行它,看不见标题,

hwc2ycy

条件.rar (20.54 KB, 下载次数: 4)

2012-12-31 14:07 上传

点击文件名下载附件 ，就像平时用的函数一样。

lkjpoi

hwc2ycy 发表于 2012-12-31 14:07
，就像平时用的函数一样。

用得不放便,我是要清除掉数据源后结果还要保留在,

hwc2ycy

你把结果复制，再粘贴，选择性粘贴，数值。既然是函数，肯定是要依据数据生成的结果啦。

lkjpoi

hwc2ycy 发表于 2012-12-31 16:00
你把结果复制，再粘贴，选择性粘贴，数值。既然是函数，肯定是要依据数据生成的结果啦。

我实在不懂,最主要是我能点击运行才行,