复制并粘贴VBA excel

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 

这里是我的macros，这个macros的目的，复制工作表testing1中的范围“Ax：Jx”到工作表testing2中的范围“P5：P14”

注意：我想运行1000场景以查看对某些结果的影响。 所以，第一步，我创build循环macros的情况，你可以看到上面。

我被困在“表格（”testing1“）。范围（单元格（i，1）和单元格（i，10））select”。 如何定义这个范围，以便循环为x循环。

Answer 1

不需要select或复制/粘贴：

 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