dictionary  - 각 사전 단어의 갯수를 알고 싶을 때

dictionary  - 각 사전 단어의 갯수를 알고 싶을 때

 

@ 각 사전 단어의 갯수를 알고 싶을 때

 

    Dim city_num As String
    city_num = "서울, 서울,부산, 부산,대구,대구,울산"
    Dim city_arr As Variant
    Dim i_dict As Object
    Dim i_item As Variant
    Dim r As Long
    
    If Len(Trim(city_num)) > 0 Then  ''있다면
        city_arr = Split(city_num, ",")
        
        ' 유니크 집계를 위한 딕셔너리
        Set i_dict = CreateObject("Scripting.Dictionary")
    
        For Each i_item In city_arr
            i_item = Trim(CStr(i_item))
            If i_item <> "" Then
                If i_dict.Exists(i_item) Then
                    i_dict(i_item) = i_dict(i_item) + 1  ''사전의 밸류를 누적시킨다
                Else
                    i_dict.Add i_item, 1  ''최초 사전의 단어를 추가한다.
                End If
            End If
        Next i_item
        
        r = 1
    
        ' 딕셔너리의 키/값을 행으로 기록
        For Each i_item In i_dict.Keys
            Cells(r, 1).Value = i_item  
            Cells(r, 2).Value = i_dict(i_item)
            r = r + 1
        Next i_item
    End If