はじめまして。
Excel2013を使っています。

色振分けについて

https://kokodane.com/2013_waza_064.htm


関数はちゃんと反映するけど処理が重い、、、。
VBAにしたけどエラーになる、、、


関数

=MOD(INT(SUMPRODUCT(1/COUNTIF($C$9:$C9,$C$9:$C9))),2)


VBA

i = Int(WorksheetFunction.SumProduct(1 / WorksheetFunction.CountIf(Range("C9:C" & j & ""), Range("C9:C" & j & "")))) Mod 2


「CountIf(Range("C9:C" & j & ""), Range("C9:C" & j & "")」のところでエラー発生…。

何か間違っているのでしょうか・・・。