Excel VBA 入門講座セルの範囲の切り取り貼り付け

セルの範囲の切り取り貼り付け

セルの範囲の切り取り貼り付けにはCutメソッドを使用します。貼り付け先を引数により指定します。

メソッド	引数	定数	内容
Cut	Destination	--	貼り付け先をRengeオブジェクトで指定


'セルB1～D3の範囲を切り取り貼り付け
Sub CutCell()
    Range(Cells(1,2),Cells(3,4)).Cut Destination:=Cells(5,6)
End Sub

Sub CutCell()
    Range("B1:D3").Cut Destination:=Range("F5")
End Sub

Sub CutCell()
	Worksheets("Sheet1").Activate
	Worksheets("Sheet1").Range(Cells(1,2),Cells(3,4)) _
		.Cut Destination:=Worksheets("Sheet1").Cells(5,6) 
End Sub

Sub CutCell()
	Worksheets("Sheet1").Activate
	Worksheets("Sheet1").Range("B1:D3") _
		.Cut Destination:=Worksheets("Sheet1").Range("F5") 
End Sub