0

光が再び見えてきました。本当に感謝申し上げます。

私よがりの下手な説明で、理解していただきありがとうございます。

早速、試してみました・・が、 最初の配列（4×１０）で試してみました。
結果は、ＡＢＣＤすべて”０”と出ました。喜びと悲しみが交互に襲ってきます・・。

今回ご呈示いただいたマクロで、お尋ねしたいことが数カ所あります。
教えていただけませんでしょうか。

＞＞＞マクロの中のこの箇所

If R = "5A" Or R = "26A" Or R = "27A" Then
A = A + 1
End If

＞＞ここまで
（問い1）
配列（４×１０）をセル上に置きますと、例えば、セル（5E）内にはAがあります。標記の＞＞If R = "5A"＞＞の５Ａとは、セル（5E）上では、「Ａ」のみですが、「５Ａ」でよろしいのでしょうか？以下 "26A" Or R = "27A"・・等々も同様のお尋ねになります。

＞＞＞マクロの中のこの箇所

Set MyR = Range("A1:J4")

＞＞ここまで

（問い２）これは、4×１０の配列での計算式だと思います。
私は、当初からのお尋ねでお示しした配列（4×１０）は、実際は、1列上（A列）に、１００とか、１０００とかの配列を設定して、この魔法のようなマクロを使わせてもらいたいと考えております。
そこで、仮にＡ列に1×100の配列をしているとしたならば、
このマクロの部分を Set MyR = Range("A1:A100") と変えるだけでよろしいのでしょうか？

＞＞＞以下の質問は、今回のマクロ全体についてのお尋ねです。＞＞＞

（問い３）今回のマクロですと、配列中（１から３９番まで）にあるＡの数（１３個）を自動的に数える箇所（関数？）はどこなのでしょうか？

（問い４）配列中にあるＡの次にどの記号が何個来ているのかを探している箇所（関数？）はどこなのでしょうか？

まったくの素人に説明されるのは、大変ご苦労をおかけしていることだと思いますが、
どうか、ゴールまでお導きくださいますよう、手を合わせてお願いしています。よろしくお願いします。

質問者が選んだベストソリューション

Yahoo!知恵袋