Acest tutorial va arăta cum să utilizați VBA pentru a insera rânduri și coloane în Excel.
Pentru a insera rânduri sau coloane vom folosi Metoda de inserare.
Introduceți un singur rând sau coloană
Introduceți rândul nou
Pentru a insera un singur rând, puteți utiliza obiectul Rows:
| 1 | Rânduri (4) .Insert |
Sau puteți utiliza obiectul Range împreună cu EntireRow:
| 1 | Gama ("b4"). EntireRow.Insert |
Inserați o coloană nouă
Similar cu inserarea rândurilor, putem folosi Obiectul Coloane pentru a insera o coloană:
| 1 | Coloane (4) .Insert |
Sau obiectul Range, împreună cu EntireColumn:
| 1 | Range ("b4"). EntireColumn.Insert |
Introduceți mai multe rânduri sau coloane
Introduceți mai multe rânduri
Când introduceți mai multe rânduri cu obiectul Rows, trebuie să introduceți rândurile în ghilimele:
| 1 | Rânduri („4: 6”). Introduceți |
Inserarea mai multor rânduri cu obiectul Range funcționează la fel ca la un singur rând:
| 1 | Range ("b4: b6"). EntireRow.Insert |
Inserați mai multe coloane
Când introduceți mai multe coloane cu obiectul Coloane, introduceți coloana scrisori în cotații:
| 1 | Coloane („B: D”). Inserați |
Inserarea mai multor coloane cu obiectul Range funcționează la fel ca la o singură coloană:
| 1 | Range („b4: d4”). EntireColumn.Insert |
Insert - Shift & CopyOrigin
The Metoda de inserare are două argumente opționale:
- Schimb - Ce direcție să schimbi celulele
- CopyOrigin - Ce formatare de celulă să copiați (deasupra, dedesubt, stânga sau dreapta)
Argumentul Shift este irelevant atunci când introduceți rânduri sau coloane întregi. Vă permite doar să indicați să vă deplasați în jos sau în dreapta:
- xlShiftDown - Deplasați celulele în jos
- xlShiftToRight - Deplasați celulele spre dreapta
După cum puteți vedea, nu vă puteți deplasa în sus sau în dreapta.
The CopyOrigin argumentul are două intrări potențiale:
- xlFormatFromLeftorAbove - (0) Celulele nou inserate iau formatarea din celulele de deasupra sau spre stânga
- xlFormatFromRightorBelow (1) Celulele nou inserate iau formatarea din celulele de dedesubt sau în dreapta.
Să vedem câteva exemple de CopyOrigin argument. Iată datele noastre inițiale:
Acest exemplu va insera un rând, luând formatarea din rândul de mai sus.
| 1 | Rows (5) .Insert, xlFormatFromLeftOrAbove |
Acest exemplu va insera un rând, luând formatarea din rândul de mai jos.
| 1 | Rows (5) .Insert, xlFormatFromRightOrBelow |
Alte exemple de inserare
Introduceți rânduri sau coloane copiate
Dacă doriți să inserați un rând copiat, veți utiliza codul de genul acesta:
| 12 | Gama („1: 1”). CopiațiGama („5: 5”). Introduceți |
Aici copiem rândul 1 și îl inserăm în rândul 5.
Inserați rânduri pe baza valorii celulei
Aceasta va parcurge un interval, inserând rânduri pe baza valorilor celulei:
| 1234567891011 | Sub InsertRowswithSpecificValue ()Dim celula ca intervalPentru fiecare celulă din interval ("b2: b20")Dacă cell.Value = "inserare" Atuncicell.EntireRow.InsertEnd IfUrmătoarea celulăSfârșitul Sub |
Ștergeți rândurile sau coloanele
Pentru a șterge rânduri sau coloane, pur și simplu utilizați Șterge metodă.
| 1234567 | Rânduri (1). ȘtergețiRange („a1”). EntireRow.DeleteColoane (1). ȘtergețiRange ("a1"). EntireColumn.Delete |
