具有偏移值的Excel VBA复制/粘贴循环

Question

在这里经常阅读，第一次发表。需要一些帮助来创建复制/粘贴循环，以提交给打包我公司订单的新团队。我们的大多数订单都通过原始包装团队处理，该团队使用此合并格式为每个客户包装订单。

这个新团队需要将每个项目放在单独的行上，因此每个销售订单都需要五行，每行一件我们销售的小部件。他们需要它看起来像这样：

我已经记录了复制/粘贴命令的宏以记录第一顺序：

Sub GrabOrders()
'
' GrabOrders Macro
'

'
    Sheets("Raw Data").Select
    Range("B2").Select
    Selection.Copy
    Sheets("Ship Sheet").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("A2:A6"), Type:=xlFillDefault
    Range("A2:A6").Select
    Sheets("Raw Data").Select
    Range("F1:J1").Select
    Selection.Copy
    Sheets("Ship Sheet").Select
    Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("Raw Data").Select
    Range("F2:J2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Ship Sheet").Select
    Range("H2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub
我现在需要复制（在原始格式选项卡上的单元格）将一行向下移动到下一个顺序，并粘贴到新格式选项卡上以开始向下移动五行，以免覆盖来自前一个订单。请注意，项目名称将保持不变（在原始选项卡的F1，G1等中），而其他要复制的单元格将移动。我需要循环直到它到达空白的销售订单单元格。

希望这是一个比我拥有更多经验的人的简单要求。很高兴提供所需的更多详细信息。预先感谢！

在这里经常阅读，第一次发表。需要一些帮助来创建复制/粘贴循环，以提交给打包我公司订单的新团队。我们的大多数订单都通过原始的包装团队进行...

Answer 1

您应该首先删除代码中的所有select语句。