Přejít k hlavnímu obsahu

Jak rychle vložit mezeru mezi jednotlivé řádky v aplikaci Excel?

V aplikaci Excel , můžete pomocí nabídky s pravým kliknutím vybrat řádek nad aktivním řádkem, ale víte, jak vložit prázdné řádky do každého řádku, jak je ukázáno níže? Zde představuji několik triků, jak rychle vyřešit tuto práci.
doc vložte mezeru do každého řádku 1

Vložte prázdné řádky mezi každý řádek pomocí funkce řazení

Mezi každý řádek vložte prázdné řádky pomocí kódu VBA

Vložte prázdné řádky / sloupce mezi každý řádek / sloupec pomocí Kutools pro Exceldobrý nápad3


Vložte prázdné řádky mezi každý řádek pomocí funkce řazení

Chcete-li mezi každý řádek vložit prázdné řádky, můžete nejprve dvakrát vyplnit řadu čísel a potom čísla seřadit.

1. Do sousedního čísla vyplňte řadu čísel tak, aby odpovídala číslu řádku.
doc vložte mezeru do každého řádku 2

2. Zkopírujte čísla sérií a vložte je do buňky za posledním číslem.
doc vložte mezeru do každého řádku 3

2. Vyberte všechna čísla sérií, klepněte na Data > Řadit od nejmenšího k největšímu.
doc vložte mezeru do každého řádku 4

3. V praskání Varování řazení dialog, ponechat Rozbalte možnost výběru zaškrtnuto, klikněte Typ.
doc vložte mezeru do každého řádku 5

Nyní byly mezery vloženy mezi každý řádek. Sloupec s číslem řady můžete později odebrat.
doc vložte mezeru do každého řádku 6


Mezi každý řádek vložte prázdné řádky pomocí kódu VBA

Pokud znáte kód makra, zde je také kód, který vám může pomoci.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, poté zkopírujte a vložte pod kód do modulu.

VAB: Vložte mezeru mezi řádkys

Sub RowsInsertInSelectCells()
'UpdatebyExtendoffice20180801
Dim xWS As Worksheet
Dim xCR, xR, xCC, xC, xFC, xFR As Long
Dim xFNum As Integer
Dim xRg, xCRg As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 0 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xWS = ActiveWorkbook.ActiveSheet
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Count > 0 Then
        xCR = xRg.Rows.Count
        xCC = xRg.Columns.Count
        xR = xRg.Row
        xC = xRg.Column
   Application.ScreenUpdating = False
    For xFC = 0 To xCC - 1
        For xFR = xCR To 1 Step -1
            xWS.Cells(xR + xFR, xC + xFC).Insert
        Next
    Next xFC
    Application.ScreenUpdating = True
    End If

End Sub

3. lis F5 klávesu pro spuštění kódu, objeví se dialogové okno, které vám připomene, abyste vybrali pracovní data.
doc vložte mezeru do každého řádku 8

4. cvaknutí OK. Nyní byly mezery vloženy mezi vybrané řádky.
doc vložte mezeru do každého řádku 9


Vložte prázdné řádky / sloupce mezi každý řádek / sloupec pomocí Kutools pro Excel

Pokud chcete rychle a snadno vložit prázdné řádky nebo sloupce mezi každý řádek nebo sloupec, můžete použít Kutools pro ExcelJe Insert Blank Rows & Columns obslužný program, ve kterém můžete podle potřeby určit interval řádků a počet prázdných řádků.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte rozsah dat, do kterého chcete vložit prázdné řádky nebo sloupce, klikněte na Kutools > Insert > Insert Blank Rows & Columns.
doc vložte mezeru do každého řádku 10

2. V Insert Blank Rows & Columns dialog, zkontrolujte Blank rows or Blank columns podle potřeby a upřesněte možnosti Interval of a Rows.
doc vložte mezeru do každého řádku 11

3. cvaknutí Ok.

Mezi každý řádek vložte prázdné řádky  Mezi každý sloupec vložte prázdný sloupec
doc vložte mezeru do každého řádku 12 doc vložte mezeru do každého řádku 13

Tip: tento nástroj podporuje zpět Ctrl + Z.

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations