Običajno imamo v delovnem listu Excela dva različna načina za dodajanje ali vstavljanje stolpcev, pri čemer je eden bližnjica na tipkovnici, drugi pa z uporabo metode z desnim klikom in vstavljanjem, v VBA pa moramo uporabiti ukaz za vstavljanje in celoten stavek stolpca, če želimo poljuben stolpec dodati Trik pri tem je, da če moramo vstaviti en sam stolpec, damo sklic na en sam stolpec, za več stolpcev pa več sklicev na več stolpcev.
Vstavite stolpce v Excel z uporabo VBA
Kot del kode VBA bomo morda morali v naš podatkovni list vstaviti nekaj stolpcev, da bodo ustrezali našim potrebam. Vstavljanje stolpca je preprosta bližnjica na delovnem listu s pritiskom na Ctrl +, kaj pa vstavljanje novega stolpca skozi kodo VBA. V tem članku o “Vstavite stolpec VBA” vam bomo prikazali postopek dodajanja stolpcev v Excelu in prikazali različne primere scenarijev.
Kako vstaviti stolpce v Excelov delovni list z uporabo VBA?
Stolpce lahko vstavimo v VBA z uporabo lastnosti COLUMNS in predmeta RANGE. Zakaj potrebujemo stolpce in predmete obsega, da vstavimo nov stolpec.
Če želite vstaviti nov stolpec, moramo ugotoviti, za katerim stolpcem moramo vstaviti, ne da bi vedeli, za katerim stolpcem moramo vstaviti, kako lahko VBA razume logiko.
Če želite na primer stolpec vstaviti za stolpcem B, lahko tako sestavite kodo.
Stolpci (»C«)
Opomba: Razlog, zakaj sem za vstavljanje stolpca uporabil C, ker bo izbrana celica premaknjena na desno stran.
Ko so stolpci določeni, moramo dostopati do lastnosti »Celoten stolpec«.
Stolpci (»C«). Celi stolpec
Nato moramo izbrati metodo »Vstavi«.
Stolpci (»C«). EntireColumn.Insert
To bo vstavilo stolpec za stolpcem C, obstoječi stolpec C pa bo premaknjen v D.
Primer # 1 - Vstavite stolpce z uporabo predmeta obsega v VBA
Zdaj si oglejte način vstavljanja stolpca z uporabo predmeta RANGE. Za to si za primer oglejte spodnje podatke.
Zdaj želim, da VBA vstavi stolpec za stolpcem A, sledite spodnjim korakom za izdelavo kode.
1. korak: Začnite s podproceduro.
2. korak: Odprite objekt Range .
Koda:
Sub ColumnInsert_Example1 () Obseg (End Sub
3. korak: Zdaj omenite stolpec v dvojnih narekovajih .
Koda:
Sub ColumnInsert_Example1 () Obseg ("B: B") Konec Sub
4. korak: Zdaj izberite lastnost Celoten stolpec .
Koda:
Sub ColumnInsert_Example1 () Obseg ("B: B"). Ent Konec Sub
5. korak: Po izbiri lastnosti Celoten stolpec izberite način »Vstavi« .
Koda:
Sub ColumnInsert_Example1 () Obseg ("B: B"). EntireColumn.ins End Sub
Zdaj je vaša koda videti tako.
Koda:
PodkolonaInsert_Example1 () Obseg ("B: B"). EntireColumn.Insert End Sub
Zaženite kodo. Vstavil bo nov stolpec B.
2. primer - Vstavite več stolpcev
Če želite na primer za stolpcem A vstaviti dva nova stolpca, moramo omeniti dva naslova stolpcev.
Koda:
Razpon podstolpcaInsert_Example1 () ("B: C"). EntireColumn.Insert End Sub
Zgornja koda bo vstavila dva stolpca za stolpcem A.
Primer # 3 - Samo z metodo »Vstavi«
Nov stolpec lahko vstavimo z edino metodo »Vstavi«, ne da bi dostopali do lastnosti celotnega stolpca. Za to naj razumemo sintakso metode "insert".
Expression.Insert ((Shift), (Copy Origin))
(Shift): Ko vstavimo nov stolpec, ali moramo stolpce premakniti na desno stran ali v primeru vrstic premakniti na spodnjo stran. Tu lahko uporabimo dve možnosti, "xlToRight" in "xlToRight"
(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:
Sub ColumnInsert_Example3 () Dim k kot celoštevilčni stolpci (2). Izberite Za k = 2 do 8 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Izberite Next k End Sub
Tako boste vstavili stolpec, kot je ta.
Primer # 6 - Vstavi stolpec na podlagi vrednosti celice
Vstavimo lahko tudi stolpec, ki temelji tudi na vrednosti celice. Na primer, poglejte spodnje podatke.
Tukaj želim vstaviti stolpec, če je vrednost celice v prvi vrstici »Leto«, in moji podatki bi morali biti vstavljeni po vstavitvi novih stolpcev.
Za to nalogo uporabite spodnjo kodo.
Koda:
Sub ColumnInsert_Example4 () Dim k As Integer Dim x As Integer x = 2 For k = 2 To 12 If Cells (1, x) .Value = "Year" then Cells (1, x) .EntireColumn.Insert x = x + 1 Konec Če je x = x + 1 Naprej k Končaj Sub
Ta VBA Insert Columns Excel lahko prenesete tukaj. VBA Vstavi stolpce Excel Predloga
