Vba 插入新行并填充

Vba 插入新行并填充,vba,excel,Vba,Excel,我需要帮助创建一个excel宏来根据数量列拆分订单。 在前表中,我们有4份订单,其中两份订单的数量大于1。查看宏图像之前的内容 我需要的是一个excel宏,它可以检查“数量”字段并根据“数量”值(如果大于1)在下面插入新行,然后用原始行中的数据填充这些行。 最后一步是删除C列。查看后置宏图像 我以前从未使用过宏,所以我甚至不确定这是否可以实现 只需10行代码。因此,不是我们为您工作的代码血汗工厂,而是我们帮助您自己解决问题的工厂 这将为您向后轮询行: For X = Range("A" &am

我需要帮助创建一个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完成,但不是“我的代码站点”。查看迭代或循环单元格、插入行、复制或填充以及删除列。