我需要帮助创建一个excel宏来基于qty列拆分订单 . 在前面的表格中，我们有4个订单，其中两个订单的数量大于1.在宏观图像之前看到
我需要的是一个excel宏，它可以检查qty字段并根据qty值插入下面的新行（如果大于1），然后使用原始行中的数据填充这些行 . 然后最后一步是删除C列 . 请参见After Macro image
我之前从未使用过宏，所以我甚至不确定是否可以这样做 .
它只有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.
下一行将是一个插入一个向下移位（如此 Insert Shift:=xlDown ）在行X 1或行X的偏移量为1行，您可以选择如何执行此操作 .
Insert Shift:=xlDown
最后要做的是删除列C，这可以这样做 Range("C1").EntireColumn.Delete
Range("C1").EntireColumn.Delete
也就是说，整个宏，只需删除几个nexts和一个end sub并运行它 .
您将需要Dim X和Y，将它们调整为长 .
如果您使用已放在一起的代码卡在后面，我们可以帮助您解决问题 .
1 回答
它只有10行代码 . SO不是代码血汗工厂，我们为您工作，我们帮助您自己解决问题 .
这将轮询行向后退：
这是关键，因为你将插入行，前进会产生各种各样的肮脏 .
然后，您将需要使用您的数量作为参考在其中的循环 . 这是我构建的一个，但您需要对其进行一些更改以适用于您的列：
然后你需要在这个循环中复制行X.
下一行将是一个插入一个向下移位（如此
Insert Shift:=xlDown）在行X 1或行X的偏移量为1行，您可以选择如何执行此操作 .最后要做的是删除列C，这可以这样做
Range("C1").EntireColumn.Delete也就是说，整个宏，只需删除几个nexts和一个end sub并运行它 .
您将需要Dim X和Y，将它们调整为长 .
如果您使用已放在一起的代码卡在后面，我们可以帮助您解决问题 .