Как повторить строки указанное количество раз на основе другого столбца в 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.
Затем строки будут повторены на основе выбранного столбца.
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек