VBA隔一行插入一行
代码执行前：

http://s13/mw690/001f8HsBgy6IuyPrklu1c&690

代码执行后：

http://s12/mw690/001f8HsBgy6Iuza4RWHab&690

VBA代码：

http://s6/mw690/001f8HsBgy6IuzbSoGVe5&690

Sub VBA隔一行插入一行()
    Dim lastRow As Long, i As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row
    Application.ScreenUpdating = False
    For i = lastRow To 2 Step -1
        Rows(i).Insert
    Next
    Application.ScreenUpdating = True
End Sub

更多分享请关注微信号
微信号：Excel335081548
或扫扫二维码

http://s8/mw690/001f8HsBgy6IuzfFDh587&690