Hvordan indsættes der hurtigt mellemrum mellem hver række i Excel?

I Excel ， kan du bruge højreklikmenuen til at vælge en række over den aktive række, men ved du, hvordan du indsætter tomme rækker i hver række som vist nedenstående skærmbillede? Her introducerer jeg nogle tricks til hurtigt at løse dette job.

Indsæt tomme rækker mellem hver række ved hjælp af sorteringsfunktionen

Indsæt tomme rækker mellem hver række efter VBA-kode

Indsæt tomme rækker / kolonner mellem hver række / kolonne af Kutools til Excel

---

Indsæt tomme rækker mellem hver række ved hjælp af sorteringsfunktionen

For at indsætte tomme rækker mellem hver række kan du først udfylde en række numre to gange og derefter sortere numrene.

1. I tilstødende nummer skal du udfylde en række numre for at matche række nummeret.

2. Kopier serienumrene, og indsæt dem i cellen efter det sidste nummer.

2. Vælg alle serienumre, klik på data > Sorter mindste til største.

3. I popping Sorter advarsel dialog, hold Udvid valgmuligheden markeret, klik Sort.

Nu er mellemrumene blevet indsat mellem hver række. Du kan fjerne kolonnen med serienummer senere.

---

Indsæt tomme rækker mellem hver række efter VBA-kode

Hvis du er fortrolig med makro kode, her er en kode, der også kan hjælpe dig.

1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, kopier og indsæt derefter nedenstående kode i modulet.

VAB: Indsæt mellemrum mellem rækkes

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. Trykke F5 nøgle til at køre koden, vises en dialogboks, der minder dig om at vælge arbejdsdata.

4. klik OK. Nu er mellemrumene blevet indsat mellem valgte rækker.

---

Indsæt tomme rækker / kolonner mellem hver række / kolonne af Kutools til Excel

Hvis du hurtigt og nemt vil indsætte tomme rækker eller kolonner mellem hver række eller kolonne, kan du bruge Kutools til Excel's Insert Blank Rows & Columns hjælpeprogram, som du kan angive intervallet for rækker og antallet af tomme rækker efter behov.

Efter installation Kutools til Excel, gør venligst som nedenfor:（Gratis download Kutools til Excel nu!)

1. Vælg det dataområde, du vil indsætte tomme rækker eller kolonner, klik på Kutools > Insert > Insert Blank Rows & Columns.

2. i Insert Blank Rows & Columns dialog, tjek Blank rows or Blank columns som du har brug for, og angiv mulighederne for Interval of og Rows.

3. klik Ok.

Inerte tomme rækker mellem hver række	Indsæt tom kolonne mellem hver kolonne

Tip: dette værktøj understøtter fortrydelse Ctrl + Z.

  Indsæt tomme rækker eller kolonner med bestemte intervaller