Hur infogar man snabbt mellanrum mellan varje rad i Excel?

I Excel ， kan du använda högerklickmenyn för att välja en rad ovanför den aktiva raden, men vet du hur man sätter in tomma rader i varje rad enligt nedanstående skärmdump? Här introducerar jag några knep för att snabbt lösa detta jobb.

Infoga tomma rader mellan varje rad med sorteringsfunktionen

Infoga tomma rader mellan varje rad med VBA-kod

Infoga tomma rader / kolumner mellan varje rad / kolumn av Kutools för Excel

---

Infoga tomma rader mellan varje rad med sorteringsfunktionen

Om du vill infoga tomma rader mellan varje rad kan du först fylla i en serie med nummer två och sedan sortera siffrorna.

1. I intilliggande nummer, fyll i en serie siffror så att den matchar radnumret.

2. Kopiera serienumren och klistra in dem i cellen efter det sista numret.

2. Markera alla serienummer, klicka Data > Sortera minsta till största.

3. I popping Sortera varning dialog, håll Expandera markeringsalternativet markerad, klicka Svart.

Nu har mellanslag införts mellan varje rad. Du kan ta bort serienummerkolumnen senare.

---

Infoga tomma rader mellan varje rad med VBA-kod

Om du känner till makrokod, här är en kod som också kan hjälpa dig.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna, kopiera och klistra sedan in koden nedan till modulen.

VAB: Infoga mellanslag mellan radens

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. Tryck F5 för att köra koden, en dialogruta dyker upp för att påminna dig om att välja arbetsdata.

4. klick OK. Nu har mellanslag införts mellan valda rader.

---

Infoga tomma rader / kolumner mellan varje rad / kolumn av Kutools för Excel

Om du vill infoga tomma rader eller kolumner mellan varje rad eller kolumn snabbt och enkelt kan du använda Kutools för ExcelÄr Insert Blank Rows & Columns verktyget, som du kan ange intervall på rader och antal tomma rader efter behov.

När du har installerat Kutools för Excel, gör så här:（Gratis nedladdning Kutools för Excel nu!)

1. Välj det dataområde du vill infoga tomma rader eller kolumner, klicka på Kutools > Insert > Insert Blank Rows & Columns.

2. I Insert Blank Rows & Columns dialogrutan, kontrollera Blank rows or Blank columns som du behöver och ange alternativen för Interval of och Rows.

3. klick Ok.

Inerta tomma rader mellan varje rad	Infoga tom kolumn mellan varje kolumn

Tips: detta verktyg stöder ångra Ctrl + Z.

  Infoga tomma rader eller kolumner med specifika intervall