În mod normal, în foaia de lucru Excel avem două metode diferite pentru a șterge coloanele, una fiind comanda rapidă de la tastatură și alta utilizând metoda clic dreapta și inserare, dar în VBA trebuie să folosim comanda șterge și întreaga instrucțiune coloană pentru a șterge împreună orice coloană, trucul aceasta este că, dacă trebuie să ștergem o singură coloană, oferim o singură coloană de referință, dar pentru mai multe coloane oferim mai multe coloane de referință.
Coloana de ștergere Excel VBA
Efectuăm multe acțiuni în Excel, cum ar fi tăierea, copierea, lipirea, adăugarea, ștergerea, inserarea și multe astfel de lucruri pe care le facem în mod regulat. Putem folosi toate aceste acțiuni folosind codarea VBA. Unul dintre conceptele importante pe care trebuie să le învățăm este în VBA este „coloana de ștergere”. În acest articol, vă vom arăta cum să utilizați această opțiune Ștergere coloană în VBA.
Ce face Ștergerea coloanei în Excel VBA?
După cum spune numele, va șterge coloana specificată. Pentru a efectua această sarcină, trebuie mai întâi să identificăm ce coloană trebuie să ștergem. Selecția coloanelor de șters este diferită de la un scenariu la altul, așa că vom acoperi unele dintre scenariile importante și deseori confruntate în acest articol.
Ștergerea coloanelor este ușoară. Mai întâi, trebuie să folosim proprietatea COLUMNS pentru a selecta coloana, deci mai jos este sintaxa metodei Ștergerea coloanei în VBA.
Coloane (Column Reference). Ștergeți
Deci putem construi codul astfel:
Coloane (2). Ștergeți sau Coloane („B”). Ștergeți
Aceasta va șterge coloana numărul 2, adică Coloana B.
Dacă dorim să ștergem mai multe coloane, nu putem introduce coloane. Trebuie să referim coloanele după anteturi de coloană, adică alfabete.
Coloane („A: D”). Ștergeți
Aceasta va șterge coloana de la A la D, adică primele 4 coloane.
Astfel, putem utiliza metoda „Șterge coloana” în VBA pentru a șterge coloanele particulare. În secțiunea de mai jos, vom vedea mai multe exemple pentru a o înțelege mai bine. Citește mai departe.
Exemple de metodă Excel VBA Delete Column
Mai jos sunt exemple de ștergere a coloanelor folosind VBA.
Exemplul # 1 - Utilizarea metodei de ștergere
Să presupunem că aveți foaia de date, ceva de genul celor de mai jos.
Dacă dorim să ștergem coloana „Mar”, selectați mai întâi proprietatea coloanelor.
Cod:
Sub Delete_Example1 () Coloane (End Sub
Menționați numărul coloanei sau alfabetul. În acest caz, este fie 3, fie C.
Cod:
Sub Ștergere_Exemplu1 () Coloane (3). Sfârșitul Sub
Utilizați metoda Ștergere.
Notă: nu veți obține lista IntelliSense pentru a selecta metoda Ștergere. Tastați „Ștergeți”Cod:
Sub Delete_Example1 () Coloane (3). Ștergeți End Sub
Sau puteți introduce adresa coloanei astfel.
Cod:
Sub Delete_Example1 () Coloane ("C"). Ștergeți End Sub
Rulați acest cod folosind tasta F5 sau puteți rula manual și puteți vedea rezultatul.
Ambele coduri vor face aceeași treabă de a șterge coloana menționată.
Dacă dorim să ștergem mai multe coloane, trebuie să le menționăm în alfabet. Nu putem folosi numerele de coloane aici.
Dacă dorim să ștergem coloanele de la 2 la 4, putem transmite codul ca cel de mai jos.
Cod:
Sub Delete_Example1 () Coloane ("C: D"). Ștergeți End Sub
Run this code manually through the run option or press the F5 key. This will delete the columns “Feb,” “Mar,” and “Apr.”
Example #2 - Delete Columns with Worksheet Name
The above is an overview of how to delete columns using VBA code. However, that is not the good practice of deleting columns. Without referring the worksheet name, it is dangerous to blindly delete the column.
If you have not mentioned the worksheet name, then whichever sheet is active, it will delete columns of that sheet.
First, we need to select the worksheet by its name.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Select End Sub
After selecting the sheet, we need to select the columns. We can also select the columns by using the VBA RANGE object as well.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Select Range("B:D").Delete End Sub
This will delete the columns B to D of the worksheet “Sales Sheet.” For this code, it doesn’t matter which is active. Still, it will delete the mentioned columns of that sheet only.
We can also construct the VBA code in the single line itself.
Code:
Sub Delete_Example2() Worksheets("Sales Sheet").Range("B:D").Delete End Sub
This also deletes the columns “B to D” without selecting the worksheet “Sales Sheet.”
Example #3 - Delete Blank Columns
Assume you have data that has alternative blank columns like the below.
So, delete every alternative column we can use the below code.
Code:
Sub Delete_Example3() Dim k As Integer For k = 1 To 4 Columns(k + 1).Delete Next k End Sub
Run this code using the F5 key or manually. Then, it will delete all the alternative blank columns, and our data will look like this.
Exemplul # 4 - Ștergeți coloanele de celule goale
Uită-te acum la acest exemplu. Există anumite situații în care trebuie să ștergem întreaga coloană dacă oricare dintre celulele goale se găsesc în intervalul de date. Luați în considerare datele de mai jos pentru un exemplu.
Toate celulele de culoare galbenă sunt goale. Deci, aici, cerința mea este să șterg toate coloanele de celule goale. Codul de mai jos va face acest lucru.
Cod:
Sub Delete_Example4 () Range ("A1: F9"). Selectați Selection.SpecialCells (xlCellTypeBlanks). Selectați Selection.EntireColumn.Elete End End
Permiteți-mi să vă explic acest cod rând cu rând.
Datele noastre sunt de la A1 la F9, deci mai întâi trebuie să selectez intervalul respectiv, iar codul de mai jos va fi acela.
Gama („A1: F9”). Selectați
În acest interval selectat de celule, trebuie să selectez celulele necompletate. Deci, pentru a selecta o celulă necompletată, trebuie să avem proprietăți speciale de celule, iar în acea proprietate am folosit tipul de celulă ca necompletat.
Selection.SpecialCells (xlCellTypeBlanks). Selectați
Apoi, va selecta toate celulele goale și, în selecție, ștergem întreaga coloană a selecției.
Selection.EntireColumn.Delete
Deci rezultatul nostru final va arăta astfel.
Oriunde a găsit celula goală, a șters întreaga coloană a acestor celule goale.
Puteți descărca această coloană de ștergere Excel VBA aici - Șablon ștergere coloană VBA
