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

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

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

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

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

1. Удерживайте клавиши ALT + F11 в Excel, и откроется окно Microsoft Visual Basic for Applications.

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. Нажмите кнопку ОК, появится другое всплывающее окно, где нужно ввести количество интервалов строк, см. скриншот:

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

6. Затем нажмите ОК, и пустые строки будут вставлены в существующие данные через регулярные интервалы, см. скриншоты:

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

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

1. Удерживайте клавиши ALT + F11 в Excel, и откроется окно Microsoft Visual Basic for Applications.

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. Затем нажмите ОК, и вы получите нужные результаты, как показано на следующих скриншотах:

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

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

После установки Kutools для Excel действуйте следующим образом:

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

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

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

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

Скачайте и попробуйте Kutools для Excel прямо сейчас бесплатно!

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

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

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

1. Удерживайте клавиши ALT + F11 в Excel, и откроется окно Microsoft Visual Basic for Applications.

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. Затем нажмите кнопку ОК, и определенное количество строк будет скопировано и вставлено под каждой исходной строкой, см. скриншоты:

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

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

После установки Kutools для Excel действуйте следующим образом:

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

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

4. Затем нажмите кнопку ОК или Применить, и вы получите следующий результат, который вам нужен:

Скачайте и попробуйте Kutools для Excel прямо сейчас бесплатно!

Больше связанных статей: