ExcelのVBAで連番を振る。

質問

A列が空白で、B列に1行目から***行目（毎回変わる）までデータが入力されている時、
A列に、1から***まで（Ｂ列のデータが終わるまで、連番を振るにはどんなVBAを
かいたらいいのでしょうか？
お願いします。

回答No.5

papayuka

こんにちは。

既に幾つか出てますが。。。

Sub Test1()
　Range("A1") = 1
　Range("B1:B" & Range("B65536").End(xlUp).Row). _
　　　　　　　　　Offset(0, -1).DataSeries Step:=1
End Sub

回答No.4

Good-S15

こんばんわ。

#01の方がおっしゃっている方法でも
いいのでしょうが、
私的には、以下のロジックがいいと思います。

０．A列の連番用の変数nを確保（定義）します。

１．if文で
B列に文字（データ）が入っているかどうかをチェック

入っていれば、A列に数値nを書き込み、
変数nに＋１します。
入っていなければ、変数nは、そのままで（次の行へ）

２．上記を
loop文で囲んであげれば、完成すると思います。

その際の関数等のロジックは、勉強して下さい。
参考URL：http://www.rr.iij4u.or.jp/~srec/sub36.htm

参考URL：

http://www.geocities.co.jp/SiliconValley-SanJose/9236/

回答No.3

imogasi

VBAと言うことなので、
最終行を
last=range("a2").CurrentRegion.Rows.Count
で得て
For i=1 to last
Cells(i+1,1)=i '１はＡ列を示す
Next i
ＵｓｅｄＲａｎｇｅというのも有りCurrentRegionとの
違いをＷＥＢ検索でもして調べてみてください。
Ｒａｎｇｅ（”Ａ２”）としているのは、Ａ行は見出し
行と仮定しているため。

回答No.2

rally

Sub Macro1()
Dim strData As String
Dim intRow As Integer

Do
intRow = intRow + 1
strData = Cells(intRow, 2)

If strData = "" Then Exit Do

Cells(intRow, 1) = intRow
Loop Until strData = ""

End Sub

回答No.1

bin-chan

その前にセルＡ１に1、セルＡ２に2を入力、セルＡ１：Ａ２を選択して
選択範囲の右下の黒い■（フィルハンドル）をダブルクリックすると
Ｂ列にある限りの連番を振れるのをご存知ですか？
（ただし途中に空白があるとそこで途切れます）

1.上記の作業を「マクロの記録」で作成する。
2.コードができたらＢ列の行により３パターンに分かれるので
　１件の時、２件の時、３件以上に分けて考えてください。
3.１件の時：Ａ１に１をいれておしまい。
4.２件の時：Ａ１に１、Ａ２をいれておしまい。
5.３件以上の時：1.のコードを実行。

いかがですか？