Як правило, ми можемо застосувати РЕЖИМ функція (=РЕЖИМ(A1:A16)) щоб знайти найпоширеніше число з діапазону. Але ця функція MODE не працює з текстовими рядками. Щоб отримати значення, яке найчастіше зустрічається, можна застосувати наступну формулу масиву. Будь ласка, зробіть так:

У порожню клітинку, крім даних, введіть формулу нижче та натисніть Shift + Ctrl + Enter ключі разом.

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

Формула занадто складна, щоб запам'ятати? Збережіть формулу як автоматичний запис тексту для повторного використання лише одним клацанням у майбутньому! Детальніше ...     Безкоштовне випробування

Якщо у вас встановлено Kutools для Excel, ви можете легко застосувати його Знайдіть найбільше значення коми формула для швидкого отримання найчастішого значення зі списку або стовпця в Excel.

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

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

І тоді ви побачите, що найпоширеніші / часті значення були знайдені та розміщені у вибраній комірці. Дивіться знімок екрана:

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

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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, ви отримаєте підказку, що відображає таку інформацію: