如何在 Excel 中从列表中查找最常见的值（数字或文本字符串）？

通常，我们可以应用 MODE 函数 (=MODE(A1:A16)) 来从一个区域中查找最常见的数字。但此 MODE 函数不适用于文本字符串。要提取出现次数最多的值，您可以应用以下数组公式。请按如下方式操作：

在数据旁边的一个空白单元格中输入以下公式，并同时按下 Shift + Ctrl + Enter 键。

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

公式太复杂记不住？将公式保存为自动图文集条目，未来只需一键即可重复使用！了解更多…… 免费试用

如果您安装了 Kutools for Excel，您可以轻松应用其 查找最常见值 公式，快速从 Excel 的列表或列中获取最常见的值。

1. 选择一个空白单元格，您将把找到的值放入其中，然后点击 Kutools > 公式助手> 公式助手。

2. 在“公式助手”对话框中，选择 查找 从 公式类型 下拉列表中，单击以选择 查找最常见值 在 选择一个公式 列表框中，指定 区域 框中的列表/列，并点击 确定 按钮。见截图：

然后您会看到最常见的/最频繁的值已被找到并放置到选定的单元格中。见截图：

使用以下 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然后点击 确定您将获得一个显示以下信息的提示框：