如何在Excel宏中使用VBA

我在Excel中记录了以下宏

Private Sub Workbook_Open()

Worksheets("Sheet2").Range("A2:E2").Copy
Worksheets("Sheet1").Range("C2").PasteSpecial Transpose:=True
Worksheets("Sheet2").Range("A3:E3").Copy
Worksheets("Sheet1").Range("D2").PasteSpecial Transpose:=True

End Sub

现在，A2:E2范围需要从A2:E2重复到A30:E30。第二行中的C2应为D2、E2、F2，依此类推

如何修改现有的代码以达到上面提到的我需要的结果

提前感谢你的帮助

关于,， 曼努斯

简单使用：

Private Sub Workbook_Open()
   Worksheets("Sheet2").Range("A2:E30").Copy
   Worksheets("Sheet1").Range("C2").PasteSpecial Transpose:=True

   Application.CutCopyMode=false
End Sub

结果：

试试这个：

For I = 0 To 29

    Sheets("Sheet2").Activate
    Range(Range("A2").Offset(I, 0), Range("A2").Offset(I, 4)).Copy
    Sheets("Sheet1").Activate
    Range("C2").Offset(0, I).PasteSpecial Transpose:=True

Next

---

谢谢你的回答。我使用了simoco的答案，但我也将测试这个答案，看看它是否满足相同的要求。