Note: The other languages of the website are Google-translated. Back to English

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

На аркуші 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, а потім швидко та легко застосувати функцію.

після установки 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, а потім швидко та легко застосувати функцію.

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

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

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

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

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

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

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

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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (39)
Оцінено 5 з 5 · рейтинги 2
Цей коментар був мінімізований модератором на сайті
Привіт, я використовую ваш код (нижче). Скажіть, будь ласка, як заповнити ці рядки власним текстом. Я використав ваш код, щоб ввести три рядки, він працював ідеально, але тепер мені потрібно ввести текст Рядок1 = Рядок дати2.= Розташування Рядок3 = Номер телефону Наперед дякую... "Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xInterval As Integer Dim xRows As Integer Dim xRowsCount As Integer Dim xNum1 Як Integer Dim xNum2 Як Integer Dim WorkRng Як ​​діапазон Dim xWs As Worksheet xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng(I Application). , WorkRng.Address, Type:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Введіть інтервал рядка. ", xTitleId, 1, Type:=1) xRows = Application.InputBox("Скільки рядків до вставити через кожен інтервал? ", xTitleId, 1, Тип:=1) xNum1 = WorkRng.Row + xInterval xNum2 = xRows + xInterval Set xWs = WorkRng.Parent Для i = 1 To Int(xRowsCount / xInterval) xWs.Range(xWs .Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Виберіть Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Next End Sub"
Цей коментар був мінімізований модератором на сайті
Дуже дякую!!!!! це дивно
Цей коментар був мінімізований модератором на сайті
Дуже дякую!!
Цей коментар був мінімізований модератором на сайті
Hi


Я використовую інтервальний код vba, він працює.. Але коли я використовую понад 100000 XNUMX рядків, він не працює.. Будь ласка, запропонуйте, що мені слід змінити, якщо такі є.


Sub InsertRowsAtIntervals()
'Оновлення до 20150707
Dim Rng як дальність
Dim xInterval як ціле число
Dim xRows як ціле число
Dim xRowsCount як ціле число
Dim xNum1 як ціле число
Dim xNum2 як ціле число
Dim WorkRng як діапазон
Dim xWs як робочий аркуш
xTitleId = "KutoolsforExcel"
Встановіть WorkRng = Application.Selection
Встановіть WorkRng = Application.InputBox("Діапазон", xTitleId, WorkRng.Address, Тип:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Введіть інтервал рядків. ", xTitleId, 1, Тип:=1)
xRows = Application.InputBox("Скільки рядків вставляти в кожному інтервалі?", xTitleId, 1, Тип:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xРядків + xІнтервал
Встановіть xWs = WorkRng.Parent
Для i = 1 до Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Вибрати
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Далі
End Sub
Цей коментар був мінімізований модератором на сайті
Фантастично - ви врятували мені багато бездумного введення даних, дуже дякую
Цей коментар був мінімізований модератором на сайті
привіт, як я можу отримати код для вставки певної кількості стовпців у дані через фіксовані інтервали
Цей коментар був мінімізований модератором на сайті
Привіт, PK!
Щоб вставити порожні стовпці в наявні дані через певні проміжки часу, наведений нижче код VBA може допомогти вам! Будь ласка, спробуйте.

Sub InsertColumnsAtIntervals()
Dim Rng як дальність
Dim xInterval як ціле число
Dim xCs як ціле число
Dim xCCount як ціле число
Dim xNum1 як ціле число
Dim xNum2 як ціле число
Dim WorkRng як діапазон
Dim xWs як робочий аркуш
xTitleId = "KutoolsforExcel"
Встановіть WorkRng = Application.Selection
Встановіть WorkRng = Application.InputBox("Діапазон", xTitleId, WorkRng.Address, Тип:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Введіть інтервал стовпця. ", xTitleId, 1, Тип:=1)
xCs = Application.InputBox("Скільки стовпців вставити на кожному інтервалі?", xTitleId, 1, Тип:=1)
xNum1 = WorkRng. Column + xInterval
xNum2 = xCs + xІнтервал
Встановіть xWs = WorkRng.Parent
Для I = 1 To Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Вибрати
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Далі
End Sub
Цей коментар був мінімізований модератором на сайті
Як додати рядки в дані Excel відповідно до вказаного числа в останній клітинці, скажімо в даних Excel, якщо в останній клітинці відображається число як 4, який спосіб автоматично додавати 4 рядки. в іншому рядку номер 72 і т.д
Цей коментар був мінімізований модератором на сайті
Привіт, SPGupta!
Щоб вставити порожні рядки на основі певного списку чисел, застосуйте наведений нижче код VBA.
Будь ласка, спробуйте, сподіваюся, це допоможе вам!

Підставка ()
'ОновленняExtendoffice
Dim xRg As Range
Dim xAddress як рядок
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Встановіть xRg = Application.InputBox("Виберіть конкретний стовпець числа для використання (один стовпець):", "KuTools For Excel", xAddress, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub
Application.ScreenUpdating = Невірний
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg. Column
xCount = xRg.Count
Встановити xRg = xRg(1)
Для I = xLastRow To xFstRow Крок -1
xNum = клітинки (I, xCol)
Якщо IsNumeric(xNum) і xNum > 0, то
Рядки (I + 1). Змінити розмір (xNum). Вставити
xCount = xCount + xNum
End If
Далі
xRg.Resize(xCount, 1).Вибрати
Application.ScreenUpdating = True
End Sub
Цей коментар був мінімізований модератором на сайті
Привіт, не могли б ви мені допомогти, будь ласка? Як я можу змінити цей код, щоб додати на один рядок менше, ніж число в клітинці? Наприклад, якщо число в комірці дорівнює 4, програма додає 3 рядки. Якщо число в комірці дорівнює 1, рядки не додаються
Цей коментар був мінімізований модератором на сайті
Привіт, Ніна,
Щоб вирішити своє завдання, скористайтеся наведеним нижче кодом:

Підставка ()
'ОновленняExtendoffice
Dim xRg As Range
Dim xAddress як рядок
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Встановіть xRg = Application.InputBox("Виберіть конкретний стовпець числа для використання (один стовпець):", "KuTools For Excel", xAddress, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub
Application.ScreenUpdating = Невірний
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg. Column
xCount = xRg.Count
Встановити xRg = xRg(1)
Для I = xLastRow To xFstRow Крок -1
xNum = клітинки (I, xCol)
xNum = xNum - 1
Якщо IsNumeric(xNum) і xNum > 0, то
Рядки (I + 1). Змінити розмір (xNum). Вставити
xCount = xCount + xNum
End If
Далі
xRg.Resize(xCount, 1).Вибрати
Application.ScreenUpdating = True
End Sub


Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Працює ідеально, дуже дякую!
Цей коментар був мінімізований модератором на сайті
Це чудово. Мені просто цікаво... а моя англійська не ідеальна, тому я сподіваюся, що ви мене зрозумієте :) .....
Чи можна заповнити додані порожні рядки значеннями з рядка, де було це параметричне число?
Цей коментар був мінімізований модератором на сайті
Привіт, Володимире, ви маєте на увазі вставити порожні рядки на основі списку чисел на аркуші? Якщо так, застосуйте наведений нижче код:
Sub Insert()
'ОновленняExtendoffice
Dim xRg As Range
Dim xAddress як рядок
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Встановіть xRg = Application.InputBox("Виберіть список чисел, які ви хочете вставити рядки на основі:", "KuTools For Excel", xAddress, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub
Application.ScreenUpdating = Невірний
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg. Column
xCount = xRg.Count
Встановити xRg = xRg(1)
Для I = xLastRow To xFstRow Крок -1
xNum = клітинки (I, xCol)
Якщо IsNumeric(xNum) і xNum > 0, то
Рядки (I + 1). Змінити розмір (xNum). Вставити
xCount = xCount + xNum
End If
Далі
xRg.Resize(xCount, 1).Вибрати
Application.ScreenUpdating = True
Кінець Sub. Будь ласка, спробуйте, якщо у вас є інші запитання, прокоментуйте тут.
Цей коментар був мінімізований модератором на сайті
Цей код ідеально підходить для вставки рядків....Sub Insert()
'ОновленняExtendoffice
Dim xRg As Range
Dim xAddress як рядок
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Встановіть xRg = Application.InputBox("Виберіть конкретний стовпець числа для використання (один стовпець):", "KuTools For Excel", xAddress, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub
Application.ScreenUpdating = Невірний
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg. Column
xCount = xRg.Count
Встановити xRg = xRg(1)
Для I = xLastRow To xFstRow Крок -1
xNum = клітинки (I, xCol)
xNum = xNum - 1
Якщо IsNumeric(xNum) і xNum > 0, то
Рядки (I + 1). Змінити розмір (xNum). Вставити
xCount = xCount + xNum
End If
Далі
xRg.Resize(xCount, 1).Вибрати
Application.ScreenUpdating = True
End Sub

Але чи можливо.... скопіювати дані в ці порожні клітинки з рядка, де було це параметричне число? Чи можу я опублікувати тут фото? Можливо, буде легше, якщо я покажу тобі, що мені потрібно :)
Цей коментар був мінімізований модератором на сайті
Привіт, Володимире, можливо, наведений нижче код VBA може допомогти вам, будь ласка, спробуйте. Підрядник копіювання()
'ОновленняExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum як ціле число
Dim xRN як ціле число
On Error Resume Next
Виберіть діапазон:
xTxt = ActiveWindow.RangeSelection.Address
Встановіть xRg = Application.InputBox("Виберіть список чисел", "Kutools для Excel", xTxt, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub

Якщо xRg.Columns.Count > 1 Тоді
MsgBox "Виберіть один стовпець!"
Перейдіть до SelectRange
End If
Application.ScreenUpdating = Невірний
Для xFNum = xRg.Count To 1 Step -1
Встановити xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
З рядками(xCRg.Row)
.Копія
.Змінити розмір(xRN).Вставити
Кінець з
Далі
Application.ScreenUpdating = True
End Sub

Цей коментар був мінімізований модератором на сайті
Ми так близько :) Все, що мені зараз потрібно, це на один рядок менше, ніж в останньому коді VBA, ніж значення параметричного числа. Наприклад: якщо число 8, нам потрібно вставити та скопіювати 7 рядків. Як ви зробили для Ніни тільки з цією КОПІЄЮ
Отже, якщо число дорівнює 8, у нас повинно бути всього 8 вставлених і скопійованих рядків, а з попереднім кодом VBA ми маємо 9.
Tnx
Цей коментар був мінімізований модератором на сайті
Привіт. У цьому випадку вам може допомогти наступний код, будь ласка, спробуйте: Додаткові дані копіювання()
'Оновлення Extendoffice
Dim xRow As Long
Dim VInSertNum як варіант
xРяд = 1
Application.ScreenUpdating = Невірний
Робити в той час як (Cells(xRow, "A") <> "")
VInSertNum = клітинки (xRow, "B")
Якщо ((VInSertNum > 1) і IsNumeric(VInSertNum)), то
Діапазон(Cells(xRow, "A"), Cells(xRow, "B")).Копіювати
Діапазон(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "B")).Вибрати
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xРядок = xРядок + 1
Петля
Application.ScreenUpdating = Невірний
Кінцева підпримітка: у наведеному вище коді буква A вказує початковий стовпець вашого діапазону даних і літеру B - буква стовпця, на основі якої потрібно дублювати рядки. Будь ласка, змініть їх на свої потреби.
Цей коментар був мінімізований модератором на сайті
Чи є у вас модуль, який віднімає скопійоване число на одиницю?
Цей коментар був мінімізований модератором на сайті
Ні. У мене є цей, але він мені потрібен, щоб відняти 1?
Підрядник копіювання()
'ОновленняExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum як ціле число
Dim xRN як ціле число
On Error Resume Next
Виберіть діапазон:
xTxt = ActiveWindow.RangeSelection.Address
Встановіть xRg = Application.InputBox("Виберіть список чисел", "Kutools для Excel", xTxt, , , , , 8)
Якщо xRg — нічого, вийдіть із Sub

Якщо xRg.Columns.Count > 1 Тоді
MsgBox "Виберіть один стовпець!"
Перейдіть до SelectRange
End If
Application.ScreenUpdating = Невірний
Для xFNum = xRg.Count To 1 Step -1
Встановити xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
З рядками(xCRg.Row)
.Копія
.Змінити розмір(xRN).Вставити
Кінець з
Далі
Application.ScreenUpdating = True
End Sub
Цей коментар був мінімізований модератором на сайті
Я намагаюся створити та роздрукувати етикетки в Word з електронної таблиці з кількома кількостями?
Цей коментар був мінімізований модератором на сайті
У вас була можливість подивитись на це?
Цей коментар був мінімізований модератором на сайті
Золото благослови вас
Цей коментар був мінімізований модератором на сайті
Шукаєте код для створення списку Excel, який дублює число в клітинці та віднімає 1 для оригіналу?
Цей коментар був мінімізований модератором на сайті
Дякую автору! За це ви заслуговуєте найкращої похвали! Але, будь ласка, не могли б ви допомогти мені з кодом, щоб додати константу в усі порожні рядки, які я створив за допомогою вашого коду вище? Щоб зробити себе більш зрозумілим, мені потрібно вставити постійне значення у всі порожні рядки (це вже вирішено за допомогою вашого коду вище), потім мені потрібно вставити постійне значення в усі порожні рядки (це моя проблема). Дякую, тому що я чекаю на вашу люб’язну відповідь.
Цей коментар був мінімізований модератором на сайті
Привіт. Ви маєте на увазі заповнити порожні рядки певним значенням? Якщо так, можливо, вам допоможе наступна стаття:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Будь ласка, спробуйте.
Цей коментар був мінімізований модератором на сайті
Чи можу я отримати код VBA для видалення рядків на основі повторюваних значень у вибраному стовпці, зберігаючи всі унікальні значення?
Цей коментар був мінімізований модератором на сайті
Привіт, Рой! Якщо ви хочете видалити рядки на основі повторюваних значень, зазвичай ви можете використовувати Видалити дублікати функція в Excel для видалення рядків. Звичайно, якщо вам потрібен код VBA, скористайтеся наведеним нижче кодом: (Спочатку ви повинні вибрати діапазон даних, який потрібно видалити, а потім запустити цей код, рядки на основі Повторювані значення в першому стовпці вашого вибору буде видалено відразу. ) Sub Delete_duplicate_rows()
Dim Rng як дальність
Установити Rng = Вибір
Rng.RemoveDuplicates Columns:=Масив(1), Заголовок:=xlYes
End Sub. Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Це так круто!! Дуже дякую
Цей коментар був мінімізований модератором на сайті
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
Цей коментар був мінімізований модератором на сайті
Здравствуйте,
Будь ласка. Радий, що це допомагає. Будь-які запитання, будь ласка, зв’яжіться з нами. Гарного дня.
З повагою,
Менді
Цей коментар був мінімізований модератором на сайті
Чи можете ви сказати мені, як вставити стовпець таким чином, який код
Цей коментар був мінімізований модератором на сайті
Привіт друже,
Ви можете використовувати цей код VBA:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount 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)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


З повагою,
Менді
Цей коментар був мінімізований модератором на сайті
Вот выручили так выручили!
Сидел, ломал голову як додати рядки за заданим кількістю.
Ваш макрос мені дуже допоміг.
Оцінено 5 з 5
Цей коментар був мінімізований модератором на сайті
Ім'я Email Адреса телефону
0 Ім'я Електронна пошта Телефон Адреса
адресний рядок 2 Ім'я Телефон 0
Ім'я Email Телефон Адреса
0 Ім'я Електронна пошта Телефон Адреса
адресний рядок 2 0


Як я можу відредагувати це, щоб починати новий рядок із кожним порожнім значенням або значенням 0, не маючи телефонних номерів із 0, які починають новий рядок?
Цей коментар був мінімізований модератором на сайті
Привіт, Джерод

Вибачте, я не можу чітко зрозуміти вашу проблему.
Чи могли б ви детальніше пояснити свою проблему? Або ви можете вставити сюди знімок екрана або файл.
Дякую!
Цей коментар був мінімізований модератором на сайті
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas pueda ser consecutivo.

приклад

en vez de que quede asi

01 10-2022 Хуан Рамірес
01 10-2022 Хуан Рамірес
01 10-2022 Хуан Рамірес

quede asi

01 10-2022 Хуан Рамірес
02 10-2022 Хуан Рамірес
03 10-2022 Хуан Рамірес

спасибі
Цей коментар був мінімізований модератором на сайті
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

приклад

en vez de que quede asi

10 01-2022 Хуан Рамірес
10 01-2022 Хуан Рамірес
10 01-2022 Хуан Рамірес

quede asi

10 01-2022 Хуан Рамірес
11 01-2022 Хуан Рамірес
12 01-2022 Хуан Рамірес

спасибі
Цей коментар був мінімізований модератором на сайті
Чудовий сценарій vba!
У мене було понад 5000 рядків, між якими мені потрібно додати нові рядки. Усі інші посібники казали мені створити стовпець «допоміжний», мені знадобилася б значна частина мого життя, щоб додавати 1,2 copy paste знову і знову, щоб додати нові рядки.
Отже, дякую за це!
Оцінено 5 з 5
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL