• ベストアンサー

エクセル 連番を付ける

A列に連番を付けたいと思います。 3行目から始める方法教えて下さい。 Dim i As Long For i = 1 To Range("A65536").End(XlUp).Row Cells(i,1).Value = i Next i

質問者が選んだベストアンサー

  • ベストアンサー
  • mt2008
  • ベストアンサー率52% (885/1701)
回答No.2

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

samsonkun
質問者

お礼

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

その他の回答 (1)

  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

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

samsonkun
質問者

お礼

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

関連するQ&A

専門家に質問してみよう