Find most frequently occuring text in range that consist of multiple rows and colums

Question

My question is closely related to the following topics:

• Excel: Find most frequent occurring value in a range?
• https://exceljet.net/formula/most-frequentl

Answer 1

=INDIRECT(TEXT(MMULT(CHOOSE({1,2},ROW(MyRange),COLUMN(MyRange))+MOD(ROUNDUP(MATCH(1,0/FREQUENCY(0,1/(1+COUNTIF(MyRange,MyRange))))/COLUMNS(MyRange)^{1,0},0)-1,COLUMNS(MyRange)*ROWS(MyRange)^{1,0}),10^{5;0}),"R0C00000"),0)

Replace MyRange as required.

Note that, if you are not using an English-language version of Excel, parts of the above may require amending (the separators within the array constants - {1,2}, {1,0} and {5;0} - and the part "R0C00000" being two such examples).

Edit: the above is overkill; we can use simply (with CTRL+SHIFT+ENTER):

=INDIRECT(TEXT(MIN(IF(COUNTIF(Rng,Rng)=MAX(COUNTIF(Rng,Rng)),10^5*ROW(Rng)+COLUMN(Rng))),"R0C00000"),0)

Regards

Answer 2

You could try using a UDF. This returns a single value or a comma separated list depending on how many ties there are. I can update for more than 2 columns if required.

Option Explicit

Public Sub Test()
    Dim rng As Range
    Set rng = [D2:E7]

    Debug.Print MaxRepeating(rng)
End Sub

Public Function MaxRepeating(ByVal rng As Range) As String
    Dim arr(), outputArr(), i As Long, counter As Long, dict As Object, maxValue As Long
    Set dict = CreateObject("Scripting.Dictionary")
    counter = 1
    arr = rng.Value
    ReDim outputArr(1 To UBound(arr, 1) + UBound(arr, 2))

    For i = LBound(arr, 1) To UBound(arr, 1)
        dict(arr(i, 1)) = dict(arr(i, 1)) + 1
        dict(arr(i, 2)) = dict(arr(i, 2)) + 1
    Next

    For i = LBound(arr, 1) To UBound(arr, 1)
        If dict(arr(i, 1)) > maxValue Then maxValue = dict(arr(i, 1))
        If dict(arr(i, 2)) > maxValue Then maxValue = dict(arr(i, 2))
    Next

    For i = LBound(arr, 1) To UBound(arr, 1)
        If dict(arr(i, 1)) = maxValue Then
            If IsError(Application.Match(arr(i, 1), outputArr, 0)) Then
                outputArr(counter) = arr(i, 1)
                counter = counter + 1
            End If
        End If
        If dict(arr(i, 2)) = maxValue Then
            If IsError(Application.Match(arr(i, 2), outputArr, 0)) Then
                outputArr(counter) = arr(i, 2)
                counter = counter + 1
            End If
        End If
    Next
    ReDim Preserve outputArr(1 To counter - 1)
    Select Case UBound(outputArr)
    Case 1
        MaxRepeating = outputArr(1)
    Case Else
        MaxRepeating = Join(outputArr, ",")
    End Select
End Function

---

In sheet: