VBA～カット～Excel

単一セルのカット

セルをカットするにはCutメソッドを使います。下のコードを実行するとセルA1をカットしセルC1に貼り付けます。

Sub test1()
Range("A1").Cut Range("C1")
End Sub

範囲のカット

範囲をカットしたい場合はRangeオブジェクトで範囲を指定しCutメソッドを使います。貼り付けで指定するセルは範囲の左上を張り付けたいセルを指定すれば、そのセルを基準に貼り付けられます。下のコードを実行するとセルA1からセルB5の範囲がセルD1からセルE5にカットされます。

Sub test1()
Range("A1:B5").Cut Range("D1")
End Sub

行のカット

行をカットする場合はRowsオブジェクトで行を指定し、Cutメソッドを使います。下のコードを実行すると青色で塗りつぶされた行1が行3にカットされます。

Sub test2()
Rows(1).Cut Rows(3)
End Sub

列のカット

列をカットする場合はColumnsオブジェクトで列を指定し、Copuメソッドを使います。下のコードを実行すると黄色で塗りつぶされたA列がC列にカットされます。

Sub test3()
Columns(1).Cut Columns(3)
End Sub

A列は左から1列目なので行番号1、C列は左から3列目なので行番号3になります。