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
Szúrjon be ü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 Sub3. 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é.
Szúrjon be ü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.
| Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. |
Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot 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
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
