Hogyan lehet gyorsan beszúrni a szóközt az egyes sorok között az Excelben?

Az Excel ， alkalmazásban a jobb egérgombbal menü segítségével kiválaszthat egy sort az aktív sor fölött, de tudja-e, hogyan lehet üres sorokat beilleszteni az egyes sorokba az alábbi képernyőképen? Itt bemutatok néhány trükköt a feladat gyors megoldására.

Helyezzen üres sorokat az egyes sorok közé Rendezés funkcióval

Helyezzen be üres sorokat az egyes sorok közé VBA kóddal

Helyezzen üres sorokat / oszlopokat az egyes sorok / oszlopok közé a Kutools for Excel segítségével

---

Helyezzen üres sorokat az egyes sorok közé Rendezés funkcióval

Ha üres sorokat szeretne beszúrni az egyes sorok közé, először kétszer kitölthet egy sorszámot, majd rendezheti a számokat.

1. A szomszédos számban töltsön be egy sorszámot, hogy megfeleljen a sor számának.

2. Másolja ki a sorozatszámokat, és illessze be az utolsó számot követő cellába.

2. Jelölje ki az összes sorozatszámot, kattintson a gombra dátum > Rendezés a legkisebbtől a legnagyobbig.

3. A durranásban Rendezés figyelmeztetés párbeszédpanel, tartsa Bontsa ki a választási lehetőséget jelölje be, kattintson a gombra Fajta.

Most beillesztették a szóközöket az egyes sorok közé. Később eltávolíthatja a sorozatszám oszlopot.

---

Helyezzen be üres sorokat az egyes sorok közé VBA kóddal

Ha ismeri a makrokódot, itt egy kód is segíthet.

1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual Basic for Applications ablak.

2. kettyenés betétlap > Modulok, majd másolja és illessze be a kód alatt a modulba.

VAB: Helyezzen be helyet a sor közötts

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. nyomja meg F5 gombot a kód futtatásához, megjelenik egy párbeszédpanel, amely emlékezteti Önt a munkaadatok kiválasztására.

4. kettyenés OK. Most beillesztették a szóközöket a kijelölt sorok közé.

---

Helyezzen üres sorokat / oszlopokat az egyes sorok / oszlopok közé a Kutools for Excel segítségével

Ha gyorsan és egyszerűen szeretne üres sorokat vagy oszlopokat beilleszteni az egyes sorok vagy oszlopok közé, használhatja Kutools az Excel számára'S Insert Blank Rows & Columns segédprogram, amely szükség szerint megadhatja a sorok intervallumát és az üres sorok számát.

Telepítése után Kutools for Excel, kérjük, tegye az alábbiak szerint:（Ingyenes letöltés Kutools for Excel most!)

1. Válassza ki az üres tartományokat vagy oszlopokat beilleszteni kívánt adattartományt, kattintson a gombra Kutools > Insert > Insert Blank Rows & Columns.

2. Ban,-ben Insert Blank Rows & Columns párbeszédpanelen ellenőrizze Blank rows or Blank columns szükség szerint, és adja meg a Interval of és a Rows.

3. kettyenés Ok.

Inert üres sorok inertek az egyes sorok között	Helyezzen üres oszlopot az egyes oszlopok közé

típus: ez a segédprogram támogatja a visszavonást Ctrl + Z.

  Helyezzen be üres sorokat vagy oszlopokat meghatározott időközönként