데이터 복사 및 붙여 넣기를위한 복사 및 붙여 넣기 VBA

Question

바보 같은 문제 여야합니다. 한 시트에서 다른 워크 시트로 다양한 범위의 데이터를 복사하는 데 어려움이 있습니다. 그것은 정상적인 데이터와 완벽하게 잘 작동합니다. 그러나, 데이터를 전치시키기 위해 PasteSpecial을 사용할 때. 작동하지 않습니다. 나는 어떤 오류나 팝업을 얻지 못한다. 동시에, 나는 데이터가 복사되지 않은 것을 본다.

내 성공 코드는

With ActiveWorkbook.Sheets("Consolidate_Data") 
    .Range(.Cells(1 + j, 1), .Cells(350 + j, 3)).Copy _ 
     Destination:=ActiveWorkbook.Sheets("Template").Cells(77, 1) 
    End With 

With ActiveWorkbook.Sheets("Consolidate_Data")  
.Range(.Cells(1+ j, 4), .Cells(350 + j, 51)).Copy _ 
.Sheets("Template").Cells(427, 1).PasteSpecial Paste:=xlPasteValues,Operation:=xlNone, SkipBlanks:=False, Transpose:=True 
End With 

모든 아이디어이며, 제안 정말 도움이 될 것입니다와 나는 문제를 가지고있는 것입니다. 미리 감사합니다.

Answer 1

붙여 넣을 곳을 완전히 참조하십시오. 줄 연속에 대한 필요가 없습니다.

With ActiveWorkbook.Sheets("Consolidate_Data") 
    .Range(.Cells(1 + j, 4), .Cells(350 + j, 51)).Copy 
    ActiveWorkbook.Sheets("Template").Cells(427, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 
End With