VBA Pasteを使って「エラー’438’オブジェクトは・・・」になるときの対処方法 | ブイサバ【Excel VBAサバイバル】～とりあえずここに来れば解決できる～

ExcelやVBAではコピペは必須項目ですよね。

コピーした内容をペーストしようとして Paste メソッドを使用したときに「実行時エラー’438’オブジェクトは、このプロパティまたはメソッドをサポートしていません。」が発生してしまい途方に暮れる人も多いはずです。

今回は、Pasteを使って「エラー’438’オブジェクトは・・・」になるときの対処方法について徹底的に説明していきます。

Pasteを使って「エラー’438’オブジェクトは・・・」になるときの対処方法

Pasteメソッドを使えば貼り付けできるはずなのに・・・原因は以下の項目で解説していきます。

「エラー’438’オブジェクトは・・・」は、オブジェクトに対して存在しないプロパティやメソッドを使用したときに発生します。

それを踏まえて、Pasteメソッドを使って「エラー’438’オブジェクトは・・・」になる原因は、以下のことが考えられます。

以下に少し詳しく説明します。

これは Pasteメソッドを使う際に、よくある間違いです。

Pasteメソッドを使う前に、Selectメソッドを使ってデータの貼り付け先を選択する必要があります。

なぜなら、Paste メソッドは、ワークシートオブジェクトに付随するメソッドなので、あくまで「ワークシートに貼り付ける（※セルに貼り付けるわけではない！）」という動作をするからです。

つまり、Pasteメソッドは、「ワークシート」を選択して貼り付けることができても、「セル」を選択して貼り付けることはできないのです。

したがって、Pasteメソッドを使う前に、あらかじめSelectメソッドを使ってセルを選択する必要があるのです。

これもよくある間違いです。

PasteメソッドとPasteSpecialメソッドは、どちらもコピペに使うメソッドであり、スペルも似ているため、大きな差異が無いと思ってしまいがちですが、両者には決定的な違いがあります。

それは、

Pasteメソッド　・・・　WorkSheetオブジェクトのメソッド

PasteSpecialメソッド　・・・　Rangeオブジェクトのメソッド

ということです。

つまり、あるデータをコピペする際に、PasteSpecialメソッドはセルに貼り付けすることができる一方で、Pasteメソッドはあくまでワークシートに貼り付ける動作になります。（厳密には、Pasteメソッドでセルに貼り付けすることもできますが。。。）

それに伴い両者の構文・記述方法は異なりますので、PasteメソッドとPasteSpecialメソッドを同じものとして使うことはできないのです。

以上の原因を踏まえた上で、Pasteメソッドを使って「セルA1の値をセルA2にコピペする」という動作の正しい記述方法は、以下の２通りがあります。

記述方法１：

Range("A1").Copy
Range("A2").Select
ActiveSheet.Paste

記述方法２：

Range("A1").Copy
ActiveSheet.Paste Destination:=Range("A2")

参考で、PasteSpecialメソッドを使った場合（記述方法３）、Copyメソッドだけでコピペする場合（記述方法４）も紹介します。

記述方法３（PasteSpecialメソッドを使った場合）：

Range("A1").Copy
Range("A2").PasteSpecial

記述方法４（Copyメソッドだけでコピペする場合）：

Range("A1").Copy Destination:=Range("A2")

Pasteメソッドを使って「エラー’438’」になる原因は、以下のとおりです。

それを踏まえた上で、対処方法のコードを４通り紹介しましたので、ぜひ参考にしてください。