Parasti Excel darblapā mums ir divas dažādas metodes, lai izdzēstu kolonnas: viena ir īsinājumtaustiņš un otra, izmantojot peles labo pogu noklikšķiniet un ievietojiet metodi, bet VBA mums ir jāizmanto komanda komandai Dzēst un viss slejas paziņojums, lai kopā izdzēstu jebkuru kolonnu, triks tas ir tas, ka, ja mums ir jāizdzēš viena kolonna, mēs sniedzam vienu kolonnu atsauci, bet vairākām kolonnām - vairākas kolonnu atsauces.
Excel VBA kolonnas dzēšana
Mēs Excel darbībā veicam daudzas darbības, piemēram, izgriezt, kopēt, ielīmēt, pievienot, dzēst, ievietot un daudzas šādas darbības, ko mēs regulāri darām. Visas šīs darbības mēs varam izmantot, izmantojot VBA kodēšanu. Viens no svarīgākajiem jēdzieniem, kas mums jāapgūst, ir VBA, ir “kolonnas dzēšana”. Šajā rakstā mēs parādīsim, kā izmantot šo opciju Dzēst kolonnu VBA.
Ko kolonnā Dzēst veic Excel VBA?
Kā saka nosaukums, tas izdzēsīs norādīto kolonnu. Lai veiktu šo uzdevumu, mums vispirms ir jānosaka, kura kolonna mums ir jāizdzēš. Dzēšamo kolonnu izvēle dažādos scenārijos atšķiras, tāpēc šajā rakstā mēs aplūkosim dažus no svarīgākajiem un bieži sastopamajiem scenārijiem.
Kolonnu dzēšana ir vienkārša. Pirmkārt, mums jāizmanto rekvizīts COLUMNS, lai atlasītu kolonnu, tāpēc zemāk ir VBA kolonnas dzēšanas metodes sintakse.
Kolonnas (kolonnu atsauce). Dzēst
Tātad kodu varam izveidot šādi:
Kolonnas (2). Dzēst vai kolonnas (“B”). Dzēst
Tas izdzēsīs 2. slejas numuru, ti, B sleju.
Ja mēs vēlamies izdzēst vairākas kolonnas, mēs nevaram ievadīt kolonnas. Kolonnas mums jāatsaucas pēc kolonnu galvenēm, ti, alfabētiem.
Kolonnas (“A: D”). Dzēst
Tas izdzēsīs kolonnu no A līdz D, ti, pirmās 4 kolonnas.
Tāpat mēs varam izmantot metodi “Dzēst kolonnu” VBA, lai izdzēstu konkrētās kolonnas. Zemāk redzēsim vairāk piemēru, lai to labāk izprastu. Turpini lasīt.
Excel VBA kolonnas dzēšanas metodes piemēri
Tālāk ir sniegti piemēri, kā izdzēst kolonnas, izmantojot VBA.
1. piemērs - dzēšanas metodes izmantošana
Pieņemsim, ka jums ir datu lapa, kaut kas līdzīgs zemāk redzamajam.
Ja mēs vēlamies izdzēst kolonnu mēnesi “Mar”, vispirms atlasiet kolonnu rekvizītu.
Kods:
Sub Delete_Example1 () kolonnas (End Sub
Pieminiet kolonnas numuru vai alfabētu. Šajā gadījumā tas ir vai nu 3, vai C.
Kods:
Sub Delete_Example1 () kolonnas (3). Beigu apakšnodaļa
Izmantojiet dzēšanas metodi.
Piezīme: jūs nedabūsit IntelliSense sarakstu, lai izvēlētos Dzēšanas metodi. Vienkārši ierakstiet “Dzēst”Kods:
Sub Delete_Example1 () kolonnas (3). Dzēst End Sub
Vai arī varat ievadīt kolonnas adresi šādi.
Kods:
Sub Delete_Example1 () kolonnas ("C"). Dzēst End Sub
Palaidiet šo kodu, izmantojot F5 taustiņu, vai arī varat palaist manuāli un redzēt rezultātu.
Abi kodi veiks to pašu darbu, dzēšot minēto kolonnu.
Ja mēs vēlamies izdzēst vairākas kolonnas, tās jāpiemin alfabētā. Mēs šeit nevaram izmantot kolonnu numurus.
Ja mēs vēlamies izdzēst 2. līdz 4. kolonnu, mēs varam nodot kodu tāpat kā tālāk.
Kods:
Sub Delete_Example1 () kolonnas ("C: D"). Dzēst 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.
4. piemērs - dzēsiet tukšo šūnu kolonnas
Tagad aplūkojiet šo piemēru. Ir dažas situācijas, kad mums ir jāizdzēš visa kolonna, ja datu diapazonā tiek atrasta kāda no tukšajām šūnām. Apsveriet tālāk minētos datus.
Visas dzeltenās krāsas šūnas ir tukšas. Tāpēc šeit ir prasība dzēst visas tukšo šūnu kolonnas. Zemāk esošais kods to izdarīs.
Kods:
Sub Delete_Example4 () diapazons ("A1: F9"). Atlasiet Selection.SpecialCells (xlCellTypeBlanks). Atlasiet Selection.EntireColumn.Delete End Sub
Ļaujiet man jums izskaidrot šo kodu pa rindām.
Mūsu dati ir no A1 līdz F9, tāpēc vispirms man jāizvēlas šis diapazons, un to izdarīs zemāk esošais kods.
Diapazons ("A1: F9"). Atlasiet
Šajā atlasītajā šūnu diapazonā man jāatlasa tukšās šūnas. Tātad, lai atlasītu tukšu šūnu, mums ir jāparedz īpašs šūnu rekvizīts, un šajā īpašumā mēs izmantojām šūnu tipu kā tukšu.
Selection.SpecialCells (xlCellTypeBlanks). Atlasiet
Tālāk tas atlasīs visas tukšās šūnas, un atlasē mēs izdzēsīsim visu atlases kolonnu.
Selection.EntireColumn.Delete
Tātad mūsu gala rezultāts izskatīsies šādi.
Kur tas ir atradis tukšo šūnu, tas ir izdzēsis šīs tukšās šūnas visā kolonnā.
Jūs varat lejupielādēt šo Excel VBA kolonnas dzēšanas šeit - VBA kolonnas veidnes dzēšana
