EXCEL根据列进行插空行，并自动填充

1、比如这张表格，需要根据”数据“列的数量进行插行。首先，先插入一列，如图。

2、接着，选中”sheet1“右击，选择”查看代码“，进入一下界面。插入VBA代码:

Sub myfun()

    Dim i As Long

    Dim j As Integer

    i = 2   （需要插行的其实行数）

    Do Until Range("b" & i) = ""  （数据列起始列数）

        For j = 1 To Range("e" & i)  （作为插行的数据列）

            Rows(i + 1).Insert

            i = i + 1

        Next

        i = i + 1

    Loop

End Sub

输入后，选择“运行”，插行完成。

3、接下来，就需要进行信息更新填充。选择需要填充范围，点击“查找和选择”，选中“定位条件”，接着选中“空值”，蓝色部分在B3中输入=B2，同时按ctrl+enter。这样就完成了，将数量修改成1，就完成了。