Как вставить определенное количество строк через фиксированные интервалы в Excel?

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

• Вставьте определенное количество пустых строк в диапазон данных через фиксированные интервалы с кодом VBA
• Вставьте определенное количество пустых строк в диапазон данных на основе значений ячеек с кодом VBA
• Вставляйте определенное количество пустых строк в диапазон данных через фиксированные интервалы с помощью удобной функции
• Копируйте и вставляйте строки несколько раз на основе определенных чисел с кодом VBA
• Копируйте и вставляйте строки несколько раз на основе определенных чисел с удивительной функцией

Вставьте определенное количество пустых строк в диапазон данных через фиксированные интервалы с кодом VBA

Следующий код VBA может помочь вам вставить определенное количество строк после каждой n-й строки в существующих данных. Пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: вставка определенного количества строк в данные через фиксированные интервалы

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. После вставки этого кода нажмите F5 нажмите клавишу для запуска этого кода, появится всплывающее окно, напоминающее вам о выборе диапазона данных, в который вы хотите вставить пустые строки, см. снимок экрана:

4. Нажмите OK , появится другое окно подсказки, введите количество интервалов между строками, см. снимок экрана:

5. Продолжайте нажимать OK В следующем всплывающем окне подсказки введите количество пустых строк, которые вы хотите вставить, см. снимок экрана:

6. Затем нажмите OK, а пустые строки вставлялись в существующие данные через равные промежутки времени, см. снимки экрана:

Вставьте определенное количество пустых строк в диапазон данных на основе значений ячеек с кодом VBA

Иногда вам может потребоваться вставить пустые строки на основе списка значений ячеек, в этом случае приведенный ниже код VBA может оказать вам услугу, пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: вставьте определенное количество пустых строк на основе списка чисел:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. После вставки этого кода нажмите F5 Чтобы запустить этот код, в появившемся диалоговом окне выберите список чисел, на основе которых вы хотите вставить пустые строки, см. снимок экрана:

4, Затем нажмите OK, и вы получите необходимые результаты, как показано на следующих снимках экрана:

Вставляйте определенное количество пустых строк в диапазон данных через фиксированные интервалы с помощью удобной функции

Если вы не знакомы с приведенным выше кодом VBA, Kutools for Excel также может помочь вам, это Вставить пустые строки и столбцы Функция может быстро и легко вставлять определенное количество строк или столбцов в существующие данные с фиксированными интервалами.

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Выберите диапазон данных, в который вы хотите вставлять пустые строки через определенные промежутки времени.

2. Нажмите Кутулс > Вставить > Вставить пустые строки и столбцы, см. снимок экрана:

3. В Вставить пустую строку и столбцы диалоговое окно, выберите Пустые строки вариант из Тип вставки, а затем укажите количество интервалов и пустых строк, которые вы хотите использовать, как показано на следующем снимке экрана:

4. Затем нажмите OK кнопку, и пустые строки были вставлены в выбранный диапазон с определенным интервалом, как показано на следующем снимке экрана:

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!

Копируйте и вставляйте строки несколько раз на основе определенных чисел с кодом VBA

Предположим, у вас есть диапазон тада, и теперь вы хотите скопировать каждую строку и вставить их несколько раз в следующую строку на основе списка чисел, как показано на скриншотах ниже. Как решить эту задачу на листе Excel?

Чтобы справиться с этой задачей, я представлю вам полезный код, выполните следующие действия:

1. Удерживайте ALT + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: копируйте и вставляйте строки несколько раз в зависимости от конкретных чисел:

Sub CopyRows()
'UpdatebyExtendoffice
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 list of numbers to copy the rows based on: ", "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, С его Повторяющиеся строки / столбцы на основе значения ячейки функция, вы можете быстро и легко вставлять строки или столбцы на основе списка чисел.

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс > Вставить > Повторяющиеся строки / столбцы на основе значения ячейки, см. снимок экрана:

2. В Копировать и вставлять строки и столбцы диалоговое окно, выберите Копировать и вставлять строки вариант в Тип раздел, затем выберите диапазон данных, который вы хотите продублировать, а затем укажите список значений, на основе которых вы хотите копировать строки, см. снимок экрана:

4, Затем нажмите Ok or Применить кнопку, вы получите такой результат, как вам нужно:

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!

Больше относительных статей: