Ugrás a tartalomra

Hogyan lehet részleges sort beszúrni vagy törölni az Excelben?

Szerző: Siluvia Utolsó módosítás: 2020-07-23

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 Sub

Megjegyzé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 Sub

A 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

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

Leírás


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations