포럼에서 vba 코드 아래에 복사하여 셀의 값이 위와 다른 새 행을 삽입했습니다. 완벽하게 작동하지만 1 개의 새 행만 삽입합니다.
3 개의 새 행을 삽입해야합니다. 일부 코드를 도와주세요.
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
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
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다