Question

列Bと列CがA列に数字が入っているところまで自動的に算出でき
るマクロを組みたいのですが、どうしたらよいでしょうか。デ
ータが多いとエクセルでいつも固まるので、素早く下記以外で
も重複が確認できる関数若しくはマクロをおしえていただけな
いでしょうか。
宜しくお願い致します。

　
  　  列A      列B　　　　　　　列C
行1   CD      重複　　　　　　　重複_rank
　2   001  =countif(A：A,A1)　 =countif($A$1：A2,A：A)
　3   001
　4   002
　5   002
　6   002
　7   002
　8   003
　9   003

Answer 1

データがどの程度多いのかわかりませんが、上のような
関数でいいと思います。
　Ｂ列　=countif(A：A,A2)　ですね。
　Ｃ列　=countif($A$1：A2,A2)　の方がいいと思います。

上のような結果を求めるためにマクロ（VBA)を作成しても早くなるとは思え
ません。

重複している個数を調べるだけなら、A列だけを選択してピボットテーブルを
作成し、データの個数で集計する方法も考えられます。

どちらにしろ、大量のデータで確かめた訳ではないのでどの程度の時間で処理
できるのかはわかりません。