excel中查重复次数

'自定义公式-按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式Function 去重显示次数(a As Range, c As String, d As String)For Each cel In a b = b & " " & celNextArr = Split(Mid(b, 2), " ")Set dic = CreateObject("dictionary")For i = 0 To UBound(Arr) dic(Arr(i)) = dic(Arr(i)) + 1Next n = keys m = ItemsIf c = 1 Then 去重显示次数 = n(d - 1)Else 去重显示次数 = m(d - 1)End IfEnd Function

不清楚你是否需要这种格式

E2:=SUM(IFERROR(1/COUNTIFS(A$2:A$1000,A$2:A$1000,A$2:A$1000,D2,B$2:B$1000,B$2:B$1000),))ctrl+shift+回车，下拉

已经有代码一键完成了，只是被隐藏私用了。