会社から自分に送ったメールが届いてなくて顔面蒼白です・・・。やばい。クビになったら笑いましょう(；´Д｀)=cc(数えたい範囲,数えたい色のセル)で数える関数だよ。 ↓こんな感じで使えます Function cc(a As Range, b As Range) As Long Set b = b.Item(1) …