通し番号(連番）を返すマクロ

質問

エクセルで
－－－－－－－－－－－－－－－－－－－
　　　　　　　｜　Retsu1　｜　Retsu2　｜
－－－－－－－－－－－－－－－－－－－
Gyou　　　　｜　　　　１　｜　　　　１ 　｜
－－－－－－－－－－－－－－－－－－－
　　　　　 　　｜　　　 １　 ｜　　　 ２　 |
－－－－－－－－－－－－－－－－－－－
　　　　　　　｜　　　　 １　｜　　　　３　　|
－－－－－－－－－－－－－－－－－－－
　　　　　　　｜　　　　 ２　｜　　　　１ 　｜

このようにRetsu1には１～Xの数字が入っています。
データはRetsu1で並べ替えをしているため、その数字は、しばらく１が続いたら、次は２が続き、その次には３が続くというような並び方をしています。X（最終の数字）が続いた後は空白です。

そこで、Retsu2には１，２，３・・・というように連番を書き込みたいと思います。
これはRetsu1の同一数字内で連番にしたいのです。
つまり、Retsu1の値が２になれば、また新たに１，２，３・・・というような感じです。

最後にはRetsu1の値がXで１，２，３・・・と連番の書き込みが終わったら（Retsu1が空白になったら）
Retsu2への書き込みも終了とします。

マクロ初心者のため

Dim Gyou As Integer
Dim Retsu1 As Integer
Dim Retsu2 As Integer

までしかできていません。
この続きのマクロを教えてください。お願いします。

回答No.2

tom04 · ベストアンサー

こんばんは！
色々方法はあるかと思いますが、
一例です。
個人的に　For～Next　を使うのが好きなので・・・

データはA列の2行目からあるとします。

Sub test1()
Dim i As Long
If Cells(2, 1) <> "" Then
Cells(2, 2) = 1
End If
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = Cells(i - 1, 1) Then
Cells(i, 2) = Cells(i - 1, 2) + 1
Else
Cells(i, 2) = 1
End If
Next i
End Sub

こんな感じではどうでしょうか？m(__)m

お礼

ご回答ありがとうございました。
役に立ちました。また，勉強にもなりました。
For～Nextは初心者でも理解しやすくていいですね。
これからも頑張ってみます。

回答No.3

mu2011

関数の方が簡単なのでマクロにしなくてもよいのではないでしょうか。
Retu2の先頭に=COUNTIF($A$1:A1,A1)として下方向にコピーしてみて下さい。

お礼

ご回答ありがとうございました。
役に立ちました。また，勉強にもなりました。
ただ，今回はマクロで実行しようと考えています。
関数でも簡単にできるんですね。

回答No.1

keithin

１行目にタイトル行，２行目からデータ
Ａ列にグループ番号
Ｂ列に１２３１２３として

sub macro1()
　with range("B2:B" & range("A65536").end(xlup).row)
　　.formula = "=IF(A1<>A2,1,SUM(B1,1))"
　　.value = .value
　end with
end sub

お礼

ご回答ありがとうございました。
役に立ちました。また，勉強にもなりました。