Excel隔1行插入1行 VBA隔1行插入1行

今夕乃何夕

于 2024-03-04 16:13:25 发布

阅读量661

点赞数 10

文章标签： excel vba

本文链接：https://blog.csdn.net/weixin_58444518/article/details/136455300

版权

该篇文章介绍了如何通过VBA在Excel工作表中编写一个宏，实现按行数递减插入新行，并确保新插入的行格式与上一行一致。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub 隔1行插入1行()
    Dim i, n, x
      Application.ScreenUpdating = False
       i = ActiveSheet.UsedRange.Rows.Count
        For n = i To 1 Step -1
            For x = 1 To 1
              'xldown表示在下边插入 插入的行格式随上面行的格式
              ActiveSheet.Rows(n).Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove 
            Next x
        Next n
    Application.ScreenUpdating = True
End Sub