Как да вмъкна определен брой редове на фиксирани интервали в Excel?

В работен лист на Excel можете да вмъкнете празен ред между съществуващите редове, като използвате функцията Insert. Но ако имате голям диапазон от данни и трябва да вмъкнете два празни реда след всеки трети или 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 за Excel също може да ви помогне, това е Вмъкване на празни редове и колони функцията може да вмъква конкретен брой редове или колони в съществуващи данни на фиксирани интервали бързо и лесно.

След инсталиране Kutools за Excel, моля, направете следното:

1. Изберете диапазона от данни, в който искате да вмъквате празни редове на интервали.

2. Щракнете Kutools > Поставете > Вмъкване на празни редове и колони, вижте екранна снимка:

3. В Вмъкване на празен ред и колони диалогов прозорец, изберете Празни редове опция от Въведете типаи след това задайте броя на интервалите и празните редове, които искате да използвате, както е показано на следната екранна снимка:

4, След това кликнете OK и празните редове са вмъкнати в избрания диапазон на определен интервал, както е показано на следната екранна снимка:

Изтеглете и изпробвайте безплатно Kutools за Excel сега!

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

Да предположим, че имате диапазон от tada и сега искате да копирате всеки ред и да ги поставите няколко пъти в следващия ред въз основа на списък с числа, както са показани екранните снимки по-долу. Как може да се реши тази задача в работен лист на 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 за Excel, Със своята Дублиране на редове / колони въз основа на стойността на клетката можете бързо и лесно да вмъквате редовете или колоните въз основа на списъка с числа.

След инсталиране Kutools за Excel, моля, направете следното:

1. Щракнете Kutools > Поставете > Дублиране на редове / колони въз основа на стойността на клетката, вижте екранна снимка:

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

4, След това кликнете върху Ok or Кандидатствай бутон, ще получите следния резултат, както ви е необходим:

Изтеглете и изпробвайте безплатно Kutools за Excel сега!

Още относителни статии: