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

質問

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

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

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

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

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

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

回答No.5

nishi6

ユーザー定義関数を作ってみました。A5に式を入力してみて下さい。

=maxNum_Chr("A1:B4","D2:D5","F1:K6") のように、調べる領域を必要なだけ指定します。

例えば、「あ」が9個で一番多ければ、あ(9個)　と表示。
「あ」と「い」と「1」が3個で一番多ければ、あ,い,1(3個)　と表示します。

Function maxNum_Chr(rg1, ParamArray rg2())
　　Dim cot As Long, cot2 As Long　'2つ目以降のセル領域の個数
　　Dim rgArea As Range　　　　　　'結合したセル領域
　　Dim dt() As String　　　　　　 'セルの値を取り込む配列
　　Dim rg As Range　　　　　　　　'セル

　　Application.Volatile
　　'飛び離れた領域を同一視するようにします
　　Set rgArea = Range(rg1)
　　　　If UBound(rg2) <> -1 Then
　　　　　　For cot = LBound(rg2) To UBound(rg2)
　　　　　　　　Set rgArea = Application.Union(rgArea, Range(rg2(cot)))
　　　　　　Next
　　　　End If
　　　　'セルの値を取り込みます
　　　　Dim num As Long　　　　　　'データ個数
　　　　num = rgArea.Count
　　　　ReDim dt(num)
　　　　　　cot = 0
　　　　　　For Each rg In rgArea
　　　　　　　　cot = cot + 1: dt(cot) = rg.Text
　　　　　　Next

　　'セルの値を比較します
　　Dim chkDT As String
　　Dim nMAX As Integer, cCot As Integer
　　　　For cot = 1 To num
　　　　　　If dt(cot) <> "" Then
　　　　　　　　chkDT = dt(cot): cCot = 1
　　　　　　　　For cot2 = cot + 1 To num　　'個数をカウント
　　　　　　　　　　If chkDT = dt(cot2) Then
　　　　　　　　　　　　dt(cot2) = "": cCot = cCot + 1
　　　　　　　　　　End If
　　　　　　　　Next

　　　　　　　　If nMAX = cCot Then　　　　　'最大個数が複数
　　　　　　　　　　maxNum_Chr = maxNum_Chr & "," & chkDT
　　　　　　　　ElseIf nMAX < cCot Then　　　'最大は１つのみ
　　　　　　　　　　maxNum_Chr = chkDT: nMAX = cCot
　　　　　　　　End If
　　　　　　End If
　　　　Next

　　maxNum_Chr = maxNum_Chr & "(" & nMAX & "個)"
End Function

お礼

nishi6さん、御回答ありがとうございます。

早速試してみたのですが、上手くいきません。
恐らくVB自体初めて扱うので、私の方に不備があると思いますが（ー＿ー；

「プロジェクト エクスプローラ」を開き、表が入っているシートを選択しました。
すると、ウィンドウが開いたので、そこに教えて頂いたコードを記述して、閉じました。
上右のプルダウンで(General)となっていましたが、これはworksheetにしなくても良いんですよね？

そして、表に戻って適当なセルに教えて頂いた式を範囲を変えてから記述。
リターンしてみましたが、「#VALUE!」と表示されて上手くいっていないようです。

ブック自体を１度保存してから、再度開いた時にマクロを有効にするかどうか聞かれたので、有効にするを選択して、また実行してみましたがやはりできませんでした。

おそらく簡単なことができていないだけの事だと思いますが、アドバイスを頂けると助かります。

またこの処理を表の中のデータを変更しても、その都度自動に処理してくれるようにすることはできるでしょうか？

お手数をおかけ致しますが、よろしく御願いします。

補足

いろいろと試してみましたが、「#NAME？」と表示されたり、「名前が適切ではありません」など表示されることもあります。

ん～、私にはもうお手上げな状態です。

アドバイスをよろしく御願いします。