Přejít k hlavnímu obsahu

Jak vložit konkrétní počet řádků v pevných intervalech v aplikaci Excel?

V listu aplikace Excel můžete vložit prázdný řádek mezi existující řádky pomocí funkce Vložit. Ale pokud máte velký rozsah dat a potřebujete vložit dva prázdné řádky po každém třetím nebo druhém řádku, jak byste mohli tuto práci rychle a pohodlně dokončit?


Vložte konkrétní počet prázdných řádků do rozsahu dat v pevných intervalech pomocí kódu VBA

Následující kód VBA vám může pomoci vložit konkrétní počet řádků za každý n-tý řádek v rámci stávajících dat. Postupujte prosím následovně:

1. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Vložte konkrétní počet řádků do dat ve stanovených intervalech

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. Po vložení tohoto kódu stiskněte F5 Klíč ke spuštění tohoto kódu se zobrazí okno s výzvou, které vám připomene výběr rozsahu dat, do kterého chcete vložit prázdné řádky, viz screenshot:

4, klikněte OK Tlačítko, vyskočí další výzva, zadejte počet intervalů řádků, viz screenshot:

5. Pokračujte kliknutím OK Tlačítko, v následujícím vyskakovacím okně s výzvou zadejte počet prázdných řádků, které chcete vložit, viz screenshot:

6. Pak klikněte na tlačítko OK, a prázdné řádky byly vloženy do stávajících dat v pravidelných intervalech, viz screenshoty:


Vložte konkrétní počet prázdných řádků do rozsahu dat na základě hodnot buněk s kódem VBA

Někdy možná budete muset vložit prázdné řádky na základě seznamu hodnot buněk, v tomto případě vám níže uvedený kód VBA může udělat laskavost, udělejte to takto:

1. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Vložte konkrétní počet prázdných řádků na základě seznamu čísel:

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. Po vložení tohoto kódu stiskněte F5 klíč ke spuštění tohoto kódu, ve vyskakovacím dialogovém okně vyberte seznam čísel, na které chcete vložit prázdné řádky, viz screenshot:

4. Potom klepněte na tlačítko OKa výsledky, které potřebujete, získáte na následujících obrázcích obrazovky:


Pomocí praktické funkce můžete do rozsahu dat v určitých intervalech vložit konkrétní počet prázdných řádků

Pokud nejste obeznámeni s výše uvedeným kódem VBA, Kutools pro Excel také vám může pomoci Vložte prázdné řádky a sloupce funkce může vložit konkrétní počet řádků nebo sloupců do stávajících dat ve stanovených intervalech rychle a snadno.

Poznámka:Použít toto Vložte prázdné řádky a sloupce Nejprve byste si měli stáhnout soubor Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, postupujte následovně:

1. Vyberte rozsah dat, do kterého chcete vložit intervaly prázdné řádky.

2, klikněte Kutools > Vložit > Vložte prázdné řádky a sloupce, viz screenshot:

3. V Vložte prázdné řádky a sloupce dialogové okno vyberte Prázdné řádky možnost z Vložte typ, a poté zadejte počet intervalů a prázdných řádků, které chcete použít, jako na následujícím obrázku obrazovky:

4. Pak klikněte na tlačítko OK Tlačítko a prázdné řádky byly vloženy do vybraného rozsahu v určitém intervalu, jak ukazuje následující snímek obrazovky:

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Zkopírujte a vložte řádky několikrát na základě konkrétních čísel pomocí kódu VBA

Předpokládejme, že máte řadu tada, a nyní chcete zkopírovat každý řádek a vložit je několikrát do dalšího řádku na základě seznamu čísel, jak je uvedeno níže. Jak by bylo možné tento úkol vyřešit v listu aplikace Excel?

K řešení této práce vám představím užitečný kód, proveďte prosím následující kroky:

1. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Zkopírujte a vložte řádky několikrát na základě konkrétních čísel:

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. Po vložení tohoto kódu stiskněte F5 klíč ke spuštění tohoto kódu, ve vyskakovacím dialogovém okně vyberte seznam čísel, která chcete zkopírovat, a vložte datové řádky na základě, viz screenshot:

4. Potom klepněte na tlačítko OK tlačítko a konkrétní počet řádků byl zkopírován a vložen pod každý původní řádek, viz screenshoty:


Zkopírujte a vložte řádky několikrát na základě konkrétních čísel s úžasnou funkcí

Pokud máte Kutools pro Excel, S jeho Duplikujte řádky / sloupce na základě hodnoty buňky Pomocí této funkce můžete rychle a snadno vložit řádky nebo sloupce na základě seznamu čísel.

Poznámka:Použít toto Duplikujte řádky / sloupce na základě hodnoty buňkyNejprve byste si měli stáhnout soubor Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, postupujte následovně:

1, klikněte Kutools > Vložit > Duplikujte řádky / sloupce na základě hodnoty buňky, viz screenshot:

2. V Zkopírujte a vložte řádky a sloupce dialogové okno vyberte Zkopírujte a vložte řádky možnost v Styl Oddíl, poté vyberte rozsah dat, který chcete duplikovat, a poté určete seznam hodnot, na které chcete kopírovat řádky, viz screenshot:

4. Potom klepněte na tlačítko Ok or Podat žádost tlačítko, získáte podle potřeby následující výsledek:

Stáhněte si zdarma zkušební verzi Kutools pro Excel!

Více relativních článků:

  • Zkopírujte a vložte řádek vícekrát nebo duplikujte řádek X krát
  • Zkoušeli jste při své každodenní práci zkopírovat řádek nebo každý řádek a poté několikrát vložit pod aktuální datový řádek do listu? Například mám řadu buněk, teď chci zkopírovat každý řádek a vložit je třikrát do dalšího řádku, jak ukazuje následující snímek obrazovky. Jak jste mohli tuto práci zvládnout v aplikaci Excel?
  • Při změně hodnoty v aplikaci Excel vložte prázdné řádky
  • Předpokládejme, že máte rozsah dat a nyní chcete mezi data při změně hodnoty vložit prázdné řádky, abyste mohli oddělit postupné stejné hodnoty v jednom sloupci, jak ukazují následující snímky obrazovky. V tomto článku budu mluvit o některých tricích, jak vyřešit tento problém.
  • Zkopírujte řádky z více pracovních listů na základě kritérií do nového listu
  • Předpokládejme, že máte sešit se třemi listy, které mají stejné formátování jako níže uvedený snímek obrazovky. Nyní chcete zkopírovat všechny řádky z těchto listů, jejichž sloupec C obsahuje text „Dokončeno“, do nového listu. Jak byste mohli tento problém vyřešit rychle a snadno, aniž byste je po jednom ručně kopírovali a vkládali?

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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