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

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.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger.
Gratis download gratis volledige functionaliteit in 30 dagen

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

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!