代码如下
Sub cal()Set reg = CreateObject("vbscript.regexp")Set dic = CreateObject("scripting.dictionary")r = [a65536].End(xlUp).RowIf Cells(r - 3, "A") Like "*提取*" Then With reg .Pattern = "\【\d+\】" .Global = True If .test(Cells(r - 2, "a")) = True Then Set brr = .Execute(Cells(r - 2, "a").Text) For Each b In brr For n = 1 To Len(b) dic(Mid(b, n, 1)) = 1 Next Next End If End WithEnd If Dim arr(1 To 10, 1 To 2) For i = 1 To 10 arr(i, 1) = CStr(i - 1) If dic.exists(arr(i, 1)) Then arr(i, 2) = dic(arr(i, 1)) Next [c4].Resize(10, 2) = arrEnd Sub
将提取的数据放在对应的B列,在你需要的单元格输入:=SUM(IF(FREQUENCY(B:B,B:B),1))