リストから最も一般的な値（数値またはテキスト文字列）を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がインストールされている場合、Find most comma value（最も頻繁に出現する値を見つける）数式を簡単に適用して、リストや列から最も頻繁に出現する値をすばやく取得できます。

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をクリックすると、次の情報が表示されるプロンプトボックスが表示されます：