excel在线等，转换成序列 在线等，转换成序列

来源：百度知道 编辑：UC知道 时间：2024/05/23 14:02:36
在线等，转换成序列 在线等，转换成序列
表1
发票号 品名 数量 箱数
55 王 15 3
55 王 4 1
55 李 20 2
55 李 6 1
66 ..............................
转换成表2
发票号 品名 数量
55 王 5
55 王 5
55 王 5
55 王 4
55 李 10
55 李 10
55 李 6
66 .........................
能否给个详细的程序，VBA俺是个菜鸟呀！！！跪谢！！！

通过EXCEL VBA可以做，根据“箱数”n判断，在下面插入(n-1)行。

数量除以n，填到各行对应的单元格中。其余信息不变。

最后都做完了将“箱数”这列删除。 

============================================================

安全起见，还是保留你的表1。

假设表1在Sheet1中（见最下面的图）

Excel中按Alt+F11打开VB编辑器，双击左边Sheet1，在代码区粘贴以下代码。

Sub test()

    Dim i, beginRow As Integer    

    beginRow = 2

    For i = beginRow To Range("D65535").End(xlUp).Row

        If Cells(i, 4) <> "" Then

            Sheets("Sheet2").Range("A" & beginRow & ":A" & (beginRow + Cells(i, 4) - 1)).Value = Cells(i, 1)

   &