Ugrás a tartalomra

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

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

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

kte lap 201905


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
This comment was minimized by the moderator on the site
can you tell me how to insert column like this way , what is the code
This comment was minimized by the moderator on the site
Hello friend,
You can use this VBA code:

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


Sincerely,
Mandy
This comment was minimized by the moderator on the site
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
This is so Cool!! Thanks a lot
This comment was minimized by the moderator on the site
Can I get the VBA code for deletion of rows based on duplicate values in a selected column keeping all unique values?
This comment was minimized by the moderator on the site
Hello, Roy,If you want to remove rows based on duplicate values, normally, you can use the Remove Duplicates feature in Excel to remove the rows.Of course, if you need a VBA code, please use the below code: (First, you should select the data range that you want to remove, and then run this code, the rows based on the duplicate values in the first column of your selection will be removed at once. )<div data-tag="code">Sub Delete_duplicate_rows()
Dim Rng As Range
Set Rng = Selection
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End SubPlease try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you author! You deserve the best commendation for these! But please could you help me out with the code to put a constant value into all blank rows I created with your code above? To make myself more clearer, I need to insert a constant value into all blank rows (this solved already with your code above) then I need to insert a constant value into all of the blank rows (this is my problem). Thank you as I expect your kind response.
This comment was minimized by the moderator on the site
Hello, Do you mean to fill blank rows with specific value? If so, mabe the following article cna help you:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Please try it.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations