Coloana de insertie Excel VBA

În excel, dacă dorim să introducem o coloană, există mai multe modalități de a o face. Putem face clic dreapta și selectați Inserați coloana din lista derulantă a meniului sau folosind tasta Ctrl + Shift + Plus (+). Dar dacă automat automatizăm acest proces prin crearea unei macro prin VBA? Acest lucru este destul de util atunci când lucrăm la crearea unei macro-uri cu o structură imensă de codare sau la adăugarea unei coloane sau a mai multor coloane, care este, de asemenea, o sarcină de îndeplinit. VBA are o întreagă coloană și funcția Insert este utilizată pentru inserarea unei noi coloane.

Cum se introduce coloana în Excel VBA?

Vom învăța cum să inserați o coloană în excel folosind codul VBA cu câteva exemple.

Puteți descărca acest șablon VBA Insert Column Excel aici - Șablonul VBA Insert Column Excel

Exemplul # 1 - Coloana de insertie VBA

Avem un tabel format din 2 coloane și 11 rânduri așa cum se arată mai jos. Acum vom automatiza procesul de inserare a coloanelor în moduri diferite.

Pentru aceasta, urmați pașii de mai jos:

Pasul 1: Introduceți mai întâi un modul nou în VBA, din opțiunea Insert meniu, așa cum se arată mai jos.

Pasul 2: Acum începeți o subcategorie în numele funcției îndeplinite, cum ar fi VBA Insert Column sau în orice alt nume, așa cum se arată mai jos.

Cod:

 Sub VBAColumn1 () End Sub

Pasul 3: Mai întâi, selectăm gama de celule sau coloane complete în care dorim să introducem o coloană urmată de comanda Insert, așa cum se arată mai jos. Comanda Insert va permite să inserați orice rând sau coloană sau o celulă în coloana sau celula Range selectate.

Cod:

 Sub VBAColumn1 () Interval ("B: B")

Pasul 4: Acum selectați intervalul de celule ca referință de unde dorim să introducem o coloană așa cum se arată mai jos.

Cod:

 Sub VBAColumn1 () Interval ("B: B"). Introduceți intervalul ("B4")

Pasul 5 : După cum este discutat în explicație, vom folosi întreaga Coloană cu funcția Insert, așa cum se arată mai jos. Aceasta va permite introducerea coloanei.

Cod:

 Sub VBAColumn1 () Interval ("B: B"). Insert Range ("B4"). EntireColumn.Insert End Sub

Pasul 6: Compilați acum codul apăsând tasta funcțională F8 și apoi faceți clic pe butonul Redare pentru a rula codul complet care se află sub bara de meniu, așa cum se arată mai jos. Vom observa între column1 și column2, două noi coloane goale vor fi introduse așa cum este arătat mai jos.

Exemplul # 2 - Coloana de insertie VBA

Există o altă metodă de introducere a unei coloane. Această metodă include o combinație de diverse comenzi.

Pasul 1: Introduceți un modul nou din meniul Insert.

Pasul 2: și scrieți o subcategorie în numele funcției Executate, așa cum se arată mai jos sau în orice alt nume.

Cod:

 Sub VBAColumn2 () End Sub

Pasul 3: Cu ajutorul variabilei de dimensiune DIM cu orice alfabet sau nume, definiți-o ca Range let 'say Column așa cum se arată mai jos.

Cod:

 Sub VBAColumn2 () Dim Coloană Sub Range Sub

Pasul 4: Acum urmând intervalul, utilizați o funcție Set cu coloana cu dimensiunea definită așa cum se arată mai jos, urmată de semn egal („=”).

Cod:

 Sub VBAColumn2 () Dim Coloană ca interval: Set Column = End Sub

Pasul 5: Utilizați acum funcția de aplicație care este încorporată în VBA cu un interval definit de coloana B. completă.

Cod:

 Sub VBAColumn2 () Dim Coloană ca interval: Set Column = Application.Range ("B: B") End Sub

Pasul 6: Utilizați acum variabila Coloană cu funcția Insert, așa cum se arată mai jos.

Cod:

 Sub VBAColumn2 () Dim Coloană ca interval: Set Column = Application.Range ("B: B") Column.Insert End Sub

Pasul 7: Putem schimba pentru a insera o coloană în direcția din dreapta sau din stânga cu ajutorul comenzii Shift. În mod normal, coloana este introdusă în direcția dreaptă întotdeauna din celula sau coloana selectată de referință.

Cod:

 Sub VBAColumn2 () Dim Coloană ca interval: Set Column = Application.Range ("B: B") Shift Column.Insert: = xlShiftToRight, Sub End

Pasul 8: În sfârșit, selectați formatul de referință de origine din dreapta sau sub care este pentru Coloana sau Rândul, în funcție de tipul de inserție.

Cod:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Shift Column.Insert: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Pasul 9: Acum este finalizat. Putem compila codul și îl putem rula. Vom vedea o nouă coloană între Colum1 și Column2 va fi adăugată așa cum este arătat mai jos.

Exemplul # 3 - Coloana de insertie VBA

Acest exemplu este un alt mod mai simplu de a insera o coloană în VBA.

Pasul 1: Introduceți un nou modul

Pasul 2: Adăugați o subcategorie în numele Coloanei de insertie VBA, așa cum se arată mai jos.

Cod:

 Sub VBAColumn3 () End Sub

Pasul 3: Mai întâi selectați coloana sau referința celulei unde dorim să adăugăm o coloană cu ajutorul Selectați, așa cum se arată mai jos.

Cod:

 Sub VBAColumn3 () Coloane ("B: B"). Selectați End Sub

Pasul 4: În a doua linie, utilizați comanda Selecție împreună cu funcția Insert, așa cum se arată mai jos.

Cod:

 Sub VBAColumn3 () Coloane ("B: B"). Selectați Selecție.Insertă Sub final

Pasul 5: În sfârșit, selectăm poziția în care dorim să mutăm coloana nouă introdusă, la dreapta sau la stânga, cu ajutorul funcției Shift. Selecția de plasare a unei noi coloane depinde de cerințele individului.

Cod:

 Sub VBAColumn3 () Coloane ("B: B"). Selectați Selecție.Insert Shift: = xlToRight End Sub

Pasul 6: Acesta completează codul nostru. Acum putem compila codul pentru a găsi dacă există vreo eroare. Dacă nu există nicio eroare, atunci executați codul. Vom vedea că o nouă coloană va fi adăugată între coloana1 și coloana2, așa cum se arată mai jos.

Exemplul # 4 - Coloana de insertie VBA

În acest exemplu, vom învăța cum să adăugăm coloane noi după fiecare coloană deja în picioare.

Pasul 1: Acum introduceți un modul din meniul Inserare.

Pasul 2: După aceea, adăugați subcategoria în numele VBA Insert Column cu o secvență de numere.

Cod:

 Sub VBAColumn4 () End Sub

Pasul 3: Acum folosiți DIM pentru a defini o variabilă în orice nume. Am folosit Coloana ca număr întreg (În cazul în care sunt utilizate numere)

Cod:

 Sub VBAColumn4 () Dim Coloană Ca punct final final

Pasul 4: La o coloană după fiecare coloană umplută în picioare, vom selecta și vom folosi Coloana (2) pentru a adăuga o nouă coloană, așa cum se arată mai jos.

Cod:

 Sub VBAColumn4 () Dim Coloană Ca coloane întregi (2). Selectați Sub

Pasul 5: Deschideți o buclă For-Next, unde vom scrie condițiile pentru a introduce o coloană una după alta, așa cum este arătat.

Cod:

 Sub VBAColumn4 () Dim Coloană ca coloane întregi (2). Selectați pentru următorul cap

Pasul 6: Deoarece avem doar două coloane în datele noastre de probă, astfel încât am putea adăuga doar o nouă coloană din aceste coloane. Așadar, folosim 0 până la 2 game de coloane de secvență.

Cod:

 Sub VBAColumn4 () Dim Coloană Ca coloane întregi (2). Selectați pentru coloană = 0 până la 2 Următorul Sub

Pasul 7: Cu ajutorul funcției ActiveCell, folosiți EntireColumn pentru a insera așa cum este arătat mai jos.

Cod:

 Sub VBAColumn4 () Dim Coloană ca coloane întregi (2). Selectați pentru coloană = 0 până la 2 ActiveCell.EntireColumn.Insert Next End Sub

Pasul 8: cu ajutorul funcției ActiveCell, utilizați Offset pentru a plasa coloana recent adăugată. Folosim poziția 0 și 2.

Cod:

 Sub VBAColumn4 () Dim Coloană ca coloane întregi (2). Selectați pentru coloană = 0 până la 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Selectați Următorul final Sub

Pasul 9: Acum compilați codul și executați-l, dacă nu a fost găsită nicio eroare. Vom vedea, după column1 și column2, se adaugă noi coloane.

Beneficiile coloanei de insertie VBA Excel

  • Este util ca adăugarea rapidă a unei noi coloane în orice gamă de celule.
  • Este ușor de implementat chiar dacă structura codului este imensă.
  • Dacă lucrăm la un cod uriaș, o nouă coloană devine necesitatea completării codului, folosind exemplele de mai sus va face sarcina ușoară.

Lucruri de amintit

  • Dacă utilizați exemplul 4, amintiți-vă să selectați intervalul de coloane până la aplicarea tabelului.
  • Salvarea fișierului în macro activare excel, salvează codul.
  • Introduceți doar coloane aplicabile și obligatorii pentru a evita să fie adăugate coloane ne-necesare.

Articole recomandate

Acesta este un ghid pentru coloana de insertie VBA. Aici vom discuta despre cum să inserați Coloana în Excel folosind codul VBA, împreună cu exemple practice și șablon Excel descărcabil. De asemenea, puteți parcurge și alte articole sugerate -

  1. Funcția VBA VLOOKUP
  2. Funcția DCOUNT în Excel
  3. Copiere VBA Copiere
  4. Funcție COMBIN în Excel

Categorie:

VBA