見出し画像

コピー&ペースト(マクロ)

○コピーする

'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



この記事が気に入ったらサポートをしてみませんか?