ExcelVBAにて異なるシート間での値貼り付け

質問

Excel VBAの異なるシート間での値のコピーと貼り付けに関して質問をさせてください。

私はExcel2007を使って、Sheet1のセルの値をsheet2に貼り付けようとして以下のコード(1)を書きましたが、うまくいきません。動作確認のためsheet1内での値のコピペを行うコード(2)を作成し実行したところ、正常に動作しました。

コード(1)をコンパイルしたときに表示されるメッセージは、[実行時エラー'1004':アプリケーション定義またはオブジェクト定義のエラーです]　です。

質問としては、
Q1:等号(=)を用いた値の貼り付けは、異なるシート間に対応していないのでしょうか。
Q2:コード(1)を改良する場合、どのように書き直せばよいでしょうか。

アドバイスいただけましたら幸いです。

コード(1)
Worksheets("Sheet2").Range(Cells(1, 10), Cells(5, 10)).Value = Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 1)).Value

コード(2)
Worksheets("Sheet1").Range(Cells(1, 10), Cells(5, 10)).Value = Worksheets("Sheet1").Range(Cells(1, 1), Cells(5, 1)).Value

回答No.2

mu2011 · ベストアンサー

Ａ１．RangeとCellsのシートオブジェクトが相違しているからで、コピーはシート間でも問題ありません。
　　マクロが標準モジュールならアクティブシート、シートモジュールならそのシートオブジェクトが省略した場合の基準になります。
　　仮に標準モジュールでSheet1をアクティブとすると左辺のRangeはSheet2、CellsはSheet1となるので不整合になります。
　　因みに（２）のコードは偶々、Sheet1をアクティブにしたからエラーにならなかっただけです。

Ａ２．一例です。
　　Cellsなら、Sheet2.Cells(1,"j").Resize(5).Value = Sheet1.Cells(1,"A").Resize(5).Value
　　又は、Sheet2.Range("J1:J5").Value = Sheet1.Range("A1:A5").Valueの方が判り易い

お礼

返信が遅くなり大変申し訳ありませんでした。
また、ご回答ありがとうございました。

質問に記すのを失念しておりましたが、標準モジュールにてマクロを作成しておりました。
どのシートをアクティブにしているか注意しながらコードを作りたいと思います。

本当にありがとうございました！

回答No.1

hallo-2007

Q2:コード(1)を改良する場合、どのように書き直せばよいでしょうか。
全てを省略せずに記述すると
Worksheets("Sheet2").Range(Worksheets("Sheet2").Cells(1, 10), Worksheets("Sheet2").Cells(5, 10)).Value = Worksheets("Sheet1").Range(Worksheets("Sheet1").Cells(1, 1), Worksheets("Sheet1").Cells(5, 1)).Value
　となります。
短く記述できるとすれば
Worksheets("Sheet2").Range("J1:J5").Value = Worksheets("Sheet1").Range.("A1:A5").Value
の方がわかりかも。

お礼

返信が遅くなり申し訳ありませんでした。
また、ご回答頂きありがとうございました。

省略せずにWorksheetの記述から始めればよかったのですね。
アドバイスありがとうございました!