vba：すべてのシートで同じコードを使用してください

Question

簡単な質問。次のコードは正常に動作します。

Dim hoja as worksheet 
For Each hoja In Workbooks("Origen.xlsx").Worksheets 
Msgbox hoja.name 
next 

ただし、次のコードは機能しません。誰もがなぜ言い、それを働かせることができますか？

Dim hoja as worksheet 
For Each hoja In Workbooks("Origen.xlsx").Worksheets 
Range("a1:a2").copy Destination:=Range("a3:a4") 
next 

2番目のコードは、シートの1つにコピー/ペーストすることしかできませんが、すべてではありません。 どうかお手伝いできますか？私はとても単純なことでとても不満です。 ありがとう！

Answer 1

Rangeの代わりにhoja.Rangeを試してください。

Answer 2

Rangeオブジェクトは、修飾されていない場合は、常にアクティブなシートを参照します。あなたが別のシート上のたびにコピー＆ペーストしたい場合
は、以下のコードを使用します。

Dim hoja as worksheet 
For Each hoja In Workbooks("Origen.xlsx").Worksheets 
hoja.Range("a1:a2").copy Destination:=hoja.Range("a3:a4") 
next