如何在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範圍需要從A2：E2重複到A30：E30。第二行的C2應該是每個增量的D2，E2，F2等。

如何修改現有的代碼以達到上述要求的結果？

在此先感謝您的幫助。

與問候， 馬努斯

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