선택된 범위 아래에 원하는 개수만큼 행을 삽입

이 코드는 Excel에서 특정 범위를 선택한 후, 그 아래에 지정된 개수만큼 행을 삽입하는 기능을 수행할때 사용하는 매크로 입니다.

📌 사용 사례 데이터 입력을 위한 행 추가 기존의 데이터 아래에 새로운 행을 삽입해야 할 때. 예를 들어, 매일 새 데이터를 입력해야 하는 업무에서 사용 가능. 2. 반복적인 행 삽입 자동화 수작업으로 여러 개의 행을 삽입하는 대신, 버튼 클릭만으로 빠르게 삽입 가능. 3. 테이블 형식 데이터 확장 선택한 범위 아래에 일정 개수의 행을 추가하여 데이터 확장.

Sub InsertRows() ' 선택된 범위 아래에 원하는 개수만큼 행을 삽입하는 매크로 ​ Dim selectedRange As Range ' 선택된 범위 Dim startRow As Long ' 삽입 시작 행 Dim lastRow As Long ' 선택 범위의 마지막 행 Dim insertRowCount As Long ' 삽입할 행 개수 Dim i As Long ' 반복 변수 ​ ' 오류 발생 시 무시하고 계속 실행 (예외 처리) On Error Resume Next ​ ' 선택된 범위를 가져옴 Set selectedRange = Application.InputBox("범위를 선택 하세요", "범위 선택", Type:=8) If selectedRange Is Nothing Then Exit Sub ' 범위가 선택되지 않았다면 종료 ​ ' 삽입할 행 개수 입력받기 (기본값: 1) insertRowCount = InputBox("삽입할 행의 개수를 입력하세요", "행 삽입", Default:=1) ' 선택된 범위의 첫 번째 행 번호 및 마지막 행 번호 계산 startRow = selectedRange.Cells(1).Row lastRow = selectedRange.Rows.Count + startRow - 1 ​ ' 선택한 범위 아래에서 위쪽 방향으로 행 삽입 For i = lastRow + 1 To startRow + 2 Step -1 Cells(i, 1).Offset(-1).Resize(insertRowCount).EntireRow.Insert ' 행 삽입 Next i End Sub