如何根据另一个列值在Excel中插入空行

Question

在excel中我有两列，一列是url，第二列我有数值，我想根据第二列数值插入空行。值就像这样

first column           Second Column
www.google.com          25
www.weslez.com          10

我的要求是在第一行下面插入25个空白行，在第二行下面插入10个空白行。谢谢。

Answer 1

见下面的代码：

Sub InsertRows()

    Dim End_Row As Long, n As Long, Ins As Long
    End_Row = Range("B" & Rows.Count).End(xlUp).Row

    Application.ScreenUpdating = False
    For n = End_Row To 1 Step -1

        Ins = Cells(n, "B").Value

        If Ins > 0 Then Range("B" & n + 1 & ":B" & n + Ins).EntireRow.Insert

    Next n
End Sub

此致

XSI的