入力するたびにセルを移動させるＶＢＡ

質問

シート２のＢ２(1)、Ｂ３(2)に値を入力し、シート上に作ったコマンドボタンを押すと、シート３のＣ３に(1)の値、Ｄ３の(2)の値が入力されるマクロを組んでいます。新たにシート２のＢ２、Ｂ３に値を入力し、ボタンを押すと、今度はシート３のＣ４，Ｄ４に(1)、(2)の値が入力される、もう一度同様の作業をするとシート３のＣ５、Ｄ５に(1)、(2)の値が入力されるＶＢＡはどのようにすればいいですか？

回答No.2

papayuka · ベストアンサー

Sheet3 の C2、D2 はタイトル行という想定で。

Sheet2のB2をSheet3のC3から順次下に転記
Sheet2のB3をSheet3のD3から順次下に転記

Private Sub CommandButton1_Click()
Dim r As Range
　Set r = Worksheets("Sheet3").Range("C65536").End(xlUp)
　r.Offset(1, 0).Value = Worksheets("Sheet2").Range("B2").Value
　r.Offset(1, 1).Value = Worksheets("Sheet2").Range("B3").Value
End Sub

お礼

ちゃんと動きました。ありがとうございます。

回答No.1

keirika

Sub aaa()
Dim i As Integer

i = 0

Do Until Worksheets("Sheet3").Range("C3").Offset(i, 0).Value = ""
i = i + 1
Loop

Worksheets("Sheet3").Range("C3").Offset(i, 0).Value = _
Worksheets("Sheet2").Range("b2").Value

Worksheets("Sheet3").Range("D3").Offset(i, 0).Value = _
Worksheets("Sheet2").Range("b3").Value

End Sub

EXCEL2003

動作確認はしていますが、上手く動作しない場合はご容赦ください。

お礼

ありがとうございます。
ただ、この場合、コマンドボタンではなく、普通のボタンでになるんですよね。