Excel에서 다른 열을 기준으로 행을 지정된 횟수만큼 반복하는 방법은 무엇입니까?

아래 스크린샷에 표시된 것처럼 다른 열 값을 기준으로 행을 반복해 본 적이 있습니까? 이 문서에서는 Excel에서 이 작업을 해결하는 방법을 소개하겠습니다.

VBA를 사용하여 다른 열 값을 기준으로 행 반복하기

Kutools for Excel을 사용하여 다른 열 값을 기준으로 행 반복하기

VBA를 사용하여 다른 열 값을 기준으로 행 반복하기

여기에는 마지막 열 값에 따라 행을 빠르게 반복할 수 있는 코드가 있습니다.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 활성화합니다.

2. 삽입 > 모듈을 클릭한 다음 아래 코드를 복사하여 새 모듈 스크립트에 붙여넣습니다.

VBA: 다른 열 값을 기준으로 행 반복하기

Sub CopyRow()
'UpdatebyExtendoffice20181011
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 number value", "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

3. 누릅니다 F5 키를 누르면 대화 상자가 나타나며, 행이 반복될 숫자 목록을 선택합니다.

4. 확인을 클릭하면 선택한 열 값에 따라 행이 반복됩니다.

Kutools for Excel을 사용하여 다른 열 값을 기준으로 행 반복하기

VBA 사용에 익숙하지 않다면, Kutools for Excel의 셀 값에 기반한 행/열 중복 기능을 사용해 볼 수 있습니다. 이 기능은 두 단계만 거치면 됩니다.

1. 클릭하세요 Kutools > 삽입 > Duplicate Rows/Columns Based on Cell Value.

2. 나타나는 대화 상자에서 행 복사 및 삽입 옵션을 유형 섹션에서 선택하고, 반복하려는 범위를 선택하여 삽입 범위텍스트 박스에 입력하고, 반복 횟수를 결정하는 열을 선택하여 반복 횟수 텍스트 박스에 입력합니다. 클릭하세요 확인.

그러면 선택한 열에 따라 행이 반복됩니다.