这个肯定要用vba程序来完成了。
Sub test1()
Dim i As Integer
Dim j As Integer
For i = 3 To 1 Step -1
j = Sheet1.Range(Cells(i, 1), Cells(i, 1)).Value - 1
Sheet1.Range(Cells(i, 1), Cells(i, 1)).Offset(1, 0).Resize(j, 1).EntireRow.Insert CopyOrigin:=xlFormatFromLeftOrAbove
Next
End Sub
你可以根据需要适当修改。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024