excel マクロ

質問

Sub Macro1()
'
' Macro1 Macro
'

'
ActiveCell.Offset(-1, 0).Range("A1:G1").Select
Selection.Copy
End Sub

マクロの記録だけでこのコードを作ることは可能でしょうか？

回答No.1

keithin · ベストアンサー

手順：
任意のセルを選択しておく（少なくともこれから行う作業を実行できるセルを選んで置く）

新しいマクロの記録を開始する
相対参照で記録ボタンをクリックする
↑で一つ上に移動する
シフト＋→で７個のセルを選択する
コピーする
記録終了する

以上で

Sub Macro1()
'
' Macro1 Macro
'

'
　　ActiveCell.Offset(-1, 0).Range("A1:G1").Select
　　Selection.Copy
End Sub

と記録されます。

お礼

ありがとうございますm(_ _ )m