Hogyan lehet többször másolni és beszúrni a sort, vagy duplázni a sort x-szer az Excel-ben?
A mindennapi munkája során megpróbált már másolni egy sort vagy minden sort, majd többször beilleszteni az aktuális adatsor alá egy munkalapba? Például van egy cellatartományom, most szeretnék minden sort másolni, és háromszor beilleszteni a következő sorba, az alábbi képernyőkép szerint. Hogyan tudta kezelni ezt a munkát az Excelben?
 |
 |
 |
- Másoljon és helyezzen be egy adott sort többször VBA kóddal
- Minden sort másoljon és helyezzen be többször VBA kóddal
- Minden sort másoljon és szúrjon be többször egy adott szám alapján, félelmetes funkcióval
Másoljon és helyezzen be egy adott sort többször VBA kóddal
Ha csak egy adott sort x-szer szeretne lemásolni, a következő VBA-kód segíthet, kérjük, tegye a következőket:
1. Adjon meg egy sort, amelyet többször másolni és beszúrni szeretne, majd tartsa lenyomva a ALT + F11 gombokat, majd kinyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Egy adott sor többszörözése:
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. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy adja meg a másolatok számát, lásd a képernyőképet:
4. Ezután kattintson OK gombra, és három új, másolt sor került beillesztésre a kiválasztott sor alá, lásd a képernyőképet:
Minden sort többször másolhat be és helyezhet be egy adott szám alapján
Általában nincs jó módszer a sorok többszörös másolására és beszúrására, kivéve a manuális másolást és beszúrást. De, azzal Kutools az Excel számára's Sorok / oszlopok duplikálása a cellaérték alapján funkcióval könnyedén megoldhatja ezt a problémát. Kattintson a Kutools for Excel letöltéséhez!
Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 60 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!
Minden sort másoljon és helyezzen be többször VBA kóddal
Ha az egyes sorokat többször meg szeretné másolni egy tartományban, alkalmazhatja a következő VBA kódot, kérjük, tegye az alábbiak szerint:
1. Tartsa lenyomva a ALT + F11 gombokat, majd kinyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Minden sor többszörözése:
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 Sub3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy adja meg az egyes rekordok duplikálásának számát, lásd a képernyőképet:
4. Ezután kattintson OK, és minden sort háromszor másoltak be és helyeztek be az aktívak alá, lásd a képernyőképet:
|
|
|
Megjegyzések: A fenti kódban a A azt jelzi, hogy az adattartomány az A oszlopnál kezdődött, ha az adatok az oszlopnál kezdődnek K, kérem váltson A nak nek K mint az ön igénye.
Minden sort másoljon és szúrjon be többször egy adott szám alapján, félelmetes funkcióval
Lehet, hogy nem ismeri a VBA kódot, vagy aggódnia kell a kód összeomlásáért. Itt bemutatok egy hasznos funkciót, Kutools az Excel számára's Sorok / oszlopok duplikálása a cellaérték alapján, ezzel a segédprogrammal gyorsan másolhatja és beillesztheti a sorokat a megadott szám alapján.
Tipp:Ennek alkalmazásához Sorok / oszlopok duplikálása a cellaérték alapján funkció, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.
Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:
1. Írja be azokat az ismétlődő számokat, amelyeket meg kíván másolni a sorokkal, az adatai melletti cellák listájába, lásd a képernyőképet:
2. Kattints Kutools > betétlap > Sorok / oszlopok duplikálása a cellaérték alapján, lásd a képernyőképet:
3. Az Sorok és oszlopok másolása és beszúrása párbeszédpanelen válassza ki Sorok másolása és beszúrása lehetőség a típus szakaszban, majd válassza ki a másolni kívánt adattartományt, majd adja meg az ismétlési időt a sorok másolásához, lásd a képernyőképet:
4. Ezután kattints a gombra Ok or alkalmaz gombra kattintva a következő eredményt kapja:
|
|
 |
Kattintson a Kutools for Excel letöltéséhez és az ingyenes próbaverzióhoz most!
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
