Hoppa till huvudinnehåll

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.
doc infoga mellanslag varje rad 1

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 Excelbra idé3


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.
doc infoga mellanslag varje rad 2

2. Kopiera serienumren och klistra in dem i cellen efter det sista numret.
doc infoga mellanslag varje rad 3

2. Markera alla serienummer, klicka Data > Sortera minsta till största.
doc infoga mellanslag varje rad 4

3. I popping Sortera varning dialog, håll Expandera markeringsalternativet markerad, klicka Svart.
doc infoga mellanslag varje rad 5

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


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.
doc infoga mellanslag varje rad 8

4. klick OK. Nu har mellanslag införts mellan valda rader.
doc infoga mellanslag varje rad 9


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.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

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.
doc infoga mellanslag varje rad 10

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.
doc infoga mellanslag varje rad 11

3. klick Ok.

Inerta tomma rader mellan varje rad  Infoga tom kolumn mellan varje kolumn
doc infoga mellanslag varje rad 12 doc infoga mellanslag varje rad 13

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

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations