VBA,Cut,PasteSpecial

Question

VBAのマクロコードのエラーについての質問です。
使用するのは、"Cut" "PasteSpecial" です。

---

Sub test
Worksheets(1).Range("A1").Cut '...(A)
Worksheets(2).Range("A1").PasteSpecial '...(B)
End Sub

---

エラー'1004'...失敗しました。になります。

(A)がCutではなくCopyの場合は動作します。
(B)をWorksheets(2).Pasteにした場合は動作しました。

PasteSpecial実行の直前で、クリップボードはCutMode、データはTextになっています。

「Destinationを省略した場合は、PasteSpecialは利用できません」という記事を見たのですが、Destinationを使うと任意の場所に貼り付けなければいけませんし、実行後にクリップボードが空になってしまってペーストそのものができなくなりますよね。

どのように扱えばよいのでしょうか？
なぜCutを使用した場合、PasteSpecialがエラーを吐くのでしょうか？

Answer 1

なぜCutを使用した場合、PasteSpecialがエラーを吐くのでしょうか？

そういう仕様だからです。
手作業で、「切り取り」してから貼り付けたいセルで右クリックしてみてください。
「形式を選択して貼り付け」はグレーアウトして選択できないですよね。
「切り取り」という操作はすべてを切り取ってしまうので、一部だけを選択して貼り付けることができないという仕様なんです。

面倒でも、コピーして「形式を選択して貼り付け」(PasteSpecial)後、コピー元のセルを削除するという処理にしてください。

Comments

[dagiri]

ありがとうございます。
手作業側を確認することを怠っていました。

[dagiri]

ありがとうございます。
手作業側で確認することを怠っていました。