Kako hitro vstaviti presledek med vsako vrstico v Excelu?

V Excelu ， lahko z desno miškino tipko izberete vrstico nad aktivno vrstico, vendar veste, kako v vsako vrstico vstavite prazne vrstice, kot je prikazano spodaj? Tukaj predstavljam nekaj trikov za hitro reševanje tega dela.

Med vsako vrstico vstavite prazne vrstice s funkcijo razvrščanja

Med vsako vrstico vstavite prazne vrstice s kodo VBA

Kutools za Excel vstavite prazne vrstice / stolpce med vsako vrstico / stolpec

---

Med vsako vrstico vstavite prazne vrstice s funkcijo razvrščanja

Če želite med vsako vrstico vstaviti prazne vrstice, lahko najprej dvakrat izpolnite niz številk, nato pa jih razvrstite.

1. V sosednjo številko vnesite niz številk, da se ujema s številko vrstice.

2. Kopirajte serijske številke in jih prilepite v celico, ki sledi zadnji številki.

2. Izberite vse številke serij, kliknite datum > Razvrsti od Najmanjše do Največje.

3. V popping Razvrsti opozorilo pogovorno okno, obdrži Razširite možnost izbire označeno, kliknite Razvrščanje.

Zdaj so presledki vstavljeni med vsako vrstico. Stolpec s serijsko številko lahko kasneje odstranite.

---

Med vsako vrstico vstavite prazne vrstice s kodo VBA

Če poznate makro kodo, vam lahko tukaj pomaga tudi koda.

1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli, nato v modul kopirajte in prilepite spodnjo kodo.

VAB: Vstavi presledek med vrsticos

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. Pritisnite F5 tipko za zagon kode, odpre se pogovorno okno, ki vas opomni, da morate izbrati delovne podatke.

4. klik OK. Zdaj so presledki vstavljeni med izbrane vrstice.

---

Kutools za Excel vstavite prazne vrstice / stolpce med vsako vrstico / stolpec

Če želite med vsako vrstico ali stolpec hitro in enostavno vstaviti prazne vrstice ali stolpce, lahko uporabite Kutools za ExcelJe Insert Blank Rows & Columns pripomoček, s katerim lahko po potrebi določite interval vrstic in število praznih vrstic.

Po namestitvi Kutools za Excel, naredite spodaj:（Brezplačno prenesite Kutools za Excel zdaj!)

1. Izberite obseg podatkov, v katerega želite vstaviti prazne vrstice ali stolpce, kliknite Kutools > Insert > Insert Blank Rows & Columns.

2. V Ljubljani Insert Blank Rows & Columns pogovorno okno, preverite Blank rows or Blank columns po potrebi in določite možnosti Interval of in Rows.

3. klik Ok.

Med vsako vrstico vstavite prazne vrstice	Med vsakim stolpcem vstavite prazen stolpec

Nasvet: ta pripomoček podpira razveljavitev Ctrl + Z.

  Vstavite prazne vrstice ali stolpce z določenimi intervali