vba - 使用 VBA 复制粘贴数据顺序数据 block

Question

嗨，我有一个关于将数据从一个 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

我想使用循环使其自动化，但我在粘贴部分时遇到问题。无法弄清楚使用什么步骤。我能想到的如下，但我无法对粘贴问题进行排序:

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