如何在VBA插入指定行数?

如何在VBA插入指定行数?,第1张

代码运行前

代码运行后

代码如下:

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


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/11455610.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-16
下一篇 2023-05-16

发表评论

登录后才能评论

评论列表(0条)

保存