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

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

1 个答案: