Как повторить строки указанное количество раз на основе другого столбца в Excel?

Пробовали ли вы когда-нибудь повторить строку на основе значения другого столбца, как показано на скриншоте ниже? В этой статье я представлю метод решения этой задачи в Excel.

Повторение строк на основе значения другого столбца с помощью VBA

Повторение строк на основе значения другого столбца с помощью Kutools для Excel

Повторение строк на основе значения другого столбца с помощью VBA

У меня есть код, который может быстро повторять строки на основе значений последнего столбца.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

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. Нажмите OK, строки будут повторены на основе выбранного значения столбца.

Повторение строк на основе значения другого столбца с помощью Kutools для Excel

Если вы не умеете использовать VBA, вы можете попробовать функцию Kutools для Excel «Дублирование строк/столбцов на основе значения ячейки», которая требует всего два шага.

1. Нажмите Kutools > Вставить > Дублирование строк/столбцов на основе значения ячейки.

2. В появившемся диалоговом окне выберите Копировать и вставить строки опцию в разделе Тип затем выберите диапазон, который вы хотите повторить в текстовое поле Вставить диапазони выберите столбец, определяющий количество повторений в текстовое поле Количество повторений Нажмите Ok.

Затем строки будут повторены на основе выбранного столбца.