Excel에서 일정 간격으로 특정 수의 행을 삽입하는 방법은 무엇입니까?

Excel 워크시트에서 기본 제공되는 '삽입' 기능을 사용하여 기존 행 사이에 빈 행을 수동으로 삽입할 수 있습니다. 그러나 대량의 데이터를 다루거나, 예를 들어 매 세 번째 또는 n 번째 행 이후에 두 개의 빈 행을 정기적으로 삽입해야 하는 경우와 같이 작업이 필요할 때, 이를 수동으로 수행하면 시간이 많이 소요되고 비효율적입니다. 일정한 간격으로 빈 행을 삽입하는 작업을 자동화하면 시간을 절약할 뿐만 아니라 오류를 최소화하여 작업 흐름을 더욱 원활하게 만듭니다. 다음 방법들은 특정 조건 또는 반복 행에 따라 빈 행을 삽입하는 솔루션을 포함하여 이 작업을 빠르고 편리하게 수행하는 방법을 보여줍니다. VBA를 사용하거나 사용하지 않는 방법 모두 포함됩니다.

VBA 코드를 사용하여 일정 간격으로 데이터 범위에 특정 수의 빈 행 삽입하기

다음 VBA 코드는 기존 데이터 범위 내에서 매 n 번째 행 이후에 특정 수의 빈 행을 자동으로 삽입하는 데 도움이 됩니다. 이 접근 방식은 매크로에 익숙하고 중대형 데이터셋을 효율적으로 처리해야 하는 사용자에게 적합합니다. 이 솔루션을 위해 다음 단계를 수행하십시오:

1. Excel에서 ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. '삽입' > '모듈'을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 일정 간격으로 특정 수의 행 삽입하기

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. 이 코드를 붙여넣은 후, F5를 눌러 실행합니다. 그러면 아래와 같이 빈 행을 삽입하고자 하는 데이터 범위를 선택하라는 메시지 상자가 나타납니다:

4. 확인을 클릭합니다. 또 다른 메시지 상자가 나타나며, 여기에 원하는 행 간격(예: 3을 입력하면 세 번째 행 이후에 빈 행 삽입)을 입력합니다:

5. 계속해서 확인을 클릭한 다음, 코드가 요청할 때마다 삽입하려는 빈 행의 수를 입력합니다(예: 2를 입력하면 두 개의 행 삽입).

6. 선택 사항을 확인한 후, 빈 행이 정의된 간격으로 데이터에 삽입됩니다. 아래의 전후 비교를 참조하세요:

VBA 코드를 사용하여 셀 값에 따라 데이터 범위에 특정 수의 빈 행 삽입하기

때로는 미리 정의된 셀 값 목록에 따라 빈 행을 삽입해야 할 수도 있습니다. 예를 들어, 일치하는 기준에 따라 각 레코드 이후에 빈 행을 삽입하는 경우가 있습니다. 이 VBA 솔루션은 삽입 논리가 고정된 간격이 아닌 인접 열의 값에 기반할 때 이상적입니다.

1. Excel에서 ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. '삽입' > '모듈'을 클릭하고 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 숫자 목록에 따라 특정 수의 빈 행 삽입하기:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. 코드를 붙여넣은 후, F5를 눌러 실행합니다. 나타나는 대화 상자에서 빈 행을 삽입해야 할 숫자 목록(또는 관련 셀)을 선택합니다.

4. 그런 다음 확인을 클릭하면 다음과 같은 스크린샷에 표시된 대로 의도된 결과를 볼 수 있습니다:

손쉬운 기능을 사용하여 일정 간격으로 데이터 범위에 특정 수의 빈 행 삽입하기

VBA를 사용하지 않거나 더 시각적이고 상호작용적인 방법을 선호한다면, Kutools for Excel에는 전용 Insert Blank Rows & Columns 기능이 있습니다. 간단한 클릭만으로 데이터 범위 전체에 걸쳐 설정된 간격으로 빈 행 또는 열을 추가할 수 있어, 특히 반복적인 보고서 작성 또는 서식 작업에서 생산성을 크게 향상시킵니다.

Kutools for Excel 설치 후 다음 단계를 따르십시오:

1. 빈 행을 정기적으로 삽입해야 할 데이터 범위를 선택합니다.

2. 아래와 같이 Kutools > 삽입 > Insert Blank Rows & Columns로 이동합니다:

3. Insert Blank Row & Columns 대화 상자에서 삽입 유형 아래에서 빈 행을 선택하고, 삽입 간격 및 빈 행 수를 지정합니다:

참고: 설정은 유연합니다. 예를 들어, 네 개의 데이터 행 이후에 두 개의 빈 행을 삽입하려면 간격을 4로, 빈 행 수를 2로 설정합니다.

4. 그런 다음 확인 버튼을 클릭합니다. 빈 행은 아래와 같이 지정한 간격으로 선택된 범위에 삽입됩니다:

장점: 이 솔루션은 사용자 친화적이며 코딩이 필요하지 않으며, 특히 자주 행 또는 열 구조를 조정해야 하는 사람들에게 유용합니다.

지금 바로 Kutools for Excel 다운로드 및 무료 평가판 시작하기 !

Excel 수식을 사용하여 일정 간격으로 특정 수의 빈 행 삽입하기

VBA 코드를 사용하여 특정 숫자에 따라 여러 번 행 복사 및 삽입하기

작업이 단순히 빈 행을 삽입하는 것이 아니라 기존 데이터 행을 특정 횟수만큼 복제하고 삽입해야 하는 경우(어쩌면 별도의 숫자 목록에 기반하여), 다음 VBA 코드는 실용적인 자동화 방법을 제공합니다. 이는 판매 주문, 시나리오 또는 자원 계획에 대한 항목을 복제하는 데 특히 유용합니다.

이를 구현하려면 다음 상세 단계를 따르십시오:

1. Excel에서 ALT + F11을 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. '삽입' > '모듈'을 클릭하고 모듈 창에 아래 코드를 붙여넣습니다.

VBA 코드: 특정 숫자에 따라 여러 번 행 복사 및 삽입하기:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

주의사항: 항상 행을 복제하는 VBA 스크립트를 실행하기 전에 데이터를 백업하십시오. 이렇게 하면 데이터가 급격히 증가하고 쉽게 되돌릴 수 없습니다.

3. 코드가 준비되면 F5를 눌러 매크로를 실행합니다. 대화 상자에서 각 행을 얼마나 많이 복제하고 삽입할지 나타내는 숫자 목록을 선택합니다.

4. 확인을 클릭합니다. 아래와 같이 지정된 수의 행이 각 원본 행 아래에 복사 및 삽입됩니다:

팁: 이 솔루션은 데이터 준비 작업에 가장 적합하며, 기타 관련되지 않은 작업이 수행될 경우 VBA 매크로를 실행 취소할 수 없으므로 실시간 입력에는 적합하지 않습니다.

놀라운 기능을 사용하여 특정 숫자에 따라 여러 번 행 복사 및 삽입하기

행을 복제하고 삽입하는 과정이 직관적이며 프로그래밍 기술이 필요 없는 경우, Kutools for Excel의 Duplicate Rows / Columns based on cell value 기능은 효율적인 대안입니다. 이 도구를 사용하면 참조 셀 값 또는 목록에 따라 어느 행 또는 열을 복제하고 몇 번 복제할지를 간단한 몇 가지 선택으로 지정할 수 있습니다.

Kutools for Excel 설치 후 다음 단계를 따르십시오:

1. 아래와 같이 Kutools > 삽입 > Duplicate Rows / Columns based on cell value로 이동합니다:

2. Copy and insert rows & columns 대화 상자에서 'Copy and insert rows'를 선택하고, 복제하려는 데이터 범위를 지정한 다음, 복제 조회로 사용할 값 목록을 지정합니다:

팁: 테스트 샘플 생성, 트랜잭션 템플릿 복제 또는 복잡한 스크립팅 없이 설정 또는 기록을 신속하게 늘리는 데 사용합니다.

4. 마지막으로, 아래와 같이 출력을 생성하기 위해 OK 또는 Apply를 클릭합니다:

참고: 값 목록이 데이터와 정확히 일치하도록 하여 예상 결과를 얻으십시오.

지금 바로 Kutools for Excel 다운로드 및 무료 평가판 시작하기 !

관련 기사 더 보기:

최고의 오피스 생산성 도구

🤖	Kutools AI 도우미: 데이터 분석에 혁신을 가져옵니다. 방법: 지능형 실행   |  코드 생성  |  사용자 정의 수식 생성  |  데이터 분석 및 차트 생성  |  Kutools Functions 호출…
	인기 기능: 중복 찾기, 강조 또는 중복 표시   |  빈 행 삭제   |  데이터 손실 없이 열 또는 셀 병합   |   반올림(수식 없이) ...
	슈퍼 LOOKUP: 다중 조건 VLOOKUP  |   다중 값 VLOOKUP  |   다중 시트 조회   |   퍼지 매치 ....
	고급 드롭다운 목록: 드롭다운 목록 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭다운 목록 ....
	열 관리자: 지정한 수의 열 추가  |  열 이동  |  숨겨진 열의 표시 상태 전환  |  범위 및 열 비교 ...
	추천 기능: 그리드 포커스   |  디자인 보기   |   향상된 수식 표시줄   |  통합 문서 & 시트 관리자   |  자동 텍스트 라이브러리   |  날짜 선택기   |  데이터 병합   |  셀 암호화/해독   |  목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터(굵게/이탤릭/취소선 필터 등) ...
	15대 주요 도구 세트: 12 가지 텍스트 도구(텍스트 추가, 특정 문자 삭제, ...)  |  50+ 종류의 차트(간트 차트, ...)  |  40+ 실용적 수식(생일을 기반으로 나이 계산, ...)  |  19 가지 삽입 도구(QR 코드 삽입, 경로에서 그림 삽입, ...)  |  12 가지 변환 도구(단어로 변환하기, 통화 변환, ...)  |  7 가지 병합 & 분할 도구(고급 행 병합, 셀 분할, ...)  |  ... 등 다양

Kutools는 사용자가 선호하는 언어로 이용할 수 있습니다 – 영어, 스페인어, 독일어, 프랑스어, 중국어 및40개 이상의 언어 지원!

Kutools for Excel과 함께 엑셀 능력을 한 단계 끌어 올리고, 이전에 없던 효율성을 경험하세요. Kutools for Excel은300개 이상의 고급 기능으로 생산성을 높이고 저장 시간을 단축합니다.  가장 필요한 기능을 바로 확인하려면 여기를 클릭하세요...

Kutools for Excel의 자세한 정보... 무료 다운로드...

---

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 더욱 간편하게 만듭니다

• Word, Excel, PowerPoint에서 탭 편집 및 읽기를 활성화합니다.
• 새 창 대신 같은 창의 새로운 탭에서 여러 파일을 열고 생성할 수 있습니다.
• 생산성이50% 증가하며, 매일 수백 번의 마우스 클릭을 줄여줍니다!

Office Tab의 자세한 정보... 무료 다운로드...

---

모든 Kutools 추가 기능. 한 번에 설치

Kutools for Office 제품군은 Excel, Word, Outlook, PowerPoint용 추가 기능과 Office Tab Pro를 한 번에 제공하여 Office 앱을 활용하는 팀에 최적입니다.

• 올인원 제품군 — Excel, Word, Outlook, PowerPoint 추가 기능 + Office Tab Pro
• 설치 한 번, 라이선스 한 번 — 몇 분 만에 손쉽게 설정(MSI 지원)
• 함께 사용할 때 더욱 효율적 — Office 앱 간 생산성 향상
• 30일 모든 기능 사용 가능 — 회원가입/카드 불필요
• 최고의 가성비 — 개별 추가 기능 구매 대비 절약

Kutools for Office의 자세한 정보... 무료 다운로드...