지정영역 내에서 일정 간격으로 1행 삽입 및 삭제

※ Copilot 질의 응답

 
Sub InsertRowsInterval()

    Dim SelRange As Range
    Dim i As Long
    Dim interval As Long
    
    interval = 1 ' 간격 설정
    
    Set SelRange = Selection

   '아래에서 위로 역순 처리
    For i = SelRange.Rows.Count To 1 Step -interval
        Rows(SelRange.Row + i).Insert Shift:=xlDown
    Next i

End Sub


Sub InsertRowsEveryN()

    Dim SelRange As Range
    Dim i As Long
    Dim interval As Long
    
    interval = 2 ' 간격 설정
    
    Set SelRange = Selection

   '아래에서 위로 역순 처리
    For i = SelRange.Rows.Count To 1 Step -interval
        Rows(SelRange.Row + i).Insert Shift:=xlDown
    Next i

End Sub

지정 영역 내에서 일정 간격으로 1행 삽입 및 삭제.txt

0.00MB