Question

我从论坛复制了以下vba代码，以插入新行，其中单元格的值与上面不同。它工作得很完美，但它只插入1个新行。

我需要插入三个新行。请帮忙解决一些代码。

VBA

Sub InsertRowAtChangeInValue() 

    Dim lRow As Long 

    For lRow = Cells(Cells.Rows.Count, "L").End(xlUp).Row To 2 Step -1 
    If Cells(lRow, "L") <> Cells(lRow - 1, "L") 
        Then Rows(lRow).EntireRow.Insert 
    Next 

    lRow 

End Sub

Answer 1

Sub InsertRowAtChangeInValue()

    Dim lRow As Long

    For lRow = Cells(Cells.Rows.Count, "L").End(xlUp).Row To 2 Step -1
        If Cells(lRow, "L") <> Cells(lRow - 1, "L") Then _
            Range(Rows(lRow), Rows(lRow + 2)).EntireRow.Insert
    Next lRow

End Sub

MS Excel 2007 VBA宏，用于插入单元格值更改的三行

1 个答案: