エクセル 連番を付ける

質問

A列に連番を付けたいと思います。
3行目から始める方法教えて下さい。

Dim i As Long
For i = 1 To Range("A65536").End(XlUp).Row
Cells(i,1).Value = i
Next i

回答No.2

mt2008 · ベストアンサー

Range("A65536").End(xlUp).Row は、A列で使用されている最終行を求めています。A列に何か入っているなら良いのですが、A列が空の場合は1と同じです。ループになりません。
3行目から最終行まで連番を入れたいのでしたら↓こうなります。

Dim i As Long
For i = 3 To 65536
Cells(i, 1).Value = i-2
Next i

お礼

大変わかり易い回答有難う御座います。

回答No.1

hallo-2007

Dim i As Long
For i = 3 To Range("A65536").End(XlUp).Row
Cells(i,1).Value = i-2
Next i
では、どうでしょうか？
ただ、内容がＡ列に既に値が入っていて、その内容が変更されますが
そういった事がご希望？
Ａ３セルに　1 Ａ４セルに　2　既に入っているとして
Ａ３～Ａ４選択して、マウスを右下に持っていって　＋の表示になったところで
ダブルクリックすれば、同じ動作だと思います。

お礼

hallo-2007様　有難う御座います。
これはこれで使わせて頂きますが、値が入っていない場合の方法も教えて頂けたらと思います。宜しくお願い致します。