第一个单元格输入 =CEILING(row(a1)/100,1)向下填充，即可
Sub a()Dim i As Integer ActiveCell.EntireRow.Resize(2).Insert Cells(ActiveCell.Row, 1).Resize(2) = 1End Sub
