한 시트에서 다른 시트로 일정한 순서로 VBA 복사를 수행합니다.

Question

Excel 파일에이 문제가 있습니다. 이 파일에는 항상 동일한 셀 (범위 O2 : O6)에있는 200 개의 시트가 있으며 동일한 열의 고유 한 시트 ("최종"이라는 이름의)에 복사 할 특정 값이 있습니다. 이 또한 주문하겠습니다. 복사하여 붙여 넣는 값. 나는 명령을 이해하기 위해 다른 명령을 사용하고 싶다. 사실 모든 시트의 셀 A1에는 그 시트의 참조 이름이있다 (일부 시트는 이름 A, 다른 B, 다른 C). 마지막으로 시트 최종에서 이름 A를 가진 시트의 값보다 먼저 이름 B가있는 값이 나오고 이름이 C 인 시트의 값이 나오기 때문에 실제로는 "각 시트의 A1 셀에 문자가 있습니다.) 그런 다음 (상대 값 복사) " 그 셀에 이름이 B 인 시트의 모든 값을 입력 한 다음 C로 이름을 지정하십시오. 도와 주시겠습니까?

Answer 1

이렇게하면 시트가 반복되고 범위가 "최종"시트로 복사됩니다.

시트를 순서대로 복사하지 않고 예제를 사용하여 루프를 만들 수 있습니다.

Sub Do_Something() 
    Dim sh As Worksheet 
    Dim ws As Worksheet 


    Set ws = Sheets("Final") 

    With ws 
     For Each sh In Sheets 
      If sh.Name <> ws.Name Then 
       sh.Range("O2:O6").Copy .Cells(.Rows.Count, "C").End(xlUp).Offset(1) 
      End If 
     Next sh 
    End With 

End Sub 

Answer 2

하지만 내 문제는 복사하는 것이 좋습니다. 해당 셀에 포함 된 이름과 관련하여 일부 시트에서부터 다른 시트에서 그 범위를 복사하려고합니다.