Как повторить строки заданное количество раз на основе значений из другого столбца в 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. В появившемся диалоговом окне выберите опцию Копировать и вставить строки в разделе Тип, укажите диапазон для повторения в поле Диапазон для вставки и выберите столбец, определяющий количество повторений, в поле Количество повторений. Нажмите кнопку ОК.
После этого строки будут продублированы в соответствии со значениями из выбранного столбца.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек