Excel·VBA自定义函数获取单元格多数值

《excel吧提问-单元格多数值》，返回多个单元格中出现最多次数的单元格的值

适用多个单元格和单元格区域

Function majority(ParamArray args())
    '函数定义majority(单元格1，单元格2，...)返回多个单元格出现次数最多的单元格的值
    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)  '最多次数
    result = Array()
    For i = 0 To dict.count - 1:  '遍历字典
        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

举例