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

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

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 Sub

3. 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 és az ingyenes próbaverzió letöltéséhez!


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (32)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Csodálatos makró – Annyi időt spóroltam meg!
A weboldal moderátora ezt a megjegyzést minimalizálta
nagyon jó makró haver!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szeretnék véletlenszerűen ismétlődő sorokat generálni,

pl. véletlenszerűen ismétlődő sorokat generál 20 és 80 között.


mi lesz frissítve a következő kódhoz


Al beszúró sorok ()
'Frissítés által Extendoffice 2016616
Dim I As Long
Dim xCount As Integer
LabelNumber:
xCount = Application.InputBox("Sorok száma", "Kutools for Excel", , , , , , 1)
Ha xCount < 1 Akkor
MsgBox "a megadott sorok száma hibás, kérjük írja be újra", vbInformation, "Kutools for Excel"
Ugrás a Labelszámhoz
Ha véget
I esetén = Tartomány("A" & sorok.SzámNagy).End(xlUp).Sor 1-hez Lépés -1
Sorok(I).Másolás
Sorok(I).Átméretezés(xCount).Beszúrás
Következő
Application.CutCopyMode = Hamis
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Sorokat szeretnék megkettőzni egy paraméter alapján. Például van egy oszlopom, melynek neve megbeszélés időtartama. Ha ez az oszlop több mint 1, akkor az értekezletazonosító sorait szeretném megkettőzni a szám alapján. Ha a megbeszélés időtartama 2 óra, akkor kétszer duplikálja meg a meetingID-t. Ha a találkozó 3 órás, akkor háromszor duplikálj.
félórás lépésekben felfelé kerekíthető az óra.

MeetingID Kezdés időpontja Befejezés ideje Meeting Duration
43117 9:00 11:00 02:00
43580 9:30 11:00 01:30
42699 10:00 11:30 01:30
12345 01:00 2:00 01:00
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanaz a problémám. Találtál megoldást?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok srácok,
Lehet, hogy a következő VBA-kód jót tehet Önnek, kérjük, alkalmazza:
Al beszúró sorok ()
Dim I As Long
Dim xrg mint tartomány
Dim xHour, xMin As Long
On Error Resume Next
Application.ScreenUpdating = Hamis
For I = Tartomány("D" & sorok.SzámNagy).End(xlUp).Sor 1-ig Lépés -1
xÓra = 0
xRg beállítása = Tartomány ("D" & I)
xÓra = Óra(xRg.Érték) + 1
xMin = Perc(xRg.Érték)
Ha xMin < 30, akkor xHour = xHour - 1
Sorok(I).Másolás
Sorok(I).Átméretezés(xÓra).Beszúrás
Következő
Application.ScreenUpdating = Igaz
Application.CutCopyMode = Hamis
End Sub

Kérjük, próbálja ki. Remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
A múltban használtam ezt a makrót, és az utóbbi időben mindig működött. Van rálátása arra, hogy miért csak a felső sort duplikálja még többsoros makrók használata esetén is? Eltávolítottam az összes szűrőt/fagyott ablaktáblát.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Hogyan tudom megváltoztatni a kódot, hogy a következőket tartalmazza

1. duplikáció a napok száma alapján
2. módosítsa az EOM oszlopot a hónap végéről a napi dátumra
A weboldal moderátora ezt a megjegyzést minimalizálta
Igazán köszönöm a támogatást!!!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Tetszik a kód! hogyan állíthatom be a kezdő tartományt úgy, hogy kihagyja az első sort (oszlopfejlécek), és a 2. sorban kezdjem?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Devin,
Az első fejlécsor kihagyásához használja a következő VBA-kódot:

Al beszúró sorok ()
Dim I As Long
Dim xCount As Integer
LabelNumber:
xCount = Application.InputBox("Sorok száma", "Kutools for Excel", , , , , , 1)
Ha xCount < 1 Akkor
MsgBox "a megadott sorok száma hibás, kérjük írja be újra", vbInformation, "Kutools for Excel"
Ugrás a Labelszámhoz
Ha véget
I esetén = Tartomány("A" & sorok.SzámNagy).End(xlUp).Sor 2-hez Lépés -1
Sorok(I).Másolás
Sorok(I).Átméretezés(xCount).Beszúrás
Következő
Application.CutCopyMode = Hamis
End Sub

Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hello, segítségre van szükségem, így néz ki a táblázatom, például amikor hozzáadok 2 sort az 1. táblázatom végéhez, azt szeretném, ha a vba segítene ugyanezt az alábbi táblázathoz (adj hozzá 2 sort a táblázat vége). Tehát az én feladatom az lesz, hogy csak az 1. táblázathoz kell sorokat hozzáadni, a lenti táblázat automatikusan generál sorokat az 1. tábla sorainak száma alapján. Ezeket a kódokat használtam most az 1. tábla sor hozzáadásához. Remélem valaki meg tudja oldani ezt a problémát helyettem, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng As Long

Application.DisplayAlerts = Hamis
On Error Resume Next
Rng = InputBox("Adja meg a szükséges sorok számát.")
Hiba történt GoTo 0
Application.DisplayAlerts = Igaz

Ha Rng = 0 Akkor
MsgBox "Nem adott meg tartományt!"
Exit Sub

Más
Tartomány(ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Válassza
Selection.EntireRow.Insert Shift:=xlDown
Ha véget

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szeretem! Minden alkalommal működik! Ezt nagyon köszönöm :)
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan tudom ezt megtenni oszlopoknál?
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan tudom ezt megtenni oszlopoknál?
A weboldal moderátora ezt a megjegyzést minimalizálta
hogyan hajthatja végre ugyanazt a műveletet a kiválasztott cellákkal VB használatával,


Meg kell ismételnem néhány kijelölt cellát (sorokat és oszlopokat) x száma ugyanazon a lapon és ugyanabban a sorrendben, mint:

line1
line2
line3

line1
line2
line3
A weboldal moderátora ezt a megjegyzést minimalizálta
szia, ez remekül működött, csak két sorra van szükségem, N számú alkalommal másolva. Kérem, módosítsa a kódot úgy, hogy amikor két sort választok ki, akkor N-szer lemásolja azt a két sort? Köszönöm a segítséget
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Sal,
Ha csak két sort kell lejjebb másolnia többször is, akkor csak az 1-es VBA-kódot kell használnia ebben a cikkben, a kód kétszeri alkalmazása megoldja a problémát. Próbáld ki, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Másoljon és szúrjon be minden sort többször VBA-kóddal

VBA kódban hogyan tudom kiválasztani a kezdő sort
A weboldal moderátora ezt a megjegyzést minimalizálta
No funciona with Windows 2019, deseo usar la función en mención pero simplemente no hace absolutamente nada
A weboldal moderátora ezt a megjegyzést minimalizálta
szia mindenkinek.. Előre is köszönöm a segítséget!!

Az egy adott sor többszöri megkettőzésére szolgáló VBA-kód tökéletesen működik mindaddig, amíg szűrőt nem használ. Kíváncsi vagyok, tud-e valaki segíteni a probléma megoldásában. Olyan kódra van szükségem, amely akkor is működik, ha bizonyos értékeket szűrt. Nagy mennyiségű adatot használok, amelyek helyek szerint vannak rendezve. A kód részben működik, beilleszti a kívánt sor számát, de nincs adat vagy formátum, amikor szűrőt alkalmaztam.
A weboldal moderátora ezt a megjegyzést minimalizálta
Üdvözlöm, minden sorhoz különböző méreteket (értékeket) lehet használni? Próbálok vektort használni, de nem megy.
Például :
Sorok(I).Resize(xCount(y) ).Beszúrás

Ahol az xCount(y)-ba mentett értékeket egy táblázatból olvassuk ki.
A weboldal moderátora ezt a megjegyzést minimalizálta
A weboldal moderátora ezt a megjegyzést minimalizálta
A második VBA-kódnál (VBA-kód: minden sor többszöri megkettőzése) a következőt kapom futásidejű hibaként: 1004
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi