Excel2000 VBA 範囲の重複個数を調べる

Excel2000 VBA  範囲の重複個数を調べる

エクセルのCOUNTIF関数をVBAで利用する。

重複数 = WorksheetFunction.CountIf(Range(範囲), 検索する文字列)

例　 L列にあるセルの値が「東京」の個数を調べる
　　  keyword = "東京"
       keyword_count = WorksheetFunction.CountIf(Range("L:L"), keyword)