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

質問

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

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

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

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

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

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

回答No.10

imogasi

ホンと長いプログラムが多いですね。＃９さんに触発されて
Sub test02()
j = 1
Cells(1, "H") = Cells(1, "A")
Dim c As Range
For Each c In Range("a1:d5")
For i = 1 To j
If Cells(i, "H") = c Then
Cells(i, "I") = Cells(i, "I") + 1
GoTo p01
End If
Next i
j = j + 1
Cells(j, "H") = c
Cells(j, "I") = 1
p01:
Next
Range(Cells(1, "H"), Cells(j, "I")).Select
Selection.Sort Key1:=Range("I1"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False
Cells(1, "E") = Cells(1, "H")
Cells(1, "F") = Cells(1, "I")
End Sub
（テストデータ）Ａ１：Ｅ５に
a b c r
s a s t
a c a y
w a f s
s d g a
（結果）Ｈ１：Ｉ１１に
a 6
s 4
c 2
b 1
r 1
t 1
y 1
w 1
f 1
d 1
g 1
（結果）Ｅ１：Ｆ１に
a 6
行数列数が増えたときどこを変えれば良いか判るでしょう。

お礼

御回答ありがとうございます。

これは私の要望にさらに機能を付けて頂いた処理になっていますね（＾＾）
実は多い順に表示できたらいいなー、とも思っていました。

実際に試してみたのですが、ちょっと上手くいきませんでした。

「（結果）Ｅ１：Ｆ１に
a 6 」

ですが、E1：F1に結果を出力してしまうと、最初にデータを入力していた部分と重なってしまわないでしょうか？
実際表示されませんでした。

あと、このようなマクロの処理を数式のように常にアクティブな状態にさせることは可能でしょうか？
データに変更がある度に、結果も変更されるようにできたらいいなと思います。
またこのマクロの処理を連続して行ってみると、もっとも多くある文字だけが加算されていってしまいます。

例の１部を使用して例えてみると、
＜一回目＞
a 6
s 4
c 2
＜二回目＞
a 12
s 4
c 2
＜三回目＞
a 18
s 4
c 2

と言ったように、処理した回数のみ加算されていきます。

何とか関数のみで多い順に表示したり、カウントしたりしようと考えてみましたが、かなり面倒な処理になってしまいそうです。

他に何かアドバイスがありましたら、よろしく御願いします。