>>72
そのまま並べると長くなりすぎてめんどくさいから最終行は変数に入れるぞ

LR = Range("A1").End(xlDown).Row
MsgBox Application.Evaluate("=SUMPRODUCT(1/COUNTIF(F1:F" & LR & ",F1:F" & LR & "))")