エクセルのVBAでの自動的に数字を入れ込む方法

質問

ご質問です。

エクセルのVBAで、セルAに縦に数字が入っているとして、
セルAの縦の数字が固有の時には、セルBには数字の1を。
セルAの縦の数字が同じ場合には、セルBには1からの数字の連番を。

入れていくには、どのような関数を書けばよろしいでしょうか？

ご存知の方、いらっしゃればどうかご教授ください。

----------------------------------------
セルA　　　｜セルB　｜
828113341　｜　1　　｜　
828113342　｜　1　　｜　
828113342　｜　2　　｜　
828113342　｜　3　　｜　
828113343　｜　1　　｜　
828113344　｜　1　　｜　
828113344　｜　2　　｜　
828113345　｜　1　　｜　
・
・
・
----------------------------------------

宜しくお願いいたします。

回答No.2

kmetu

=COUNTIF($A$1:$A1,"=" & $A1)

をB1に後は下方向にフィルでいかがでしょう。

お礼

ありがとうございます！

悩んでいたのが、あっという間に解決しました！！

回答No.1

a987654

どうしてもＶＢＡでないといけないんですか？
データがＡ１から始まっているとして
単なる関数でＢ１セルに　=COUNTIF(A$1:A1,A1)
あとはしたへコピーで簡単にできるのですが・・・・

お礼

ありがとうございます！

悩んでいたのが、あっという間に解決しました！！