条件AでなおかつBの数字の個数を数える関数かVBA

質問

関数で難しいならVBAでよろしくお願いします。
Excel 2010です。

日付 地方名　県名　数字のあるセル→以下続く
1/1 近畿 大阪 1 2 1 2 1 2 1 2
2/1 四国 愛媛 1 3 4 5 6 2
3/1 中国 山口 1 2 3 4 5 6
3/2 近畿 兵庫 2 1 2 3 4 5
3/3 近畿 大阪 3 2 1 2 3 4
4/1 中国 山口 6 5 4 3 2 1 2 1 1 1 1 1 6
・以下続く
・
・
・
数字が1～6まであるとして、同じ県名も日付が変われば何回も出てくるものとします。
1つ目の近畿の大阪の行では数字の1が2個、2が3個、3から6までは0個
というように数えていき、同じ件名なら１が合計～個というようにしていき最終的に以下の表にしたいです。

1の個数 2の個数 3の個数 ・・・・6の個数
近畿 大阪
近畿 兵庫
四国 愛媛
　　　・
　　　・
　　　・

どういう関数あるいはVBAを使えばいいでしょうか？

回答No.1

bunjii · ベストアンサー

>どういう関数あるいはVBAを使えばいいでしょうか？
SUMPRODUCT関数でカウントできます。
添付画像はExcel 2013で検証したものですが、他のバージョンでも再現できるはずです。
S2セルへ次の数式を設定して右と下へオートフィルコピーすれば良いでしょう。
=SUMPRODUCT(($B$2:$B$11&$C$2:$C$11=$R2)*($D$2:$P$11=S$1))
元データの行数は2行目から11行目の10行分になっていますので、実際のデータ数に合わせて数式を変更してください。
また、R2=B2&C2として文字列の連結を行って、下へ必要数オートフィルしてから重複を削除しました。
目的から推測して地方名の照合を必要としないでも良いと考えられますので、その時はR列をC列からコピーし、重複の削除を行えばよいでしょう。
その時はR列との比較はC列のみで良くなります。

お礼

前回に引き続きご回答有難うございます。画像のおかげで分かりやすかったです。