Cách chuyển đổi một chuỗi các giá trị được phân tách bằng dấu phẩy thành một mảng

Tôi có một vài ô có chuỗi như thế này:

"John, Carla, Peter, John, Bob, Chris, Carla, Andrea"

Tôi muốn tính có bao nhiêu người khác nhau được đặt tên (nghĩa là có bao nhiêu giá trị duy nhất). Số đếm cho chuỗi trên sẽ là 6. Lưu ý rằng tổng số lượng tên trong chuỗi có thể thay đổi rất nhiều. Một số chỉ có một tên và tên lớn nhất có 14 (trong đó một số có thể được nhân đôi). Một số tên có khoảng trắng trong chúng (ví dụ: "Peter Smith, Andrea, Carla Moore"), nhưng chúng ta có thể dựa vào dấu phẩy để tách chúng.

Tôi nghĩ giải pháp là chuyển đổi chuỗi thành một mảng và sau đó sử dụng kết hợp các công thức SUM, IF và FREQUENCY mà tôi tìm thấy trực tuyến đây , áp dụng cho mảng đó.

Tuy nhiên tôi không biết làm thế nào để chuyển đổi chuỗi thành một mảng (nếu đó là cách để đi).

Hãy thử chức năng nhỏ do người dùng xác định này:

Public Function PeopleKounter(s As String) As Long
    Dim DQ As String, c As Collection
    Set c = New Collection
    DQ = Chr(34)

    ary = Split(Replace(s, DQ, ""), ",")

    On Error Resume Next
        For Each a In ary
            c.Add a, CStr(a)
        Next a
    On Error GoTo 0

    PeopleKounter = c.Count
End Function

Công thức này sẽ lặp lại các "từ" và chỉ tính duy nhất.

=SUMPRODUCT(--(ISERROR(FIND(TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",99)),(ROW($1:$17)-1)*99+1,99)),TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",99)),1,(ROW($1:$17)-1)*99+1))))))

Khi lặp đi lặp lại, nó so sánh nó với hiện tại với tất cả những gì đến trước đó với FIND(). Và lỗi được trả lại nếu không tìm thấy và do đó nó được tính.