Excel VBA 워크 시트 이름을 셀 값과 일치시킨 다음 셀 범위 복사 및 붙여 넣기 방법

Question

"대상"통합 문서의 맨 위 셀이 일치 할 때 하나의 통합 문서에서 다른 통합 문서로 값을 붙여 넣으려고합니다. 워크 시트의 이름

하지만 대부분의 경우 오류 1004가 발생합니다. 어떤 아이디어?

Sub Cycle() 

Dim ws As Worksheet 
Dim y As Integer 

For Each ws In ThisWorkbook.Sheets 
      ActiveSheet.Name = Worksheets("Target").Cells(1, y) 
      Worksheets("Target").Range(Cells(2, y), Cells(24, y)).Copy 
      Selection.Copy 
      ActiveSheet.Range("e3").Paste 
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
      :=False, Transpose:=False 

      y = y + 1 


     Next ws 

End Sub 

Answer 1

내가 당신이 원하는 정확히 이해하지만이 시도 주면되지 확신 : 그것은 그렇게 할 수있는 가장 좋은 방법이 아니다

Sub Cycle() 

Dim ws As Worksheet 
Dim wsTarg As Worksheet: Set wsTarg = Worksheets("Target") 
Dim y As Integer 

For Each ws In ThisWorkbook.Sheets 
    y = 1 
    While (wsTarg.Cells(1, y) <> vbNullString) 
     If ws.Name = wsTarg.Cells(1, y) Then 
      wsTarg.Range(wsTarg.Cells(3, y), wsTarg.Cells(25, y)).Value = _ 
       ws.Range(ws.Cells(1, 1), ws.Cells(23, 1)).Value 
     End If 
     y = y + 1 
    Wend 
Next ws 
End Sub 

을 (우리가 확인하는 열을 피하기 위해 최적화 수있는 이미 복사되어 대상 스프레드 시트를 확인하지는 않지만) 모든 워크 시트를 찾아 대상 시트의 첫 번째 줄에있는 모든 셀과 비교합니다. 시트의 이름이 셀 이름과 정확히 일치하면 첫 번째 열 (셀 1 ~ 23)이 셀 3 ~ 25의 대상 시트로 복사됩니다.

이 정보가 도움이되기를 바랍니다.