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