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

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

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

=ИНДЕКС($A$1:$A$16;МОДА(СООТВ($A$1:$A$16;$A$1:$A$16;0)))

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

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

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

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

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

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

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

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. А затем нажмите OK, вы получите всплывающее окно, отображающее следующую информацию: