Hogyan lehet részleges sort beszúrni vagy törölni az Excelben?
Könnyű egy egész sort beszúrni vagy törölni az Excel munkalapjáról. De hogyan lehet csak részleges sort beszúrni vagy törölni a munkalapból? Ez a cikk segít Önnek.
Részleges sor beszúrása vagy törlése a Cella beszúrása / törlése funkcióval
Helyezzen be vagy töröljön részleges sort VBA kóddal
Részleges sor beszúrása vagy törlése a Cella beszúrása / törlése funkcióval
Például három cellával be akar illeszteni vagy törölni egy részleges sort az 5. sorból, kérjük, tegye a következőket.
Helyezze be a részleges sort
1. Jelöljön ki három cellát az 5. sorból (a kijelölt celláknak meg kell egyeznie a beillesztett cellákkal), majd kattintson betétlap > Helyezze be a cellákat alatt Kezdőlap fülre. Lásd a képernyőképet:
2. Ban,-ben betétlap párbeszédpanelen válassza ki Változtassa a cellákat jobbra or Változtassa le a cellákat majd kattintson a OK gombot.
Ezután a három cellával ellátott részsort beszúrjuk az alábbi képernyőkép szerint.
Részleges sor törlése
1. A törlendő részsor kiválasztása után kattintson a Törlés> gombra Cellák törlése alatt Kezdőlap Tab.
2. Ban,-ben töröl párbeszédpanelen válassza ki Váltó cellák maradtak or Változtassa a cellákat szükség szerint, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
Ezután a kijelölt részsor törlődik.
Helyezzen be vagy töröljön részleges sort VBA kóddal
A következő VBA-kódokat alkalmazhatja részleges sor beszúrására vagy törlésére az Excel-ben.
1. Válasszon ki egy cellát egy bizonyos sorból, ahová részleges sorokat szeretne beilleszteni, majd nyomja meg a gombot más + F11 megnyitni Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablak.
VBA kód: Helyezzen be részleges sort az Excelbe
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End SubMegjegyzések: A VBA kódban az 1. szám azt jelenti, hogy a részleges sort beillesztik az első oszlopból, a 3. szám pedig azt, hogy három cellát illeszt be az oszlopok közé. Az igényei alapján megváltoztathatja őket.
3. megnyomni a F5 gombot a kód futtatásához, majd a Kutools az Excel számára megjelenik a párbeszédpanel, adja meg a szükséges sorok számát, majd kattintson a gombra OK gombot.
Ha beírja a 3 mezőt, kattintson a gombra OK gombra, három részleges három oszlopos sor kerül beillesztésre a munkalap meghatározott helyére.
A részleges rész törléséhez futtathatja az alábbi VBA kódot.
VBA kód: Törölje az Excel részleges sorát
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End SubA kód futtatása után szintén van egy Kutools az Excel számára megjelenik a párbeszédpanel, amely emlékezteti Önt, hogy hány részsort szeretne törölni, kérjük, írja be a számot, majd kattintson a gombra OK gomb. Ezután a megadott részsorokat azonnal törli.
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!
