文字色で判定してセルの数を集計 Sub test()   ’  文字色で判定してセルの数を集計     Dim A As ···