Ugrás a tartalomra

Hogyan illeszthet be meghatározott számú sort rögzített időközönként az Excelbe?

Szerző: Xiaoyang Utolsó módosítás: 2021-01-08

Az Excel munkalapon egy üres sort szúrhat be a meglévő sorok közé a Beszúrás funkció használatával. De ha nagy az adattartománya, és minden harmadik második sor után két üres sort kell beillesztenie, hogyan tudná ezt a munkát gyorsan és kényelmesen befejezni?


Helyezzen be meghatározott számú üres sort az adattartományba, rögzített időközönként, VBA kóddal

A következő VBA-kód segíthet egy adott számú sor beszúrásában a meglévő adatok minden n-edik sora után. Kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Helyezzen be meghatározott számú sort az adatokba, rögzített időközönként

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. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, megjelenik egy felszólító mező, amely emlékezteti Önt arra az adattartomány kiválasztására, amelyre üres sorokat szeretne beilleszteni, lásd a képernyőképet:

4. Kattints OK gombra, megjelenik egy újabb prompt doboz, kérjük, adja meg a sorközök számát, lásd a képernyőképet:

5. Kattintson a gombra OK gombra, a következő felbukkanó prompt mezőbe írja be a beilleszteni kívánt üres sorok számát, lásd a képernyőképet:

6. Ezután kattintson OK, és az üres sorokat rendszeres időközönként illesztették be a meglévő adatokba, lásd a képernyőképeket:


Helyezzen be egy bizonyos számú üres sort az adattartományba a VBA kóddal ellátott cellaértékek alapján

Előfordulhat, hogy a cellák értékeinek listája alapján be kell illesztenie az üres sorokat, ebben az esetben az alábbi VBA-kód kedvezhet nekünk, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Helyezzen be egy bizonyos számú üres sort a számok listája alapján:

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. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen válassza ki a számok listáját, amelyek alapján üres sorokat szeretne beszúrni, lásd a képernyőképet:

4. Ezután kattints a gombra OK, és megkapja a kívánt eredményeket a következő képernyőképek segítségével:


Helyezzen be meghatározott számú üres sort az adattartományba, rögzített időközönként, hasznos funkcióval

Ha nem ismeri a fenti VBA kódot, Kutools az Excel számára is segíthet, annak Üres sorok és oszlopok beszúrása funkció segítségével meghatározott számú sort vagy oszlopot lehet beilleszteni a meglévő adatokba, rögzített időközönként, gyorsan és egyszerűen.

Jegyzet:Ennek alkalmazásához Üres sorok és oszlopok beszúrása , 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. Válassza ki azt az adattartományt, amelybe időközönként üres sorokat szeretne beilleszteni.

2. Kattints Kutools > betétlap > Üres sorok és oszlopok beszúrása, lásd a képernyőképet:

3. Az Helyezze be az üres sort és oszlopokat párbeszédpanelen válassza a lehetőséget Üres sorok opció a Betét tipus, majd adja meg a használni kívánt intervallum és üres sorok számát a következő képernyőképen:

4. Ezután kattintson OK gombra, és az üres sorokat meghatározott időközönként illesztette be a kiválasztott tartományba, az alábbi képernyőkép szerint:

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


Sorok másolása és beszúrása többször, VBA kóddal ellátott számok alapján

Tegyük fel, hogy van akkori tartománya, és most minden sort meg akar másolni, és többször beilleszteni a következő sorba a számok listája alapján, az alábbi képernyőképek alapján. Hogyan oldhatná meg ezt a feladatot az Excel munkalapon?

Ennek a munkának a kezeléséhez bevezetek egy hasznos kódot az Ön számára, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Sorok másolása és beszúrása többször is meghatározott számok alapján:

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. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen válassza ki a másolni kívánt számok listáját, és helyezze be az adatsorokat, lásd a képernyőképet:

4. Ezután kattints a gombra OK gombra, és a sorok számát másolja és illessze be az egyes eredeti sorok alá, lásd a képernyőképeket:


Másoljon és szúrjon be sorokat többször, konkrét számok alapján, csodálatos funkcióval

Ha van Kutools az Excel számára, Annak Sorok / oszlopok duplikálása a cellaérték alapján funkcióval gyorsan és egyszerűen beillesztheti a sorokat vagy oszlopokat a számlista alapján.

Jegyzet:Ennek alkalmazásához Sorok / oszlopok duplikálása a cellaérték alapján, 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. Kattints Kutools > betétlap > Sorok / oszlopok duplikálása a cellaérték alapján, lásd a képernyőképet:

2. 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 szakasz, majd válassza ki a másolni kívánt adattartományt, majd adja meg az értékek listáját, amelyek alapján sorokat szeretne másolni, lásd a képernyőképet:

4. Ezután kattints a gombra Ok or alkalmaz gombra kattintva a következő eredményt kapja:

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!

Relatívabb cikkek:

  • Másolja és illessze be a sort többször, vagy másolja le az X sort
  • 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?
  • Üres sorok beszúrása, ha az érték megváltozik az Excelben
  • Tegyük fel, hogy van egy adattartománya, és most üres sorokat szeretne beilleszteni az adatok közé, amikor az érték megváltozik, hogy a szekvenciális ugyanazokat az értékeket egy oszlopban különíthesse el, a következő képernyőképek szerint. Ebben a cikkben néhány trükkről fogok beszélni, amelyek segítségével megoldhatja ezt a problémát.
  • Sorok másolása több munkalapról a kritériumok alapján egy új munkalapba
  • Tegyük fel, hogy van egy munkafüzete, amely három munkalapot tartalmaz, amelyek formázása megegyezik az alábbi képernyőképen látható ábrával. Most át akarja másolni ezekből a munkalapokból az összes sort, amely C oszlop tartalmazza a „Befejezett” szöveget egy új munkalapba. Hogyan oldhatná meg ezt a problémát gyorsan és egyszerűen anélkül, hogy manuálisan másolná és beillesztené őket?

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

Leírás


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!
Comments (39)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Marvelous vba script!
I had over 5000 rows that i need to add new rows to in between. All other guides told me to make "helper" column it would take me good part of my life to add 1,2 copy paste over and over again just to add new rows.
So, Thanks for this!
Rated 5 out of 5
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

ejemplo

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez

quede asi

10/01/2022 19.258.369-4 Juan Ramirez
11/01/2022 19.258.369-4 Juan Ramirez
12/01/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas pueda ser consecutivo.

ejemplo

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez

quede asi

01/10/2022 19.258.369-4 Juan Ramirez
02/10/2022 19.258.369-4 Juan Ramirez
03/10/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
Name Email Phone Address
0 Name Email Phone Adress
address line 2 Name Phone 0
Name Email Phone Adress
0 Name Email Phone Adress
address line 2 0


How could I edit this to start a new row at every empty value or 0 value without having phone numbers with 0 start a new row?
This comment was minimized by the moderator on the site
Hello, Jarrod

Sorry, I can't get your problem clearly.
Could you explain your problem more detailed? Or you can insert a screenshot or file here.
Thank you!
This comment was minimized by the moderator on the site
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Rated 5 out of 5
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations