Excelを制する者は人生を制す ~No Excel No Life~

Sponsored link

BQE37183S4 パナソニック電工太陽光発電システム・温水器・IH対応住宅分電盤 リミッタースペース付(75A:18+3) KUK PUL16A10U [Low-E複層防犯ガラス]は最低価格で販売する!

3967PV

VBA上でセル情報を切り取りするにはCutメソッドを使います。

先日紹介したCopyメソッドほどではないですが、Copyメソッドとほぼ使い方は一緒ですし、切り取りもExcelの基本操作のため、Copyメソッドと合わせて覚えておくと良いでしょう。

BQE37183S4 パナソニック電工太陽光発電システム・温水器・IH対応住宅分電盤 リミッタースペース付(75A:18+3) KUK PUL16A10U [Low-E複層防犯ガラス]激安市場

Rangeオブジェクト.Cut(Destination)

Rangeオブジェクト

Cutメソッドを指定するRangeオブジェクトを指定します。

オブジェクトに関しては下記記事をご参照ください。

Excelのオブジェクトの基礎知識まとめ | Excelを制する者は人生を制す ~No Excel No Life~

Rangeオブジェクトを参照するためのRangeプロパティに関しては下記記事をご参照ください。

【Excel VBA】単一セルやセル範囲を参照するRangeプロパティまとめ | Excelを制する者は人生を制す ~No Excel No Life~

引数Destination

切り取りした情報の貼り付け先を指定できる引数です。

この引数は省略可能です。

省略した場合は切り取りした情報はクリップボードに格納されます。
(クリップボードに格納された情報を貼り付けたい場合は別途PasteメソッドやPasteSpecialメソッドのコードを記述する必要があります)

使用例

今回は下記のようにB3:B7の範囲にあるセル情報をD3:D7の範囲に切り取って貼り付けるとします。

その場合は以下のコードになります。。

1
2
3
Sub カット例①()
    Range("B3:B7").Cut Destination:=Range("D3")
End Sub

コピーしたいセルを最初にRangeプロパティで指定し、そのあとにCutメソッドを記述。(貼り付けする必要がない場合はここで終了)

そのあとに引数「Destination」として”Destination:=”に貼り付けしたいセルを記述で完了です シュウ 剪定用鋏2点セット   SYU-02M。

マクロの動作イメージ

Cutメソッドで指定しているB3:B7がD3セルへ貼り付けされました 。

切り取りした情報が5行×1列で5セル分、貼り付け先のセルは1行×1列で1セル分となるため、D3セルを起点に5セル分の情報が貼り付けされます。

なお、コピーされるのは値だけでなく、罫線や塗りつぶしの色等の書式の情報も貼り付けされます 『カード対応OK!』■CERA/セラ シャワー・バス用水栓【HG15708】エコスタット E サーモスタット式埋込形湯水混合栓カバー部 (止水・切替機能付) クロム。

切り取り元のB3:B7のセル範囲は値や書式等は初期設定されます。

【参考】引数Destinationを省略した場合

1
2
3
Sub カット例②()
    Range("B3:B7").Cut
End Sub

引数Destinationを省略した場合は切り取った情報はクリップボードへ格納されます。

【参考】切り取り範囲に連続セル以外を指定した場合

1
2
3
Sub カット例③()
    Range("B3,B7").Cut
End Sub

通常のワークシート上と同じく、単一セルか連続したセル範囲以外を切り取り元に指定するとエラーが表示されます。

なので、上記のコードのように飛び飛びのセル範囲をいっしょに指定すると下記のエラーが表示されます。

実行時エラー’1004′:
複数の選択範囲に対してこの機能を実行することはできません 『カード対応OK!』■CERA/セラ【CET900T】セラオリジナルコレクション 自動水栓 (単水栓) クロム。
1つの範囲を選び、もう一度お試しください。

【参考】引数Destinationで別シートのセルを指定した場合

1
2
3
Sub カット例④()
    Range("B3:B7").Cut Destination:=Worksheets(2).Range("D3")
End Sub

引数Destinationは切り取り元のセルと同じシートでないシートのセル範囲を指定することも可能です [CES9433PX-SC1] カード決済可能!TOTO トイレ ウォシュレット一体形便器(タンク式トイレ) 一般地(流動方式兼用) 排水心155mm GG3タイプ 壁排水 手洗いなし オート開閉 リモデル対応 パステルアイボリー 【送料無料】。

上図のサンプルでは、切り取り元のB3:B7のセル範囲をSheet2のD3:D7へ貼り付けすることができました。

ちなみに別ブックのシートも指定することが可能です。

まとめ

Cutメソッドは切り取り元の情報を初期化しても問題ない場合に、貼り付けといっしょに初期化できるので、状況に応じてCopyメソッドと使い分けを行いましょう。

ご参考になれば幸いです(*^^*)


国本 温子,緑川 吉行,できるシリーズ編集部 インプレスジャパン 2012-02-09

この記事が気に入ったら
いいね ! しよう

BQE37183S4 パナソニック電工太陽光発電システム・温水器・IH対応住宅分電盤 リミッタースペース付(75A:18+3) KUK PUL16A10U [Low-E複層防犯ガラス]オンライン

メールアドレスを登録すればブログではお伝えできない情報を無料で受信できます。
今なら特典として、サンプルファイルを無料でプレゼント中!
もっとエクセルをスキルアップしたい方は、ぜひご登録くださいm(__)m

ご案内

おすすめ記事


コメントをどうぞ

{yahoojp} {excel-master.net} nice-myp10-gui-zd-3411