特殊复制和粘贴以转置数据 VBA

Question

我敢肯定这一定是个愚蠢的问题。我一直在将一系列数据从一个 sheet 复制到另一个工作 sheet。它可以很好地处理常规数据。但是，当我尝试使用 PasteSpecial 转置数据时。它不起作用。我没有收到任何错误或 pop-ups.At 同时，我看到数据没有被复制。

我的成功代码是

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

特殊复制和粘贴以转置数据 VBA

Copy and Paste Special for tranposing data VBA

vba

transpose

copy-paste

range