エクセルvba初心者です・・・

質問

エクセルvba初心者です・・・
シート１にあるひとつのセルをコマンドボタンを押した時にそのセル内の文字列をシート２にかいていくようなプログラムをつくりたいです。
例えば
シート１のセルに文字入力→”田中”→登録ボタンおす→シート２のセルA１にはいる
シート１のセルに文字入力→”竹山”→登録ボタンおす→シート２のセルA２にはいる
　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　　・
というようになるコードわかる方いたら教えてください。おねがいします。

回答No.1

TNK787 · ベストアンサー

最終行の取得がわからないと言うこと？

だとすればこんな感じ？

これをコマンドボタンのコードに貼り付け

Sub Test()

Dim atai As String
Dim Endrow As Long

atai = Worksheets("Sheet1").Range("a1").Value
Endrow = Worksheets("Sheet2").Range("a65536").End(xlUp).Row + 1
Worksheets("Sheet2").Range("a" & Endrow).Value = atai

End Sub

2003なんで最大行は６５５３６になってます

お礼

参考になりました、どうもありがとうございました！！！