|
マクロの自動記録をして見ましょう。
↓はB12:G12をシート1のB列の最終行
の次の行に貼り付ける作業を自動記録
したものです。
Range("B12:G12").Select
Selection.Copy
Sheets("Sheet1").Select
Range("B65536").Select
Selection.End(xlUp).Select
Range("B13").Select
ActiveSheet.Paste
Application.CutCopyMode = False
これは、↓のように簡略化できます。
※Offsetは自動記録では出ません。
Offset(1)
で1行下という意味です。
詳しくはVBAヘルプをご参照ください。
Range("B12:G12").CopySheets("Sheet1").Range("B65536").End(xlUp).Offset(1)
なお
Range("B12:G12")
のようにシートを明示しないとアクティブシートのB12:G12とみなされます。
他のシートがアクティブの時でも大丈夫なように、
WorkSheets("Sheet2").Range("B12:G12")
のようにシートを明示しましょう。
|
|