插入新行并填充

Question

我需要帮助创建一个excel宏来根据qty列拆分订单。 在前面的表格中，我们有4个订单，其中两个订单的数量大于1.在宏观图像前看

我需要的是一个excel宏，可以检查qty字段并根据qty值插入下面的新行（如果大于1），然后使用原始行中的数据填充这些行。 然后最后一步是删除C列。请参见After Macro image

我之前从未使用过宏，所以我甚至不确定是否可以这样做。

Answer 1

这只是10行代码。 SO不是代码血汗工厂，我们为您工作，我们帮助您自己解决这个问题。

这将轮询行向后退：

For X = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1

这是关键因为你将插入行，前进会产生各种各样的肮脏。

然后你需要使用你的数量作为参考在里面循环。这是我构建的一个，但您需要对其进行一些更改以适用于您的列：

For Y = 1 To Range("B" & X).Value - 1

然后你需要在这个循环中复制行X

下一行将是第X + 1行的向下移位（如此Insert Shift:=xlDown）或第X行第1行的偏移，您可以选择如何执行此操作。

最后要做的是删除C列，这可以像Range("C1").EntireColumn.Delete

那样完成

就是这样，整个宏，只需删除几个nexts和一个end sub并运行它。

你需要暗淡X和Y，将它们调暗为长。

如果您使用已放在一起的代码后退，我们可以帮您解决问题。