Як вставити певну кількість рядків через фіксовані інтервали в 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 зараз!
Більше відносних статей:
- Скопіюйте та вставте рядок кілька разів або продублюйте рядок X разів
- Чи намагалися ви у своїй щоденній роботі копіювати рядок або кожен рядок, а потім вставляти кілька разів нижче поточного рядка даних на аркуші? Наприклад, у мене є ряд комірок, тепер я хочу скопіювати кожен рядок і вставити їх 3 рази в наступний рядок, як показано на наступному знімку екрана. Як ви могли впоратися з цією роботою в Excel?
- Вставляйте порожні рядки при зміні значення в Excel
- Припустимо, у вас є діапазон даних, і тепер ви хочете вставити порожні рядки між даними, коли значення змінюється, щоб ви могли відокремити послідовні однакові значення в одному стовпці, як показано на наступних скріншотах. У цій статті я розповім про деякі трюки для вирішення цієї проблеми.
- Вставте порожній рядок після конкретного тексту в Excel
- Якщо ви хочете вставити порожні рядки після певного тексту, як показано на наведеному нижче знімку екрана, як із цим швидко і легко боротися, не вставляючи їх один за одним вручну?
- Скопіюйте рядки з декількох аркушів на основі критеріїв у новий аркуш
- Припустимо, у вас є робоча книга з трьома робочими аркушами, які мають те саме форматування, що показано нижче. Тепер ви хочете скопіювати всі рядки з цих аркушів, стовпець C яких містить текст «Завершено», на новий аркуш. Як ви могли швидко та легко вирішити цю проблему, не копіюючи та не вставляючи їх по черзі вручну?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
