Hoe snel ruimte tussen elke rij in Excel invoegen?

In Excel kunt u het rechtsklikmenu gebruiken om een ​​rij boven de actieve rij te selecteren, maar weet u hoe u lege rijen in elke rij moet invoegen zoals onderstaand screenshot laat zien? Hier introduceer ik enkele trucs om deze taak snel op te lossen.

Voeg lege rijen in tussen elke rij met de sorteerfunctie

Voeg lege rijen in tussen elke rij op VBA-code

Voeg lege rijen / kolommen in tussen elke rij / kolom door Kutools voor Excel

---

Voeg lege rijen in tussen elke rij met de sorteerfunctie

Als u lege rijen tussen elke rij wilt invoegen, kunt u een reeks getallen eerst twee keer invullen en vervolgens de getallen sorteren.

1. Vul in het aangrenzende nummer een reeks cijfers in die overeenkomt met het rijnummer.

2. Kopieer de serienummers en plak ze in de cel na het laatste nummer.

2. Selecteer alle serienummers, klik op Data > Sorteer kleinste naar grootste.

3. In het knallen Sorteer waarschuwing dialoog, bewaar Vouw de selectieoptie uit aangevinkt, klik Sorteer.

Nu zijn de spaties tussen elke rij ingevoegd. U kunt de kolom met het serienummer later verwijderen.

---

Voeg lege rijen in tussen elke rij op VBA-code

Als u bekend bent met macrocode, is hier een code die u ook kan helpen.

1. druk op Alt + F11 toetsen om in te schakelen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Module, kopieer en plak vervolgens onderstaande code in de module.

VAB: voeg een spatie in tussen de rijens

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. druk op F5 toets om de code uit te voeren, verschijnt er een dialoogvenster om u eraan te herinneren de werkgegevens te selecteren.

4. klikken OK. Nu zijn de spaties tussen geselecteerde rijen ingevoegd.

---

Voeg lege rijen / kolommen in tussen elke rij / kolom door Kutools voor Excel

Als u snel en gemakkelijk lege rijen of kolommen tussen elke rij of kolom wilt invoegen, kunt u Kutools for Excel's Insert Blank Rows & Columns hulpprogramma, waarmee u het interval van rijen en het aantal lege rijen naar behoefte kunt specificeren.

Na het installeren van Kutools voor Excel, doe het als volgt:（Download nu Kutools voor Excel!)

1. Selecteer het gegevensbereik waarvoor u lege rijen of kolommen wilt invoegen, klik op Kutools > Insert > Insert Blank Rows & Columns.

2. In de Insert Blank Rows & Columns dialoogvenster, vink aan Blank rows or Blank columns zoals u nodig heeft en specificeer de opties van Interval of en Rows.

3. klikken Ok.

Inerte lege rijen tussen elke rij	Voeg een lege kolom in tussen elke kolom

Tip: dit hulpprogramma ondersteunt ongedaan maken Ctrl + Z.

  Voeg lege rijen of kolommen in met specifieke intervallen