コピー＆ペーストデータのトランスポーズのために特別な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