如何在Excel宏中自动VBA

Question

我在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重复到A30：E30的A2：E2范围。 第二行中的C2对于每个增量应为D2，E2，F2，依此类推。

如上所述，如何修改现有代码以实现所需的结果？

在此先感谢您的帮助。

问候，Manus

Answer 1

简单使用：

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

   Application.CutCopyMode=false
End Sub

结果：

Answer 2

尝试这个：

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