Sub box_kensaku() ’ナンバーズ4のボックス出現回数集計 Dim bango As String   On Error GoTo errorcheck Sheets("box").Select Range("B3:W65").Select bango = A...

https://syu3lotonumexvba.muragon.com/entry/13.html