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.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
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 , 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
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!