excel中如何根据指定数字，紧随其后插入行数？

2025-04-24 18:55:47

推荐回答（1个）

回答1：

按ALT+F11，在右边输入如下代码：

Sub myfun()
    Dim i As Long
    Dim j As Integer
    i = 2
    Do Until Range("a" & i) = ""
        For j = 1 To Range("C" & i)
            Rows(i + 1).Insert
            i = i + 1
        Next
        i = i + 1
    Loop
End Sub

然后点击图中红圈处，运行。效果图如下：