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

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

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2006/07/01 17:41

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

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

この回答へのお礼

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

お礼日時：2006/07/01 18:12

No.2 回答者： toshi_2000 回答日時： 2006/07/01 17:42

以下の通り

cell(1,2)=cells(1,10)+1

この回答へのお礼

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

お礼日時：2006/07/01 18:10