Как повторить строки указанное количество раз на основе другого столбца в Excel?
Вы когда-нибудь пытались повторить строку на основе другого значения столбца, как показано на скриншоте ниже? В этой статье я расскажу о методе решения этой задачи в Excel.
Повторить строки на основе другого значения столбца с VBA
Повторить строки на основе другого значения столбца Kutools for Excel
Повторять строки с фиксированным временем Kutools for 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 for Excel
Если вы не умеете использовать VBA, вы можете попробовать Kutools for ExcelАвтора Повторяющиеся строки / столбцы на основе значения ячейки функция, для которой требуется всего два шага.
| Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. |
1. Нажмите Кутулс > Вставить > Повторяющиеся строки / столбцы на основе значения ячейки.
2. В появившемся диалоговом окне выберите Копировать и вставлять строки вариант в Тип раздел, затем выберите диапазон, который вы хотите повторить, чтобы Вставить диапазонe и выберите столбец, который определяет время повтора для Время повтора текстовое окно. Нажмите Ok.
Тогда строки будут повторяться выбранным столбцом.
Повторять строки с фиксированным временем Kutools for Excel
Если вы хотите повторять строки с фиксированным временем, не вставляя строки одну за другой, вы можете попробовать использовать Вставить пустые строки и столбцы и Заполнить пустые ячейки коммунальные услуги Kutools for Excel чтобы быстро справиться с этой работой.
После установки Kutools for Excel, сделайте следующее:（Бесплатная загрузка Kutools for Excel прямо сейчас!)
1. Выберите диапазон данных, в котором должны повторяться строки, щелкните Кутулс > Вставить > Вставить пустые строки и столбцы. Тогда в Вставить пустые строки и столбцы диалог, проверьте Пустые строки вариант, затем введите 1 в Интервал of и введите число, в котором вы хотите повторить строки Ряды текстовое окно.
2. Нажмите Ok, пустые строки были вставлены под каждой строкой.
3. Не снимая выделения с диапазона, щелкните Кутулс > Вставить > Заполнить пустые ячейки. В Заполнить пустые ячейки диалог, проверьте На основе ценностей и вниз настройки.
4. Нажмите Ok. Теперь пустые ячейки заполнены указанным выше значением.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
