エクセルのＶＢＡで教えてください

質問

エクセルのＶＢＡで教えてください、セルＡ１の値をマクロボタンを押すたびに、セルＣ１から順番にＣ２・Ｃ３・Ｃ４・・・・と下に自動的に入力するＶＢＡを教えてください。

回答No.2

merlionXX · ベストアンサー

すでに回答がでていますが別のやりかたも・・・。

Sub test02()
Dim n As Long
With ActiveSheet
If .Cells(Rows.Count, "C").End(xlUp).Value = "" Then
n = .Cells(Rows.Count, "C").End(xlUp).Row
Else
n = .Cells(Rows.Count, "C").End(xlUp).Offset(1).Row
End If
.Cells(n, "C").Value = .Range("A1").Value
End With
End Sub

#1さんとの違いは、最初はありませんが、いったんエクセルを終了し再度立ち上げてまた実行すればわかります。

#1さんのはC列の入力状態にかかわらずまたC1、C2とまたはじめから入力されます。
#2は、C列に入力があれば、そのひとつ下のセルから入力されます。

masa2832さんのお書きになったとおり「セルＣ１から順番にＣ２・Ｃ３・Ｃ４・・・・と下に自動的に入力」がC列の状態にかかわらないのであれば#1さんのコードをご使用ください。
ご参考まで。

お礼

早々にご回答頂き有難うございます。
方法としては、途中まで入力がある場合に続いて自動入力されるタイプが必用でしたので、大変参考になりました。
早速利用させて頂きます。本当に有難うございました。

回答No.1

kenpon24

Sub test()
Static i As Long

If i = 0 Then i = 1

Range("C" & i) = Range("A1")
i = i + 1

End Sub

お礼

早々ご回答頂き有難うございます。
上書きタイプのＶＢＡも非常に参考になりました。
早速別シートで利用させて頂きました。素人の私には非常に良い勉強になり、大変感謝しております。