Как да копирате и вмъкнете ред няколко пъти или да дублирате реда x пъти в Excel?
В ежедневната си работа опитвали ли сте някога да копирате ред или всеки ред и след това да вмъкнете няколко пъти под текущия ред с данни в работен лист? Например, сега имам диапазон от клетки, искам да копирам всеки ред и да ги поставя 3 пъти в следващия ред, както е показано на следната екранна снимка. Как бихте могли да се справите с тази работа в Excel?
- Копирайте и вмъкнете определен ред няколко пъти с VBA код
- Копирайте и вмъкнете всеки ред няколко пъти с VBA код
- Копирайте и вмъкнете всеки ред няколко пъти въз основа на конкретно число със страхотна функция
Копирайте и вмъкнете определен ред няколко пъти с VBA код
Ако искате да дублирате само един конкретен ред x пъти, следният VBA код може да ви помогне, моля, направете следното:
1. Посочете ред, който искате да копирате и вмъкнете няколко пъти, след което задръжте ALT + F11 ключове, след това отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Дублирайте един конкретен ред няколко пъти:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. След като поставите кода, моля, натиснете F5 ключ, за да изпълните този код, и се появява поле за подкана, за да ви напомни да въведете броя пъти, които искате да дублирате, вижте екранната снимка:
4, След това кликнете OK и три нови копирани реда са вмъкнати под избрания ред, вижте екранната снимка:
Копирайте и вмъквайте всеки ред няколко пъти въз основа на конкретно число лесно
Обикновено няма добър метод за копиране и вмъкване на редове многократно, освен ръчно копиране и вмъкване. Но със Kutools за Excel's Дублиране на редове / колони въз основа на стойността на клетката функция, можете да разрешите този проблем с лекота. Щракнете, за да изтеглите Kutools за Excel!
Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 60 дни. Изтеглете и изпробвайте безплатно сега!
Копирайте и вмъкнете всеки ред няколко пъти с VBA код
За да дублирате всеки ред няколко пъти в диапазон, можете да приложите следния VBA код, моля, направете следното:
1. Задръжте натиснат ALT + F11 ключове, след това отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Дублирайте всеки ред няколко пъти:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub
3. И след това натиснете F5 ключ, за да изпълните този код, и се появява поле за подкана, за да ви напомни да въведете броя пъти, които искате да дублирате за всеки запис, вижте екранната снимка:
4, След това кликнете OKи всеки ред е копиран и вмъкнат 3 пъти под активните, вижте екранната снимка:
Забележка: В горния код, A показва, че диапазонът от данни започва от колона A, ако вашите данни започват от колона K, моля, променете A да се K според вашите нужди.
Копирайте и вмъкнете всеки ред няколко пъти въз основа на конкретно число със страхотна функция
Може би не сте запознати с кода на VBA или се притеснявате, че кодът ще срине вашите данни. Тук ще представя една полезна функция, Kutools за Excel's Дублиране на редове / колони въз основа на стойността на клетката, с тази помощна програма можете бързо да копирате и вмъквате редовете въз основа на посочения от вас номер.
Съвет:За да приложите това Дублиране на редове / колони въз основа на стойността на клетката функция, първо трябва да изтеглите Kutools за Excelи след това приложете функцията бързо и лесно.
След инсталиране Kutools за Excel, моля, направете следното:
1. Въведете повтарящите се числа, които искате да дублирате редове в списък с клетки до вашите данни, вижте екранната снимка:
2. Щракнете Kutools > Поставете > Дублиране на редове / колони въз основа на стойността на клетката, вижте екранна снимка:
3. В Копирайте и вмъкнете редове и колони изберете диалоговия прозорец Копирайте и вмъкнете редове опция в Тип раздел, след това изберете диапазона от данни, който искате да дублирате, и след това задайте времето за повторение за дублиране на редовете, вижте екранната снимка:
4, След това кликнете върху Ok or Добавете Обява бутон, ще получите следния резултат, както ви е необходим:
Щракнете, за да изтеглите Kutools за Excel и безплатна пробна версия сега!
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!