Подсчитайте количество уникальных строк, разделенных пробелами, в одной ячейке

Question

Мне нужно подсчитать количество уникальных строк в одной ячейке в Excel.

Например,
«яблоко груша груша винограда» будет подсчетом 3
«яблочный грушевого винограда» будет подсчетом 3
«оранжевый банан» будет подсчетом 2

Любые формулы или код VBA, которые могли бы дать этот результат?

редактировать: Я преобразовал к югу COUNTUNIQUE к функции, которая также работает

Function CountUnique(s As String) 
    Dim c As Collection 
    Set c = New Collection 
    ary = Split(s, " ") 
    On Error Resume Next 
    For Each a In ary 
    c.Add a, CStr(a) 
    Next a 
    On Error GoTo 0 
    CountUnique = c.Count 
End Function 

Answer 1

Вы можете добиться результата с использованием словаря:

Sub test() 
    c = CountDistinct("apple pear pear grape") 
End Sub 

Public Function CountDistinct(s As String) 
    On Error Resume Next 

    Dim hash As New Dictionary 
    For Each x In Split(s, " ") 
     hash.Add x, False 
    Next 

    CountDistinct = hash.Count 
End Function 

Просто добавьте ссылку на Microsoft время выполнения сценариев библиотека

Answer 2

Выбрать ячейку и запустить:

Sub CountUnique() 
    Dim c As Collection 
    Set c = New Collection 
    ary = Split(ActiveCell.Value, " ") 
    On Error Resume Next 
    For Each a In ary 
     c.Add a, CStr(a) 
    Next a 
    On Error GoTo 0 
    MsgBox c.Count 
End Sub