Paprastai „Excel“ darbalapyje mes turime du skirtingus būdus stulpeliams pridėti arba įterpti, ty klaviatūros spartųjį klavišą, kitą - naudodami dešiniuoju pelės mygtuku spustelėkite ir įterpkite metodą, tačiau VBA turime naudoti komandą įterpti ir visą stulpelio teiginį, kad pridėtumėte bet kurį stulpelį, Apgaulė yra ta, kad jei mums reikia įterpti vieną stulpelį, mes pateikiame vieną stulpelio nuorodą, bet keliems stulpeliams - kelias stulpelių nuorodas.
Įterpkite stulpelius į „Excel“ naudodami VBA
Kaip VBA kodo dalį, mums gali tekti į duomenų lapą įterpti keletą stulpelių, kad atitiktų mūsų poreikius. Stulpelio įterpimas yra paprastas spartusis klavišas darbalapyje, paspaudus „ Ctrl +“, bet kaip apie naujo stulpelio įterpimą per VBA kodą. Šiame straipsnyje „VBA įterpti stulpelį“ parodysime stulpelių įtraukimo į „Excel“ procesą ir parodysime skirtingų scenarijų pavyzdžių.
Kaip įterpti stulpelius į „Excel“ darbalapį naudojant VBA?
Mes galime įterpti stulpelius į VBA naudodami COLUMNS ypatybę ir RANGE objektą. Turite, kodėl mums reikia stulpelių ir diapazono objektų, norint įterpti naują stulpelį.
Norėdami įterpti naują stulpelį, turime nustatyti, po kurio stulpelio turime įterpti, nesakydami, po kurio stulpelio turime įterpti, kaip VBA gali suprasti logiką.
Pavyzdžiui, jei norite įterpti stulpelį po B stulpelio, galite sukonstruoti tokį kodą.
Stulpeliai („C“)
Pastaba: Priežastis, kodėl aš naudoju C, norėdamas įterpti stulpelį, nes pasirinktas langelis bus perkeltas į dešinę pusę.
Nurodę stulpelius, turime pasiekti nuosavybę „Visas stulpelis“.
Stulpeliai („C“). „EntireColumn“
Tada turime pasirinkti metodą "Įterpti".
Stulpeliai („C“). „EntireColumn“. Įterpti
Tai įterps stulpelį po C stulpeliu, o esamas C stulpelis bus perkeltas į D.
1 pavyzdys - įterpkite stulpelius naudodami diapazono objektą VBA
Dabar pažvelkite į stulpelio įterpimo būdą naudojant objektą RANGE. Norėdami tai padaryti, apsvarstykite toliau pateiktus duomenis.
Dabar noriu VBA įterpti stulpelį po stulpeliu A, atlikite toliau nurodytus veiksmus, kad sukurtumėte kodą.
1 žingsnis: Pradėkite papildomą procedūrą.
2 žingsnis: Atidarykite objekto diapazoną .
Kodas:
Antrinis stulpelis Įterpti_pavyzdys1 () diapazonas (pabaigos antrinis stulpelis
3 žingsnis: Dabar paminėkite stulpelį dvigubomis kabutėmis .
Kodas:
Antrinis stulpelis Įterpti_pavyzdys1 () Diapazonas ("B: B") Pabaiga
4 žingsnis: Dabar pasirinkite „ Visas stulpelis“ ypatybę.
Kodas:
Antrinis stulpelis Įterpti_pavyzdys1 () Diapazonas ("B: B"). Ent Pabaiga
5 žingsnis: Pasirinkę ypatybę Visas stulpelis, pasirinkite metodą „Įterpti“ .
Kodas:
Antrinis stulpelis Įterpti_pavyzdys1 () diapazonas ("B: B"). EntireColumn.ins Pabaiga
Dabar jūsų kodas atrodo taip.
Kodas:
Antrinis stulpelis Įterpti_pavyzdys1 () diapazonas („B: B“). „EntireColumn“. Įterpti pabaigos antrinę skiltį
Paleiskite kodą. Ji įterps naują B stulpelį.
2 pavyzdys - įterpkite kelis stulpelius
Pvz., Jei norite po A stulpelio įterpti du naujus stulpelius, turime paminėti du stulpelių adresus.
Kodas:
Antrinis stulpelis Įterpti_pavyzdys1 () diapazonas („B: C“). „EntireColumn“. Įterpti pabaigos antrinę skiltį
Ankstesnis kodas po A stulpelio įterps du stulpelius.
3 pavyzdys - naudojant tik metodą „Įterpti“
Mes galime įterpti naują stulpelį naudodami vienintelį metodą „Įterpti“, nepasiekdami visos savybės savybės. Supraskime metodo „įterpti“ sintaksę.
Išraiška. Įterpti ((Shift), (Copy Origin))
(„Shift“): kai įterpiame naują stulpelį, nesvarbu, ar mums reikia, kad stulpeliai pasislenka į dešinę pusę, ar eilučių atveju - į blogąją pusę. Čia galime naudoti dvi parinktis: „xlToRight“ ir „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:
Sub ColumnInsert_Example3 () Dim k kaip sveikieji stulpeliai (2). Pasirinkite k = 2–8 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Pasirinkite Next k End Sub
Taip bus įterptas stulpelis.
6 pavyzdys - įterpkite stulpelį pagal langelio vertę
Mes taip pat galime įterpti stulpelį pagal langelio vertę. Pavyzdžiui, pažiūrėkite į toliau pateiktus duomenis.
Čia noriu įterpti stulpelį, jei pirmosios eilutės langelio vertė yra „Metai“, ir mano duomenys turėtų tai patikti įterpus naujus stulpelius.
Norėdami atlikti šią užduotį, naudokite žemiau pateiktą kodą.
Kodas:
Antrinis stulpelis Įterpti_pavyzdys4 () Dim k kaip sveikasis skaičius x x sveikasis skaičius x = 2 K = 2–12 if ląstelės (1, x) .Vertė = "Metai", tada ląstelės (1, x) .EntireColumn.Iterpti x = x + 1 Pabaiga Jei x = x + 1 Kitas k Pabaiga
Šią „VBA Insert Columns Excel“ galite atsisiųsti čia. VBA Įterpti stulpelius „Excel“ šablonas
