excel上如何插入指定的行?

发布网友发布时间：2022-04-29 18:25

共1个回答

热心网友时间：2022-06-19 00:51

Sub insertR()
    For i = UsedRange.Rows.Count To 2 Step -1
        Rows(i + 1 & ":" & i + Cells(i, 3)).Select
        Selection.Insert shift:=xlDown
    Next
End Sub

ALT+F11打开宏编辑器，在sheet1中输入以上代码并运行

追问试了一下，可以是可以，但是没有C列没有数字的，下面都自动插入了2行。

追答Sub insertR()
    For i = UsedRange.Rows.Count To 2 Step -1
        If Cells(i, 3) > 0 Then 'isnumeric(cells(i,3))=true
            Rows(i + 1 & ":" & i + Cells(i, 3)).Select
            Selection.Insert shift:=xlDown
        End If
    Next
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com