Як вставити певну кількість рядків через фіксовані інтервали в Excel?

На аркуші Excel ви можете вставити порожній рядок між існуючими рядками за допомогою функції Вставити. Але якщо у вас великий діапазон даних, і вам потрібно вставити два порожні рядки після кожного третього рядка, як можна швидко і зручно закінчити цю роботу?

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

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

Наступний код VBA може допомогти вам вставити певну кількість рядків після кожного n-го рядка в існуючі дані. Будь ласка, виконайте наступне:

1. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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. Клацання Кутулс > Insert > Вставити порожні рядки та стовпці, див. скріншот:

3, в Вставити порожній рядок і стовпці діалогове вікно, виберіть Пусті ряди варіант з Вставити тип, а потім вкажіть кількість інтервалів і порожніх рядків, які ви хочете використовувати, як показано на наступному скріншоті:

4. Потім натисніть OK , а порожні рядки були вставлені у вибраний діапазон з певним інтервалом, як показано на наступному знімку екрана:

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!

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

Припустимо, у вас є діапазон тада, і тепер ви хочете скопіювати кожен рядок і вставити їх кілька разів у наступний рядок на основі списку чисел, як показано на скріншотах нижче. Як можна вирішити це завдання на аркуші Excel?

Щоб розібратися з цією роботою, я представив вам корисний код, виконайте такі дії:

1. Утримуйте клавішу ALT + F11 клавіші в Excel, і він відкриває Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код 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. Клацання Кутулс > Insert > Повторювані рядки / стовпці на основі значення комірки, див. скріншот:

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

4. Потім натисніть кнопку Ok or Застосовувати , ви отримаєте такий результат, як вам потрібно:

Завантажте та безкоштовну пробну версію Kutools для Excel зараз!

Більше відносних статей:

---

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

• Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
• Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
• Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
• Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
• Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
• Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
• Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
• Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
• Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...