Como contar o número de vezes que uma string de matemática aparece em uma célula no Excel?

Question

Eu tenho uma coluna no Excel onde há algumas cadeias separadas por vírgulas. Por exemplo:

Seg, Ter, Qua, Seg

Qui, Sex

Sab, Sab

Seg

Dom, Seg

(existem linhas que podem ser nulas)

Eu quero contar o número de strings diferentes em cada linha, no exemplo acima eu gostaria que a saída fosse:

Seg: 2, Ter: 1, Qua: 1

Qui: 1, Sex: 1

Sab: 2

Seg: 1

Dom: 1, Seg: 1

Existe uma maneira de fazer isso no Excel?

    

Answer 1

Experimente a seguinte Função definida pelo usuário :

Public Function Components(sIN As String) As String
    Dim c As Collection, bry(), L As Long

    L = Len(sIN)
    Set c = New Collection
    ary = Split(sIN, ", ")
    On Error Resume Next
        For Each a In ary
            c.Add a, CStr(a)
        Next a
    On Error GoTo 0

    ReDim bry(1 To c.Count)
    For i = 1 To c.Count
        bry(i) = c.Item(i)
        Kount = (L - Len(Replace(sIN, bry(i), ""))) / Len(bry(i))
        Components = Components & bry(i) & ":" & Kount & ", "
    Next i

    Components = Left(Components, Len(Components) - 2)
End Function