Как найти наиболее часто встречающееся значение (число или текстовую строку) в списке Excel?

Обычно для поиска наиболее часто встречающегося числа в диапазоне используется функция МОДА (=MODE(A1:A16)). Однако эта функция не работает с текстовыми строками. Чтобы найти наиболее часто встречающееся текстовое значение, воспользуйтесь следующей формулой массива. Выполните эти простые шаги:

В пустой ячейке рядом с данными введите приведённую ниже формулу и одновременно нажмите клавиши Shift + Ctrl + Enter.

=INDEX($A$1:$A$16,MODE(MATCH($A$1:$A$16,$A$1:$A$16,0)))

Слишком сложная формула, чтобы её запомнить? Сохраните формулу как элемент автотекста и используйте её в будущем всего одним щелчком! Подробнее…     Бесплатная пробная версия

Если у вас установлен Kutools для Excel, вы можете легко воспользоваться его формулой «Найти наиболее часто встречающееся значение», чтобы мгновенно получить самое популярное значение из любого списка или столбца в Excel.

1. Выберите пустую ячейку, куда будет помещено найденное значение, и нажмите Kutools > Помощник формул > Помощник формул.

2. В диалоговом окне Помощник формул выберите Поиск в разделе Тип формулы, раскройте список, щёлкните, чтобы выбрать Найти наиболее часто встречающееся значение в списке Выберите формулу, укажите нужный список или столбец в поле Диапазон и нажмите кнопку ОК. См. снимок экрана:

После этого вы увидите, что наиболее часто встречающееся значение найдено и помещено в выбранную ячейку. См. снимок экрана:

С помощью следующего кода VBA вы можете не только найти наиболее часто встречающееся значение, но и подсчитать количество его вхождений.

1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.

2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуль.

Код VBA: поиск наиболее часто встречающегося значения в списке

Sub FindFrequency()
'Update 20140326
Dim Rng As Range
Dim WorkRng As Range
Set dic = CreateObject("scripting.dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xMax = 0
xOutValue = ""
For Each Rng In WorkRng
    xValue = Rng.Value
    If xValue <> "" Then
        dic(xValue) = dic(xValue) + 1
        xCount = dic(xValue)
        If xCount > xMax Then
            xMax = xCount
            xOutValue = xValue
        End If
    End If
Next
MsgBox "The most common value is: " & xOutValue & " Appeared " & xMax & " Times"
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код. Появится диалоговое окно с запросом на выбор диапазона, который вы хотите использовать. См. снимок экрана:

4. После этого нажмите кнопку ОК, и вы увидите диалоговое окно со следующей информацией: