Parasti Excel darblapā mums ir divas dažādas kolonnu pievienošanas vai ievietošanas metodes, no kurām viena ir īsinājumtaustiņš un otra, izmantojot peles labo pogu noklikšķiniet un ievietojiet metodi, bet VBA mums ir jāizmanto ievietošanas komanda un viss kolonnu paziņojums, lai pievienotu jebkuru kolonnu, triks ir tas, ka, ja mums jāievieto viena kolonna, mēs sniedzam vienu kolonnu atsauci, bet vairākām kolonnām mēs sniedzam vairākas kolonnu atsauces.
Ievietojiet kolonnas programmā Excel, izmantojot VBA
Kā daļu no VBA koda mums, iespējams, vajadzēs ievietot dažas slejas mūsu datu lapā, lai tas atbilstu mūsu vajadzībām. Kolonnas ievietošana ir vienkāršs īsinājumtaustiņš darblapā, nospiežot Ctrl +, bet kā būtu ar jaunas kolonnas ievietošanu, izmantojot VBA kodu. Šajā rakstā “VBA ievietot kolonnu” mēs parādīsim kolonnu pievienošanas procesu programmā Excel un parādīsim dažādu scenāriju piemērus.
Kā ievietot kolonnas Excel darblapā, izmantojot VBA?
Mēs varam ievietot kolonnas VBA, izmantojot rekvizītu COLUMNS un objektu RANGE. Jums ir nepieciešams, kāpēc mums ir nepieciešamas kolonnas un diapazona objekti, lai ievietotu jaunu kolonnu.
Lai ievietotu jaunu kolonnu, mums jāidentificē, pēc kuras kolonnas mums jāievieto, nepasakot, pēc kuras kolonnas mums jāievieto, kā VBA var saprast loģiku.
Piemēram, ja vēlaties ievietot kolonnu aiz kolonnas B, tad kodu varat izveidot šādi.
Kolonnas (“C”)
Piezīme. Iemesls, kāpēc es izmantoju C, lai ievietotu kolonnu pēc tam, jo atlasītā šūna tiks pārvietota uz labo pusi.
Kad kolonnas ir norādītas, mums ir jāpiekļūst rekvizītam “Visa kolonna”.
Kolonnas (“C”). EntireColumn
Tad mums jāizvēlas metode “Ievietot”.
Kolonnas (“C”). EntireColumn.Ievietot
Tas ievietos kolonnu aiz C slejas, un esošā C kolonna tiks pārvietota uz D.
1. piemērs - kolonnu ievietošana, izmantojot VBA diapazona objektu
Tagad apskatiet kolonnas ievietošanas veidu, izmantojot objektu RANGE. Lai to izdarītu, aplūkojiet tālāk sniegtos piemērus.
Tagad es vēlos, lai VBA ievieto kolonnu pēc kolonnas A, lai izveidotu kodu, veiciet tālāk norādītās darbības.
1. darbība: sāciet apakšprocedūru.
2. solis: Atveriet objektu Range .
Kods:
Apakškolona Ievietot_piemērs1 () diapazons (beigu apakšgrupa
3. solis: Tagad miniet kolonnu divkāršās pēdiņās .
Kods:
Apakšs kolonnaIevietot_piemērs1 () Diapazons ("B: B") Beigu apakšgrupa
4. solis: Tagad izvēlieties īpašumu Visa kolonna .
Kods:
Apakšs kolonnaIevietot_piemēru1 () diapazons ("B: B"). Ent Beigas Apakšgrupa
5. solis: Pēc rekvizīta Visa kolonna atlasīšanas izvēlieties metodi “Ievietot” .
Kods:
Apakšs kolonnaIevietot_piemērs1 () diapazons ("B: B"). EntireColumn.ins Beigas apakšdaļa
Tagad jūsu kods izskatās šādi.
Kods:
Apakšs kolonnaIevietot_piemērs1 () diapazons ("B: B"). EntireColumn.Ievietot beigu apakšsadaļu
Palaidiet kodu. Tas ievietos jauno B kolonnu.
2. piemērs - ievietojiet vairākas kolonnas
Piemēram, ja pēc A slejas vēlaties ievietot divas jaunas kolonnas, mums jāpiemin divas kolonnu adreses.
Kods:
Apakšs kolonnaIevietot_piemērs1 () diapazons ("B: C"). EntireColumn.Ievietot beigu apakšsadaļu
Iepriekš minētais kods aiz A slejas ievietos divas kolonnas.
3. piemērs - ar metodi “Tikai” ievietot
Mēs varam ievietot jaunu kolonnu, izmantojot vienīgo metodi “Ievietot”, nepiekļūstot rekvizītam Visa kolonna. Lai to izdarītu, sapratīsim “ievietošanas” metodes sintaksi.
Izteiksme. Ievietot ((Shift), (Copy Origin))
(Shift): Kad mēs ievietojam jauno kolonnu, neatkarīgi no tā, vai mums ir nepieciešamas kolonnas, lai tās pārietu uz labo pusi vai, ja rindas tiek pārvietotas uz negatīvo pusi. Šeit mēs varam izmantot divas iespējas: “xlToRight” un “xlDownTo”
(Copy Origin): This will specify the format for the newly inserted column. Whether you need the format from the left side of the column or from the above cells. Here we can use two options “xlFormatFromLeftOrAbove” and “xlFormatFromRightOrBelow”.
Below is the example code for you.
Sub ColumnInsert_Example1() Range("B:B").Insert Shift:=xlToRight, Copyorigin:=xlFormatFromLeftOrAbove End Sub
Example #4 - Insert Columns Using COLUMNS Property in VBA
We have seen how to VBA insert columns using the RANGE object; now, we will show we can insert columns using the “COLUMNS” property.
Open the COLUMNS property.
Code:
Sub ColumnInsert_Example2() Columns( End Sub
We can specify the column in two ways here. One is using as usual alphabetic references, and another one is using column numbers.
If you want to insert the column after column A, then the code will be COLUMNS(“B”). If you are using numerical reference, then the code will be COLUMNS(2).
Code:
Sub ColumnInsert_Example2() Columns("B"). End Sub
Now the problem for you arises because when we use COLUMNS property, we don’t get to access the IntelliSense list.
Code:
Sub ColumnInsert_Example2() Columns("B").Entir End Sub
Here we need to sure of what we are doing. So this is the reason I have showed you the RANGE object first.
Code:
Sub ColumnInsert_Example2() Columns("B:B").EntireColumn.Insert End Sub
Example #5 - Insert Alternative Columns
Assume you have the data like the below image.
If you want to insert new columns after every alternate row, then we need to use VBA loops. The below code it tailor-made the code for you.
Code:
Apakš kolonnaIevietot_piemērs3 () Dim k kā veselas kolonnas (2). Atlasiet K = 2 līdz 8 ActiveCell.EntireColumn.Ievietojiet ActiveCell.Offset (0, 2). Atlasiet Nākamais k Beigas Apakšsadaļa
Tas kolonnu ievietos šādi.
6. piemērs - ievietojiet kolonnu, pamatojoties uz šūnas vērtību
Mēs varam ievietot arī kolonnu, pamatojoties arī uz šūnu vērtību. Piemēram, apskatiet tālāk minētos datus.
Šeit es vēlos ievietot kolonnu, ja pirmās rindas šūnas vērtība ir “Gads”, un maniem datiem pēc jaunu kolonnu ievietošanas tas vajadzētu patikt.
Lai veiktu šo uzdevumu, izmantojiet zemāk esošo kodu.
Kods:
Apakšs kolonnaIevietot_piemērs4 () Dim k kā vesels skaitlis Dim x Kā vesels skaitlis x = 2 K = 2 līdz 12 Ja šūnas (1, x) .Vērtība = "Gads", tad šūnas (1, x) .EntireColumn.Ievietot x = x + 1 Beigas Ja x = x + 1 Nākamais k Beigu apakšsadaļa
Šo VBA Insert Columns Excel varat lejupielādēt šeit. VBA ievietot kolonnu Excel veidni
