エクセルVBAでエラーが出る原因を教えて下さい

Question

Sub テスト()
Workbooks("テスト１.xlsm").Worksheets("転記").Range("C3:J7").value = _
Workbooks("テスト１.xlsm").Worksheets("データ1").Range("C3:J7").value
End Sub

↑これではデータ１シートのC3:J7の文字や数字だけが転記シートのC3:J7にコピーされるだけで、
セルの色や罫線、フォントの大きさや色、などの設定情報が無視されてしまいます。

なので、文字や数字だけでなく設定情報もコピーできるように
↑のコードを↓のコードに修正していました。

Sub テスト()
Workbooks("テスト１.xlsm").Worksheets("転記").Range("C3:J7").PasteSpecial Paste:=xlPasteAll, _
Operation:=xlPasteSpecialOperationNone = _
Workbooks("テスト１.xlsm").Worksheets("データ1").Range("C3:J7").PasteSpecial Paste:=xlPasteAll, _
Operation:=xlPasteSpecialOperationNone
End Sub

しかし、エラーがでてしまいます。なぜなのでしょうか？

maverik1226 · Accepted Answer

こんにちは。

PasteSpecialはRangeに対して「形式を指定して貼り付け」を行うメソッドです。
なので、
　（1）コピー元のRangeを「Copy」
　（2）コピー先のRangeに「PasteSpecial」
と、2つの命令が最低でも必要になります。

ご提示のコードは、コピーする命令がなく、コピー元にもコピー先にも「PasteSpecial」を行っていて、なおかつ1行の命令に無理やりまとめてる的な...申し訳ないですが、文法がメチャメチャです（気を悪くしたらごめんなさい）

値だけでなく、書式等を全てコピー&貼り付けということでしたら

Workbooks("テスト１.xlsm").Worksheets("転記").Range("C3:J7").Copy _
    Destination:=Workbooks("テスト１.xlsm").Worksheets("データ1").Range("C3:J7")

で良いかと思います。「PasteSpecial」にこだわる必要は、あまりないかなと。
外してたら、ごめんなさい。

mu2011 · Answer

>しかし、エラーがでてしまいます。なぜなのでしょうか？ 
　⇒ご質問者は、「PasteSpecial」をｗｅｂで一度でも検索したのだろうか？
　　文法エラー（赤印字）なのだからでPasteSpecialメソッドのリファレンスをみれば一目瞭然ですのでお試し下さい。

imogasi · Answer

代入とコピーの違いが判ってないようだ。
代入はセルの値（Ｖａｌｕｅ）　　だけを写すことを問題にする。
これはコンピュターソフト発祥以来の原初的な処理で、ビジネスではほとんどこれで済む。昔はこれしかなかった。
だんだん発達して、セルＲａｎｇｅの属性が多様化している。
後者は、マクロの記録でどういうコードになるか判るのでは。
（１）基本は
Sub Macro5()
    Range("A1:A3").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B2").Select
    ActiveSheet.Paste
End Sub
（２）外にＤｅｓｔｉｎａｔｉｏｎを使う方法　これは書き方や見るものには簡潔で判りやすい。
（３）PasteSpecialを使う方法
Paste:=xlPasteAll以外では（３）を使はないとならない場合があるので使い分ける必要がある場合はある。
ーー
エラーが出る原因は、＝を使って代入でやるので無く、（２）、（３）では引数として情報を書くのだ。

xls88 · Answer

PasteSpecialメソッドで代入はできません。
元をCopyして、貼り付け先でPasteSpecialです。

今回の例では普通にCopyして貼り付けで良いと思います。
Workbooks("テスト１.xlsm").Worksheets("データ1").Range("C3:J7").Copy _
    Destination:=Workbooks("テスト１.xlsm").Worksheets("転記").Range("C3")

エクセルVBAでエラーが出る原因を教えて下さい

こんにちは。

>しかし、エラーがでてしまいます。

代入とコピーの違いが判ってないようだ。

PasteSpecialメソッドで代入はできません。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング