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.
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 Excel
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.
2. Zkopírujte čísla sérií a vložte je do buňky za posledním číslem.
2. Vyberte všechna čísla sérií, klepněte na Data > Řadit od nejmenšího k největšímu.
3. V praskání Varování řazení dialog, ponechat Rozbalte možnost výběru zaškrtnuto, klikněte Typ.
Nyní byly mezery vloženy mezi každý řádek. Sloupec s číslem řady můžete později odebrat.
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 Sub3. lis F5 klávesu pro spuštění kódu, objeví se dialogové okno, které vám připomene, abyste vybrali pracovní data.
4. cvaknutí OK. Nyní byly mezery vloženy mezi vybrané řádky.
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.
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.
3. cvaknutí Ok.
| Mezi každý řádek vložte prázdné řádky | Mezi každý sloupec vložte prázdný sloupec |
 |
 |
Tip: tento nástroj podporuje zpět Ctrl + Z.
Vložte prázdné řádky nebo sloupce se specifickými intervaly
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!
