VBAでなくてワークシート関数を使って簡単にしてます。

関数で〇や◎表示するパタン表を作ります。
シングル〇、ダブル◎、トリプル☆などを表示

関数は上の3行目出目セルを元に下のように該当表示セルに10種類設定します。(ここでは出目0,1,8,9)

関数IFと関数COUNTIFを使っています。

出目0　I$3
=IF(COUNTIF($B4:$E4,I$3)=1,"〇",IF(COUNTIF($B4:$E4,I$3)=2,"◎",IF(COUNTIF($B4:$E4,I$3)=3,"☆",IF(COUNTIF($B4:$E4,I$3)=4,"★",""))))　

出目1 →　J$3
=IF(COUNTIF($B7:$E7,J$3)=1,"〇",IF(COUNTIF($B7:$E7,J$3)=2,"◎",IF(COUNTIF($B7:$E7,J$3)=3,"☆",IF(COUNTIF($B7:$E7,J$3)=4,"★",""))))

出目8 →　Q$3
=IF(COUNTIF($B14:$E14,Q$3)=1,"〇",IF(COUNTIF($B14:$E14,Q$3)=2,"◎",IF(COUNTIF($B14:$E14,Q$3)=3,"☆",IF(COUNTIF($B14:$E14,Q$3)=4,"★",""))))

出目9 →　R$3
=IF(COUNTIF($B14:$E14,R$3)=1,"〇",IF(COUNTIF($B14:$E14,R$3)=2,"◎",IF(COUNTIF($B14:$E14,R$3)=3,"☆",IF(COUNTIF($B14:$E14,R$3)=4,"★",""))))

今後も考えて行きたいと思います。

記事目次　ナンバーズ4 

VBAで考えたい方は下の記事が参考になるかも知れません。