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.
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.
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
Bästa kontorsproduktivitetsverktyg
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...
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!