代码运行前
代码运行后
代码如下:
Sub 插行()
Dim i%, n% '声明两个整型变量
For i = 22 To 2 Step -1 '注意:插行删行都必须逆向遍历
n = Range("A" &i) - 1 '计算应插入的行数n
If n >0 Then
Rows(i &":" &i + n - 1).Insert '插入行
End If
Next
MsgBox "处理完毕", 64 '完毕时d出提醒
End Sub
你这多行是连续的还是不连续的?连续的,参考
Sheets("Sheet1").Activate
Range("5:10").Insert Shift:=xlDown
不连续的,不知道规律 随便整一个,请参考
m = Sheets(1).Columns(1).Find("*", , xlValues, , , 2).Row
For i = m To 1 Step -1
Range(Cells(i + 1, 1), Cells(i + 20, 1)).Select '每向上1个单元插入20行
Selection.Insert Shift:=xlDown
Next
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)