多个单元格去掉重复统计文本个数

钵仔糕

=COUNTA(UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(",",TRUE,A1:B1),","))))

zhangcheng6688

学习一下字典，打扰了
Sub test()
lastr = Cells(Rows.Count, "a").End(xlUp).Row
arr = Range("a1:c" & lastr)
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(arr)
   d(arr(i, 1)) = ""
   vv = Split(arr(i, 2), ",")
   For j = 0 To UBound(vv)
      d(vv(j)) = ""
   Next
   arr(i, 3) = d.Count
   d.RemoveAll
Next
[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub