VBA～WorksheetFunction.Mode_Snglメソッド～Excel

VBAで指定した範囲内におい最も頻繁に出現する値を求めたい場合はWorksheetFunction.Mode_Snglメソッドを使います。

書き方

WorksheetFunction.Mode_Sngl(数値 1,[数値 2],...)

例として下の画像において下のコードを実行するとセルD1にセルA1からセルA10の範囲の中で最も頻繁に出現する値が表示されます。今回は1が最も頻繁に出現する値なので1が表示されます。

Sub test1()

Range("D1") = WorksheetFunction.Mode_Sngl(Range("A1:A10"))

End Sub