如何用公式汇总人名个数？

ifan0916

可区分张三和张三丰这种

1. =COUNT(FIND("、"&B2&"、","、"&$A$2:$A$7&"、"))

复制代码

水归器内

用UNIQUE函数提取不重复的人名，在用COUNTA统计人员数量；

水归器内

水归器内 发表于 2024-1-20 20:33
用UNIQUE函数提取不重复的人名，在用COUNTA统计人员数量；

INDEX($B$2:$B$15,MATCH(0,COUNTIF($E$1:E1,$B$2:$B$15),0))   ,用INDEX+MATCH+COUNTIF 去重复值，三键回车；

zhangcheng6688

借个楼，学习一下字典
Sub test()
lastr = Cells(Rows.Count, "a").End(xlUp).Row
arr = Range("a1:a" & lastr)
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   If arr(i, 1) <> "" Then
      xm = Split(arr(i, 1), "、")
      For j = 0 To UBound(xm)
         If Not d.exists(xm(j)) Then
            d(xm(j)) = 1
         Else
            d(xm(j)) = d(xm(j)) + 1
         End If
      Next
   End If
Next
[b2].Resize(1, d.Count) = d.keys
[b3].Resize(1, d.Count) = d.items
End Sub