エクセルで連番をマクロで

質問

こんにちは　いつもお世話になっています。
Windows7、エクセル2010で教えてください。

　B3から仮にB100まで文字列があるとします、空白セルはありません。
この状態でA3からA100まで１から始まる連番をマクロで実行したいのです。
実際はB列のデータの最終行は不定です。つまり、B列にデータがなくなるまで（空白セルになるまで）A列に連番をつけたいのです。現在はA3,A4に１，２と入力し、オートフィルで該当セルを選択し「予測」で連番をつけています。
マクロ記録ではB列にデータがなくなる判断ができなくて作れません。
この作業が頻繁にあるものですからマクロができれば助かります。
よろしくお願いいたします。

回答No.1

mu2011 · ベストアンサー

一例です。
Sub sample()
Dim i As Long
For i = 3 To Cells(Rows.Count, "B").End(xlUp).Row
If Cells(i, "B") <> "" Then Cells(i, "A") = i - 2
Next
End Sub

お礼

mu2011 様　ありがとうございました。お蔭様で解決しました。
ご紹介いただいたものはすべて成功しました。
大切に使わせていただきます。
恐縮ですが早めにご回答いただいた方をBest Answerと致しました。

回答No.3

kybo

以下でどうでしょうか？

Sub macro()
Range("A3").Value = 1
Range("A3").DataSeries xlColumns, xlDataSeriesLinear, , 1, Range("B" & Rows.Count).End(xlUp).Row - 2
End Sub

ちなみに、手動操作ですが、A3,A4に１，２と入力し、Ａ3：Ａ4を選択した状態で、＋ボタン上でダブルクリックすると、データのある範囲すべて連番になります。

お礼

kybo 様　ありがとうございました。お蔭様で解決しました。
ご紹介いただいたものはすべて成功しました。
大切に使わせていただきます。
恐縮ですが早めにご回答いただいた方をBest Answerと致しました。
ショートカットまで教えていただいて助かりました。

回答No.2

keithin

マクロ以前にエクセルシートの操作で連番を入れる方法を色々知っていると，そのままマクロにも応用できます。

たとえば：
sub macro1()
　dim r as long
　r = range("B65536").end(xlup).row
　if r < 3 then exit sub

　with range("A3:A" & r)
　.formula = "=ROW(A1)"
　.value = .value　　'状況によるけど別に無くてもいい
　end with
end sub

お礼

keithin 様　ありがとうございました。お蔭様で解決しました。
ご紹介いただいたものはすべて成功しました。
大切に使わせていただきます。
恐縮ですが早めにご回答いただいた方をBest Answerと致しました。