コピー&ペースト(マクロ)
○コピーする
'A1をコピーする
Range("A1").Copy
'A列をコピーする
Columns(1).Copy
’A1からE列の最終行をコピーする
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Range(Cells(1, 1), Cells(LastRow, 5)).Copy
'1つ目のブックの1シート目のB2セルをコピーする
Workbooks(1).Worksheets(1).Range("B2").Copy
○貼り付ける
'A1に貼り付ける
Range("A1").PasteSpecial
'A列に貼り付ける
Columns(1).PasteSpecial
'2つ目のブックの1シート目のA1から1つ下のセル(B1)に貼り付ける
Workbooks(2).Worksheets(1).Range("A1").Offset(1, 0).PasteSpecial Paste:=xlPasteAll
○削除する
'A1を削除する
Range("A1").Delete
この記事が気に入ったらサポートをしてみませんか?