excelVBA 項目ごとに連番をふりたい

質問

よろしくお願いします。
excelで連番を振りたいのですが、隣のセルに並んでいる
項目ごとに振りたいのです。VBAでできるでしょうか？

番号を振りたいのはＢ列で、名前ごとに１から順番に番号を
振りたいです。名前が変わるとまた１に戻って、振っていき、
Ａ列がなくなると終了です。
Ａ列の名前の数や、それぞれのデータ数、
全体のデータ数などは、ばらばらです。
もしかしたら列数はかわるかも知れませんが、
隣の列の項目ごとに番号を１から振る、ということは
変わりません。

（Ａ列）　（Ｂ列）
　山田　　　　１
　山田　　　　２
　山田　　　　３
　田中　　　　１
　田中　　　　２
　田中　　　　３
　田中　　　　４
　佐藤　　　　１
　佐藤　　　　２
　加藤　　　　１
　斎藤　　　　１
　斎藤　　　　２
　斎藤　　　　３
　斎藤　　　　４
　斎藤　　　　５
　　・　　　　・
　　・　　　　・
　　・　　　　・

今は目で見ながら毎日、オートフィルタでがんばっています。
これができるとすごくうれしいです。
よろしくお願いいたします。

回答No.1

mt2008 · ベストアンサー

わざわざVBAでやらなくてもB1に下記の様な式を入れてコピーしてやればいいですよ。

=COUNTIF(A$1:A1,A1)

お礼

画像つきでわざわざありがとうございます！
VBAでないとだめかな、と思いこんでいました。
助かりました、感謝感謝です。

回答No.3

ASIMOV

ご希望のVBAです
---------------
Sub Mc1()
　Nb = 1
　Cells(1, 2) = Nb
　ex = Range("A" & Rows.Count).End(xlUp).Row
　For i = 2 To ex
　　If Cells(i, "A") = Cells(i - 1, "A") Then
　　　Nb = Nb + 1
　　Else
　　　Nb = 1
　　End If
　　Cells(i, "B") = Nb
　Next
End Sub

お礼

さっそくの回答ありがとうございました。
ポイントは今回先着の方に差し上げますが、
本当は皆様に差し上げたいです。
ありがとうございました。

回答No.2

imogasi

（１）VBAでなくてもエクセル関数ＣＯＵＮＴＩＦでできる。
ＶＢＡでやる事情があるのか。
（２）（１）の関数をＶＢＡ化することも可能。
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
c = WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, "A"))
Cells(i, "B") = c
MsgBox c
Next i
End Sub
例データ
堺 1
境 1
サカイ 1
堺 2
境 2
境 3
ーーー
（３）名前列でソートして、直前の名前を、毎行において、見て
　　Ａ。同じなら前の番号（変数に保持する手もある。前行のＢ列セル）に＋１
　　Ｂ変わったら１を
振れば仕舞いではないか。
（４）ソートしないなら、Ｆｉｎｄ，ＦｉｎｄＮｅｘｔで（例）山田を順次捕らえて連番を振って行く手もある。
ソート方に持ち込むのが簡単になって賢明。

お礼

countifでできるんですね、おっしゃいますように
VBAでやらなければならないということはありません。
でもVBAも勉強中なので、コードは非常に参考になります。
ありがとうございました。