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 

두 번째 코드는 시트 중 하나에서만 복사/붙여 넣기를 수행하지만 전부는 수행하지 않습니다. 도와주세요. 나는 그런 간단한 일로 너무 좌절한다. 감사합니다.

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