Sub cr()
For i = 1 To 50
If Cells(i, 1) <> "" Then
inrw = i + 1
Rows(inrw & ":" & inrw + 3).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next
End Sub
这一段是在A列有数据的单元格后边插入4行
给你定个框框
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024