Ez az oktatóanyag bemutatja, hogyan lehet a VBA segítségével sorokat és oszlopokat beszúrni az Excelbe.
Sorok vagy oszlopok beszúrásához a Beszúrás módszer.
Egyetlen sor vagy oszlop beszúrása
Új sor beszúrása
Egy sor beszúrásához használhatja a Sorok objektumot:
| 1 | Sorok (4). Beszúrás |
Vagy használhatja a Range objektumot az EntireRow -val együtt:
| 1 | Tartomány ("b4"). EntireRow.Insert |
Új oszlop beszúrása
A sorok beszúrásához hasonlóan az Oszlopok objektumot is használhatjuk oszlop beszúrásához:
| 1 | Oszlopok (4). Beszúrás |
Vagy a Range Object, valamint az EntireColumn:
| 1 | Tartomány ("b4"). EntireColumn.Insert |
Több sor vagy oszlop beszúrása
Több sor beszúrása
Ha több sort szúr be a Sorok objektumba, a sorokat idézőjelben kell megadnia:
| 1 | Sorok ("4: 6") |
Több sor beszúrása a tartomány objektummal ugyanúgy működik, mint egyetlen sor esetén:
| 1 | Tartomány ("b4: b6"). EntireRow.Insert |
Több oszlop beszúrása
Ha több oszlopot szúr be az Oszlopok objektumba, írja be az oszlopot leveleket idézetekben:
| 1 | Oszlopok ("B: D") |
Több oszlop beszúrása a Range objektummal ugyanúgy működik, mint egyetlen oszlop esetén:
| 1 | Tartomány ("b4: d4"). EntireColumn.Insert |
Beszúrás - Shift & CopyOrigin
Az Beszúrás módszer két opcionális érve van:
- Váltás - Melyik irányba kell eltolni a sejteket
- CopyOrigin - Melyik cellaformátumot másolja (fent, lent, balra vagy jobbra)
A Shift argumentum nem releváns, ha teljes sorokat vagy oszlopokat szúr be. Csak azt jelzi, hogy lefelé vagy jobbra kell váltani:
- xlShiftDown - Tolja le a cellákat
- xlShiftToRight - A cellák eltolása jobbra
Amint látja, nem léphet felfelé vagy jobbra.
Az CopyOrigin az argumentumnak két lehetséges bemenete van:
- xlFormatFromLeftorAbove - (0) Az újonnan beszúrt cellák formázása a fenti vagy bal oldali cellákból történik
- xlFormatFromRightorBelow (1) Az újonnan beszúrt cellák formázása az alatta vagy jobbra lévő cellákból történik.
Nézzünk néhány példát a CopyOrigin érv. Íme a kezdeti adataink:
Ez a példa beszúr egy sort, a formázást a fenti sorból.
| 1 | Sorok (5). Beszúrás, xlFormatFromLeftOrAbove |
Ez a példa egy sort szúr be, az alábbi sor formázásával.
| 1 | Sorok (5). Beszúrás, xlFormatFromRightOrBelow |
Egyéb beszúrási példák
Másolt sorok vagy oszlopok beszúrása
Ha másolt sort szeretne beszúrni, akkor az alábbi kódot használja:
| 12 | Tartomány ("1: 1"). MásolatTartomány ("5: 5") |
Itt másoljuk az 1. sort, és illesszük be az 5. sorba.
Sorok beszúrása a cella értéke alapján
Ez végigmegy egy tartományon, sorokat szúr be a cellaértékek alapján:
| 1234567891011 | Sub InsertRowswithSpecificValue ()Homályos cella mint tartományA tartomány minden cellájához ("b2: b20")Ha cell.Value = "insert" Akkorcell.EntireRow.InsertVége HaKövetkező cellaEnd Sub |
Sorok vagy oszlopok törlése
Sorok vagy oszlopok törléséhez egyszerűen használja a Töröl módszer.
| 1234567 | Sorok (1). TörlésTartomány ("a1"). EntireRow.DeleteOszlopok (1). TörlésTartomány ("a1"). Teljes oszlop. Törlés |
