Excel · VBA custom function to obtain multiple cell values

《excel Let's ask questions - Cell multi value 》, Returns the value of the cell that appears the most times in multiple cells

Applicable to multiple cells and cell ranges

Function majority(ParamArray args())
    ' Function definition majority( Cell 1, Cell 2,...) Returns the value of the cell with the most occurrences of multiple cells 
    Dim a, aa, t, i, k, v, m, x, dict As Object, result
    Set dict = CreateObject("scripting.dictionary")
    For Each a In args
        If Not IsArray(a) Then
            t = a.Value
            dict(t) = dict(t) + 1
        Else
            For Each aa In a
                t = aa.Value
                dict(t) = dict(t) + 1
            Next
        End If
    Next
    k = dict.keys
    v = dict.Items
    m = WorksheetFunction.Max(v)  ' Most times 
    result = Array()
    For i = 0 To dict.count - 1:  ' Ergodic dictionary 
        If v(i) = m Then
            x = UBound(result) + 1
            ReDim Preserve result(x)
            result(x) = k(i)
        End If
    Next
    majority = Join(result, ",")
    
End Function

give an example