表の中でもっとも多く使用されている文字（数字）を抽出するには

質問

|Ａ|Ｂ|Ｃ|Ｄ|
--------------
１|あ|い|う|え|
--------------
２|お|あ|あ|か|
--------------

上記は１行目に左から「あ」「い」「う」「え」が入力されていることを表しています。

この表の中から、一番多く入力されている文字だけを別のセルに抽出させるにはどのようにしたら良いでしょうか。
上記の例を使用すると、A列の５行目（任意のセル）に「あ」と抽出するようにしたいです。

いろいろと調べてみましたが、このように表の中で最も多く入力されている、「文字」または「数字」だけを抽出するという処理方法がみつかりませんでした。
マクロなら可能でしょうか？

このような処理ができる関数もなさそうなので、無理なのかな。

アドバイスを御願い致します。

回答No.12

imogasi

＃１０の補足です。
＞E1：F1に結果を出力してしまうと、最初にデータを入力していた部分と重なってしまわないでしょうか？
Ｅ１より右列にも、元データがあるのなら、例えば未使用のＱ列、Ｒ列を使って下さい。それぐらいは修正変更して頂けるとの前提で書いてます。
下記に修正したものを書きます。どこを変えれば良いか
両者比較すればわかります。
＞マクロの処理を連続して行ってみると、・・・加算される
そうですね。クリア処理が要りますね。
下記の最初の１行を追加します。
Sub test02()
Range("s1:t100").ClearContents
j = 1
Cells(1, "S") = Cells(1, "A")
Dim c As Range
For Each c In Range("a1:d5")
For i = 1 To j
If Cells(i, "S") = c Then
Cells(i, "T") = Cells(i, "T") + 1
GoTo p01
End If
Next i
j = j + 1
Cells(j, "S") = c
Cells(j, "T") = 1
p01:
Next
Range(Cells(1, "S"), Cells(j, "T")).Select
Selection.Sort Key1:=Range("T1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False
Cells(1, "Q") = Cells(1, "S")
Cells(1, "R") = Cells(1, "T")
End Sub
＞このようなマクロの処理を数式のように常にアクティブな状態にさせることは可能でしょうか？
この処理は値を出して終わりと言う型ではないので、自家製関数には出来ません。
シートにボタンを１つ貼りつけ、必要な時、ボタンをクリックするとこの処理を実行すると言うのなら
Private Sub CommandButton1_Click()

End Sub
この真中に上記を挟むことによって可能です。
＞データに変更がある度に、結果も変更されるようにできたらいいなと
これは無駄な処理を毎回データ入力時にさせることになり、データ数が多いと、入力レスポンスタイムに影響しイライラするのではないかと思いますので賛成しません。
こう言う要望の処理を、イベントを捉えるといいますが、シートのイベントとして「値が変った」、「セル選択が変った」などがありますが、私はこの内容に不満足でこれを使う気になりません。