Ta vadnica bo pokazala, kako uporabiti VBA za vstavljanje vrstic in stolpcev v Excel.
Za vstavljanje vrstic ali stolpcev bomo uporabili Metoda vstavljanja.
Vstavite eno vrstico ali stolpec
Vstavi novo vrstico
Če želite vstaviti eno vrstico, lahko uporabite predmet Vrstice:
| 1 | Vrstice (4). Vstavi |
Lahko pa uporabite objekt Range skupaj z EntireRow:
| 1 | Obseg ("b4"). EntireRow.Insert |
Vstavite nov stolpec
Podobno kot pri vstavljanju vrstic lahko s predmetom stolpcev vstavimo stolpec:
| 1 | Stolpci (4). Vložek |
Ali predmet Range skupaj z EntireColumn:
| 1 | Obseg ("b4"). EntireColumn.Insert |
Vstavite več vrstic ali stolpcev
Vstavite več vrstic
Ko vstavljate več vrstic s predmetom vrstic, morate vrstice vnesti v narekovaje:
| 1 | Vrstice ("4: 6"). Vstavi |
Vstavljanje več vrstic z objektom obsega deluje enako kot z eno vrstico:
| 1 | Obseg ("b4: b6"). EntireRow.Insert |
Vstavite več stolpcev
Ko vstavljate več stolpcev s predmetom stolpcev, vnesite stolpec črke v narekovajih:
| 1 | Stolpci ("B: D"). Vstavi |
Vstavljanje več stolpcev z objektom obsega deluje enako kot pri enem stolpcu:
| 1 | Obseg ("b4: d4"). EntireColumn.Insert |
Vstavi - Shift & CopyOrigin
The Metoda vstavljanja ima dva izbirna argumenta:
- Premik - V katero smer premikati celice
- CopyOrigin - Katero obliko celice kopirati (zgoraj, spodaj, levo ali desno)
Argument Shift ni pomemben pri vstavljanju celotnih vrstic ali stolpcev. Omogoča le, da označite premik navzdol ali premik v desno:
- xlShiftDown - Premik celic navzdol
- xlShiftToRight - Premik celic v desno
Kot vidite, se ne morete premakniti navzgor ali v desno.
The CopyOrigin argument ima dva možna vhoda:
- xlFormatFromLeftorAbove - (0) Na novo vstavljene celice oblikujejo celice zgoraj ali levo
- xlFormatFromRightorBelow (1) Novo vstavljene celice se oblikujejo iz celic spodaj ali na desni.
Poglejmo nekaj primerov CopyOrigin prepir. Tu so naši začetni podatki:
Ta primer bo vstavil vrstico, pri čemer bo oblikovanje prevzeto iz zgornje vrstice.
| 1 | Vrstice (5). Vstavi, xlFormatFromLeftOrAbove |
Ta primer bo vstavil vrstico, pri čemer bo oblikovanje prevzeto iz spodnje vrstice.
| 1 | Vrstice (5). Vstavite, xlFormatFromRightOrBelow |
Drugi primeri vstavljanja
Vstavite kopirane vrstice ali stolpce
Če želite vstaviti kopirano vrstico, uporabite to kodo:
| 12 | Razpon ("1: 1"). KopirajRazpon ("5: 5"). Vstavi |
Tu kopiramo 1. vrstico in jo vstavimo v 5. vrstico.
Vstavi vrstice glede na vrednost celice
S tem boste prešli skozi obseg in vstavili vrstice na podlagi vrednosti celic:
| 1234567891011 | Sub InsertRowswithSpecificValue ()Zatemni celico kot obsegZa vsako celico v dosegu ("b2: b20")Če cell.Value = "insert" Potemcell.EntireRow.InsertKonec ČeNaslednja celicaEnd Sub |
Izbrišite vrstice ali stolpce
Če želite izbrisati vrstice ali stolpce, preprosto uporabite Izbriši metoda.
| 1234567 | Vrstice (1). IzbrišiObseg ("a1"). EntireRow.DeleteStolpci (1). IzbrišiObseg ("a1"). Celoten stolpec.Delete |
