使用VBA复制粘贴数据顺序数据块

您好我有一个关于从一个Excel电子表格复制数据到另一个问题。 我想复制到特定单元格的数据块。 我会举一个我想要做的例子。 假设我想使用下面的VBA从范围B3：D26复制数据：

Output.Sheets("Table6.1").Range("B3:D8").Copy Table.Sheets("Sheet1").Range("B10").PasteSpecial xlValues Output.Sheets("Table6.1").Range("B9:D14").Copy Table.Sheets("Sheet1").Range("B18").PasteSpecial xlValues Output.Sheets("Table6.1").Range("B15:D20").Copy Table.Sheets("Sheet1").Range("B26").PasteSpecial xlValues Output.Sheets("Table6.1").Range("B21:D26").Copy Table.Sheets("Sheet1").Range("B34").PasteSpecial xlValues 

我想使用循环来自动化，但是我在粘贴部分有问题。 找不出要使用的步骤。 我能想到的是以下，但我不能sorting粘贴问题：

 Dim i As Integer For i =3 to 21 step 6 Output.Sheets("Table6.1").Range(Cells(i,2), Cells(4,i+5)).Copy Table.Sheets("Sheet1").Range(... ?? what to put there).PasteSpecial xlValues 

任何帮助都感激不尽。 谢谢

Answer 1

 Sub copydata() Dim i As Long Dim j As Long j = 2 For i = 3 To 21 Step 6 Output.Sheets("Table6.1").Range("B" & i, "D" & i + 5).Copy j = j + 8 Table.Sheets("Sheet1").Range("B" & j).PasteSpecial xlValues Next i End Sub 

Answer 2

为了好玩：

 Sub copydata2() Dim i As Long Dim src As Range, dest As Range Set src = Output.Sheets("Table6.1").Range("B3:D8") Set dest = Table.Sheets("Sheet1").Range("B10") For i = 0 To 3 src.Offset(i * 6, 0).Copy dest.Offset(i * 8, 0).PasteSpecial xlValues Next i End Sub