Vba 插入新行并填充

我需要帮助创建一个excel宏来根据数量列拆分订单。 在前表中，我们有4份订单，其中两份订单的数量大于1。查看宏图像之前的内容

我需要的是一个excel宏，它可以检查“数量”字段并根据“数量”值（如果大于1）在下面插入新行，然后用原始行中的数据填充这些行。 最后一步是删除C列。查看后置宏图像

我以前从未使用过宏，所以我甚至不确定这是否可以实现

---

只需10行代码。因此，不是我们为您工作的代码血汗工厂，而是我们帮助您自己解决问题的工厂

这将为您向后轮询行：

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行或X行偏移量为1行的情况下下移（如下图所示）的插入，您可以选择如何执行

最后要做的事情是删除C列，可以这样做

Range（“C1”）.EntireColumn.delete

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

您需要将X和Y调暗，将它们调暗为长

---

试一试吧，如果你用自己编写的代码发帖，我们可以帮助你解决问题。

可以用vba完成，但不是“我的代码站点”。查看迭代或循环单元格、插入行、复制或填充以及删除列。