復制並粘貼VBA Excel

Question

Sub Test()

Dim x As Integer

For x = 1 To 1000

Sheets("Test1").Range(Cells(x, 1), Cells(x, 10)).Select
Sheets("Test2").Cells(5, 16).PasteSpecial Paste:=xlValues, Transpose:=True

Next

End Sub

這是我的宏，此宏的用途，將工作表測試1中的范圍“ Ax：Jx”復制到工作表測試2中的范圍“ P5：P14”

注意：我想運行1000場景以查看對某些結果的影響。 因此，第一步，如上所示，我為方案創建了循環宏。

我被困在“ Sheets（” Test1“）。Range（Cells（i，1）＆Cells（i，10））。Select”上。 如何定義此范圍，使其可以像x循環一樣循環。

Answer 1

無需選擇或復制/粘貼：

Sub Test()

    Dim x As Integer, sht1, sht2

    Set sht1 = Sheets("Test1")
    Set sht2 = Sheets("Test2")

    For x = 1 To 1000

        sht2.Cells(5, 16).Resize(10, 1).Value = _
              Application.Transpose(sht1.Cells(x, 1).Resize(1, 10).Value)

    Next

End Sub