エクセルVBAで付番をしたい

質問

例えば、
Sheet1のA列に連番で1～１０まで番号が振ってあって、作成したコマンドボタンをクリックしてにA列の最後の番号１０の次の番号１１をセルB1に表示させる方法はありませんか？なにぶん初心者なのでよろしくお願いします。

回答No.1

merlionXX · ベストアンサー

A列の最後のセルにある数値+1をＢ1セルに入れるということですか？

Private Sub CommandButton1_Click()
Range("B1").Value = Range("A65536").End(xlUp).Value + 1
End Sub

お礼

ありがとございます。これが思いつかなかったんです。非常にたすかりました。

回答No.2

toshi_2000

以下の通り
cell(1,2)=cells(1,10)+1

お礼

なるほど、びっくりするぐらい、簡単な構文ですね。ありがとうございました。