Šī apmācība parādīs, kā izmantot VBA, lai Excel ievietotu rindas un kolonnas.
Lai ievietotu rindas vai kolonnas, mēs izmantosim Ievietošanas metode.
Ievietojiet vienu rindu vai kolonnu
Ievietot jaunu rindu
Lai ievietotu vienu rindu, varat izmantot rindu objektu:
1 | Rindas (4). Ievietojiet |
Vai arī varat izmantot diapazona objektu kopā ar EntireRow:
1 | Diapazons ("b4"). EntireRow.Insert |
Ievietot jaunu kolonnu
Līdzīgi kā rindu ievietošanai, kolonnas ievietošanai varam izmantot kolonnu objektu:
1 | Kolonnas (4). Ievietojiet |
Vai diapazona objekts kopā ar visu kolonnu:
1 | Diapazons ("b4"). Visa kolonna. Ievietot |
Ievietojiet vairākas rindas vai kolonnas
Ievietojiet vairākas rindas
Ievietojot vairākas rindas ar objektu Rows, rindas jāievada pēdiņās:
1 | Rindas ("4: 6"). Ievietot |
Vairāku rindu ievietošana ar diapazona objektu darbojas tāpat kā ar vienu rindu:
1 | Diapazons ("b4: b6"). EntireRow.Insert |
Ievietot vairākas kolonnas
Ievietojot vairākas kolonnas ar kolonnu objektu, ievadiet kolonnu vēstules pēdiņās:
1 | Kolonnas ("B: D"). Ievietot |
Vairāku kolonnu ievietošana ar diapazona objektu darbojas tāpat kā ar vienu kolonnu:
1 | Diapazons ("b4: d4"). Visa kolonna. Ievietot |
Ievietot - Shift & CopyOrigin
The Ievietošanas metode ir divi fakultatīvi argumenti:
- Shift - Kurā virzienā pārvietot šūnas
- CopyOrigin - Kuru šūnu formatējumu kopēt (virs, zem, pa kreisi vai pa labi)
Ievietojot veselas rindas vai kolonnas, argumentam Shift nav nozīmes. Tas ļauj norādīt tikai pārslēgšanos uz leju vai pa labi:
- xlShiftDown - Pārbīdiet šūnas uz leju
- xlShiftToRight - Pārbīdiet šūnas pa labi
Kā redzat, jūs nevarat pāriet uz augšu vai pa labi.
The CopyOrigin argumentam ir divas iespējamās izejas:
- xlFormatFromLeftorAbove - (0) Tikko ievietotās šūnas tiek formatētas no šūnām virs vai pa kreisi
- xlFormatFromRightorBelow (1) Tikko ievietotās šūnas tiek formatētas no šūnām zem vai pa labi.
Apskatīsim dažus piemērus CopyOrigin arguments. Šeit ir mūsu sākotnējie dati:
Šajā piemērā tiks ievietota rinda, ņemot formatējumu no iepriekšējās rindas.
1 | Rindas (5). Ievietojiet, xlFormatFromLeftOrAbove |
Šajā piemērā tiks ievietota rinda, ņemot formatējumu no zemākās rindas.
1 | Rindas (5). Ievietojiet, xlFormatFromRightOrBelow |
Citi ievietošanas piemēri
Ievietojiet kopētās rindas vai kolonnas
Ja vēlaties ievietot kopētu rindu, izmantojiet šādu kodu:
12 | Diapazons ("1: 1"). KopētDiapazons ("5: 5"). Ievietot |
Šeit mēs kopējam 1. rindu un ievietojam to 5. rindā.
Ievietot rindas, pamatojoties uz šūnas vērtību
Tas pārvietosies pa diapazonu, ievietojot rindas, pamatojoties uz šūnu vērtībām:
1234567891011 | Sub InsertRowswithSpecificValue ()Dim šūna kā diapazonsKatrai diapazona šūnai ("b2: b20")Ja šūna.Vērtība = "ielikt" Tadcell.EntireRow.InsertBeigas JaNākamā šūnaBeigu apakš |
Dzēst rindas vai kolonnas
Lai izdzēstu rindas vai kolonnas, vienkārši izmantojiet Dzēst metodi.
1234567 | Rindas (1). DzēstDiapazons ("a1"). EntireRow.DeleteKolonnas (1). DzēstDiapazons ("a1"). Visa kolonna. Dzēst |