Перейти до основного матеріалу

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

Автор: Сяоян Остання зміна: 2024-10-31

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


Вставте певну кількість порожніх рядків у діапазон даних через фіксовані інтервали з кодом 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 пропонує понад 300 розширених функцій для оптимізації складних завдань, підвищення креативності та ефективності. Розширено можливостями ШІ, Kutools автоматизує завдання з точністю, полегшуючи керування даними. Детальна інформація про Kutools для Excel...         Безкоштовне випробування...

після установки Kutools для Excel, будь ласка, виконайте наступне:

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

2. Клацання Кутулс > Insert > Вставити порожні рядки та стовпці, див. скріншот:

клацніть функцію «Вставити порожні рядки та стовпці» у Kutools

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 пропонує понад 300 розширених функцій для оптимізації складних завдань, підвищення креативності та ефективності. Розширено можливостями ШІ, Kutools автоматизує завдання з точністю, полегшуючи керування даними. Детальна інформація про Kutools для Excel...         Безкоштовне випробування...

після установки Kutools для Excel, будь ласка, виконайте наступне:

1. Клацання Кутулс > Insert > Повторювані рядки / стовпці на основі значення комірки, див. скріншот:

клацніть Дублювати рядки/стовпці на основі функції значень клітинок у Kutools

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

встановити параметри в діалоговому вікні

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

вихідні дані стрілка вправо конкретну кількість рядків копіюють і вставляють під кожним вихідним рядком

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

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

  • Скопіюйте та вставте рядок кілька разів або продублюйте рядок X разів
  • Чи намагалися ви у своїй щоденній роботі копіювати рядок або кожен рядок, а потім вставляти кілька разів нижче поточного рядка даних на аркуші? Наприклад, у мене є ряд комірок, тепер я хочу скопіювати кожен рядок і вставити їх 3 рази в наступний рядок, як показано на наступному знімку екрана. Як ви могли впоратися з цією роботою в Excel?
  • Вставляйте порожні рядки при зміні значення в Excel
  • Припустимо, у вас є діапазон даних, і тепер ви хочете вставити порожні рядки між даними, коли значення змінюється, щоб ви могли відокремити послідовні однакові значення в одному стовпці, як показано на наступних скріншотах. У цій статті я розповім про деякі трюки для вирішення цієї проблеми.
  • Скопіюйте рядки з декількох аркушів на основі критеріїв у новий аркуш
  • Припустимо, у вас є робоча книга з трьома робочими аркушами, які мають те саме форматування, що показано нижче. Тепер ви хочете скопіювати всі рядки з цих аркушів, стовпець C яких містить текст «Завершено», на новий аркуш. Як ви могли швидко та легко вирішити цю проблему, не копіюючи та не вставляючи їх по черзі вручну?

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

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Інструменти (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Інструменти (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Інструменти (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Інструменти (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

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


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

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