Ši pamoka parodys, kaip naudojant VBA įterpti eilutes ir stulpelius „Excel“.
Norėdami įterpti eilutes ar stulpelius, naudosime Įterpimo metodas.
Įterpkite vieną eilutę arba stulpelį
Įterpti naują eilutę
Norėdami įterpti vieną eilutę, galite naudoti eilutės objektą:
| 1 | Eilutės (4). Įterpti |
Arba galite naudoti diapazono objektą kartu su „EntireRow“:
| 1 | Diapazonas ("b4"). EntireRow.Insert |
Įterpti naują stulpelį
Panašiai kaip ir eilučių įterpimas, mes galime naudoti stulpelių objektą stulpeliui įterpti:
| 1 | Stulpeliai (4). Įterpti |
Arba diapazono objektas kartu su visa stulpeliu:
| 1 | Diapazonas („b4“). Visa stulpelis. Įterpti |
Įterpkite kelias eilutes ar stulpelius
Įterpti kelias eilutes
Įterpdami kelias eilutes su objektu „Eilutės“, eilutes turite įvesti kabutėmis:
| 1 | Eilutės ("4: 6"). Įterpti |
Kelių eilučių įterpimas su diapazono objektu veikia taip pat, kaip su viena eilute:
| 1 | Diapazonas ("b4: b6"). EntireRow.Insert |
Įterpti kelis stulpelius
Įterpdami kelis stulpelius su objektu Stulpeliai, įveskite stulpelį laiškus citatose:
| 1 | Stulpeliai („B: D“). Įterpimas |
Kelių stulpelių įterpimas su diapazono objektu veikia taip pat, kaip ir su vienu stulpeliu:
| 1 | Diapazonas ("b4: d4"). Visa stulpelis. Įterpti |
Įterpti - „Shift“ ir „CopyOrigin“
The Įterpimo metodas turi du pasirenkamus argumentus:
- Pamaina - Kokia kryptimi perkelti ląsteles
- „CopyOrigin“ - Kokį langelio formatavimą kopijuoti (viršuje, apačioje, kairėje ar dešinėje)
„Shift“ argumentas nėra svarbus įterpiant visas eilutes ar stulpelius. Tai leidžia nurodyti tik perjungimą žemyn arba į dešinę:
- xlShiftDown - Slinkite langelius žemyn
- xlShiftToRight - Perkelkite langelius į dešinę
Kaip matote, negalite pasisukti aukštyn arba į dešinę.
The „CopyOrigin“ Argumentas turi du galimus duomenis:
- xlFormatFromLeftorAbour - (0) Naujai įterptos ląstelės formuojamos iš langelių viršuje arba kairėje
- xlFormatFromRightorBelow (1) Naujai įterptos ląstelės formuojamos iš žemiau arba į dešinę esančių langelių.
Pažvelkime į keletą pavyzdžių „CopyOrigin“ argumentas. Štai mūsų pradiniai duomenys:
Šiame pavyzdyje bus įterpta eilutė, atsižvelgiant į ankstesnės eilutės formatavimą.
| 1 | Eilutės (5). Įterpkite, xlFormatFromLeftOrAbove |
Šiame pavyzdyje bus įterpta eilutė, paimant formatą iš žemiau esančios eilutės.
| 1 | Eilutės (5). Įterpkite, xlFormatFromRightOrBelow |
Kiti įterpimo pavyzdžiai
Įterpti nukopijuotas eilutes ar stulpelius
Jei norite įterpti nukopijuotą eilutę, naudokite tokį kodą:
| 12 | Diapazonas („1: 1“). KopijuotiDiapazonas („5: 5“) |
Čia nukopijuojame 1 eilutę ir įterpiame ją į 5 eilutę.
Įterpti eilutes pagal langelio vertę
Tai bus ciklas per diapazoną, įterpiant eilutes pagal ląstelių vertes:
| 1234567891011 | Sub InsertRowswithSpecificValue ()Šviesos langelis kaip diapazonasKiekvienam diapazono langeliui ("b2: b20")Jei ląstelė.Vertybė = "įterpti" Tadacell.EntireRow.InsertPabaiga JeiKitas langelisPabaiga Sub |
Ištrinkite stulpelius ar eilutes
Norėdami ištrinti eilutes ar stulpelius, tiesiog naudokite Ištrinti metodas.
| 1234567 | Eilutės (1). IštrintiDiapazonas („a1“). „EntireRow.Delete“Stulpeliai (1). IštrintiDiapazonas („a1“). Visa stulpelis. Ištrinti |
