插入指定行

yanyan2623

各位大神，麻烦看看附件要插入对应销售数量的行要怎么写vba？谢谢大神们！！

liulang0808

楼主结合附件内容，举例说明下要怎么样增加行啊？

yanyan2623

就是根据销售数量列的数量，例如：销售数量=1，向后插入一列，销售数量=2，向后插入两列，如此类推。谢谢版主！

yanyan2623

liulang0808 发表于 2018-9-30 16:46
楼主结合附件内容，举例说明下要怎么样增加行啊？

就是根据销售数量列的数量，例如：销售数量=1，向后插入一列，销售数量=2，向后插入两列，如此类推。谢谢版主！

liulang0808

yanyan2623 发表于 2018-9-30 16:50
就是根据销售数量列的数量，例如：销售数量=1，向后插入一列，销售数量=2，向后插入两列，如此类推。谢谢 ...

这样的帖子，论坛里有很多，从下往上遍历，增加即可

不知道为什么

如图

不知道为什么

yanyan2623 发表于 2018-9-30 16:50
就是根据销售数量列的数量，例如：销售数量=1，向后插入一列，销售数量=2，向后插入两列，如此类推。谢谢 ...

              

xiangbaoan

Sub test()
Dim r&, h%
For r = [a65536].End(xlUp).Row To 2 Step -1
    h = Val(Cells(r, 2))
    If h Then Rows(r + 1).Resize(h).Insert
Next
End Sub