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

这是我的宏，这个宏的目的，复制Range＆＃34; Ax：Jx＆＃34;从Sheet Test 1到Range＆＃34; P5：P14＆＃34;在表格测试2中

注意：我想运行1000个场景以查看对某些结果的影响。所以，第一步，我为场景创建循环宏，如上所示。

我被困在＆＃34; Sheets（＆＃34; Test1＆＃34;）。范围（Cells（i，1）＆amp; Cells（i，10））。选择＆＃34; 。如何定义此范围，以便它可以循环为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

复制并粘贴VBA excel

1 个答案: