没有选择的纸张之间的VBA复制和粘贴

Question

我是VBA的初学者，我正在尝试从“Sheet1”复制行并将其粘贴为“Sheet2”中的列。下面的代码正是我需要它做的，但是我试图消除“select”的使用，因为我读过它效率低下。

For i = 0 To 5
        Sheets("Sheet1").Select
        Range(Cells(104 * i + 39, 4), Cells(104 * i + 39, 204)).Copy
        Sheets("Sheet2").Select
        Cells(201 * i + 203, 28).PasteSpecial xlPasteValues, Transpose:=True
        Application.CutCopyMode = False 

Next i

以下是我试图摆脱“选择”。当我运行它时，我遇到了运行时错误'1004'。

For i = 0 To 5
        Sheets("Sheet1").Range(Cells(104 * i + 39, 4), Cells(104 * i + 39, 204)).Copy
        Sheets("Sheet2").Cells(201 * i + 203, 28).PasteSpecial xlPasteValues, Transpose:=True
        Application.CutCopyMode = False

Next i

我只是不明白为什么第一组代码有效，但后者没有。任何建议将不胜感激！