入力データを都度最終行に追記し、蓄積データを作成したい
入力行が7行あり、7行をコピーし、そのまま張り付けることはできましたが、
最終行に張り付けることができません
解決方法がわからないため、教えて下さい
「入力」シートの最大7行のデータを「蓄積」シートのA列に値がある最終行に転記を
ボタンを押すたびにデータ蓄積していきたい
Sub 蓄積()
'
' 蓄積 Macro
Sheets("蓄積").Select
最終 = Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("入力").Select
Range("A2:H7").Select
Selection.Copy
Sheets("蓄積").Select
Range("A" & 最終).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'
End Sub
初心者ですので、全然違うことをしているかもしれませんが。。。
よろしくお願いします。
回答1件
あなたの回答
tips
プレビュー