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 LoopEnd Sub输入后，选择“运行”，插行完成。