创建对字符串不重复字符个数计数的自定义函数

13782671637

各位高手大神们，谁有字符串不重复字符个数计数的自定义函数代码？请看附件 统计不重复字符个数的自定义函数 .zip (7.5 KB, 下载次数: 19)

2018-6-21 16:01 上传

点击文件名下载附件

    ，恳请老师们按里面的要求，帮忙创建一个，感谢不尽。

lsdongjh

1. Function ZFCJS(rgSource As Range) As Variant
   
2.     Dim arrSource As Variant, arrResult As Variant
   
3.     Dim lngRow As Long
   
4.     Dim strTemp As String, strChar As String
   
5.     Dim intLen As Integer
   
6.     Dim objDic As Object
   
7.    
   
8.     If rgSource.Count = 1 Then
   
9.         ReDim arrSource(1 To 1, 1 To 1)
   
10.         arrSource(1, 1) = rgSource
    
11.     Else
    
12.         arrSource = rgSource
    
13.     End If
    
14.    
    
15.     arrResult = arrSource
    
16.     Set objDic = CreateObject("Scripting.Dictionary")
    
17.    
    
18.     For lngRow = LBound(arrSource) To UBound(arrSource)
    
19.         strTemp = arrSource(lngRow, 1)
    
20.         strTemp = Trim(strTemp)
    
21.         objDic.RemoveAll
    
22.         For intLen = 1 To Len(strTemp)
    
23.             strChar = Mid(strTemp, intLen, 1)
    
24.             If Trim(strChar) <> "" Then objDic(strChar) = ""
    
25.         Next
    
26.         arrResult(lngRow, 1) = objDic.Count
    
27.     Next
    
28.     Set objDic = Nothing
    
29.     ZFCJS = arrResult
    
30. End Function

复制代码

Chip_Kenny

1. Function ZFCJS(rng As Range)
   
2. Dim d As Object, s$, xcell As Range
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For Each xcell In rng
   
5.     s = s & xcell.Value
   
6. Next
   
7. For i = 1 To Len(s)
   
8.     d(Mid(s, i, 1)) = ""
   
9. Next
   
10. ZFCJS = d.Count
    
11. End Function

复制代码

lsdongjh

你确定3楼的 函数 在数组公式状态下 有效？

13782671637

Chip_Kenny 发表于 2018-6-21 16:24

老师：代码很好地解决了D9提到的第一个问题，但无法执行区域数组公式ZFCJS(A5:A27)的计算。我需要这个代码同时具备区域数组公式的功能。如：光标选定C5:C100000,输入区域数组公式  =ZFCJS(A5:100000)，由于A5:A27不空，则C5:C27自动显示计算结果，A28:A100000尚未输入数据，为空，则C28:C100000自动显示空白。由于实际工作表数据量很大，必须运算速度快！希望老师完善代码，多谢了！

Chip_Kenny

我的UDF不需三鍵

13782671637

lsdongjh 发表于 2018-6-21 16:21

首先感谢老师一直以来对我的热心帮助！
   如果B列公式=ZFCJS($A5)  下拖至B50,   执行单元格计算，  C列公式{=ZFCJS($A5:$A50) }执行区域计算，希望A28以下尚未输入数据时，B28:C50自动显示空白。

13782671637

lsdongjh 发表于 2018-6-21 16:45
你确定3楼的 函数 在数组公式状态下 有效？

就是计算结果不对。

lsdongjh

13782671637 发表于 2018-6-21 16:56
首先感谢老师一直以来对我的热心帮助！
   如果B列公式=ZFCJS($A5)  下拖至B50,   执行单元格计算，  C ...

arrResult(lngRow, 1) = IIf(objDic.Count = 0, "", objDic.Count)

13782671637

lsdongjh 发表于 2018-6-21 16:21

老师：麻烦您帮忙解决，当数据列未输入数据时，屏蔽公式计算结果显示的“0”为空白。