Paprastai „Excel“ darbalapyje mes turime du skirtingus būdus, kaip ištrinti stulpelius: vienas yra spartusis klavišas, kitas - naudojant dešinįjį pelės klavišą ir įterpimo metodą, tačiau VBA turime naudoti komandą „Ištrinti“ ir visą stulpelio teiginį, kad kartu ištrintumėte bet kurį stulpelį, apgauti tai yra tai, kad jei mums reikia ištrinti vieną stulpelį, mes pateikiame vieno stulpelio nuorodą, bet keliems stulpeliams - kelias stulpelių nuorodas.
„Excel VBA“ stulpelis
„Excel“ atliekame daugybę veiksmų, tokių kaip karpymas, kopijavimas, įklijavimas, pridėjimas, ištrynimas, įterpimas ir daugelis tokių dalykų, kuriuos darome reguliariai. Visus šiuos veiksmus galime naudoti naudodami VBA kodavimą. Viena iš svarbių sąvokų, kurią turime išmokti, yra „VBA“ yra „stulpelio trynimas“. Šiame straipsnyje mes parodysime, kaip naudoti šią parinktį Ištrinti stulpelį VBA.
Ką „Excel VBA“ atlieka stulpelio ištrynimas?
Kaip sako pavadinimas, jis ištrins nurodytą stulpelį. Norėdami atlikti šią užduotį, pirmiausia turime nustatyti, kurį stulpelį turime ištrinti. Stulpelių pasirinkimas, kurį norite ištrinti, skiriasi nuo kiekvieno scenarijaus, todėl šiame straipsnyje aptarsime keletą svarbių ir dažnai susiduriančių scenarijų.
Stulpelius ištrinti lengva. Pirma, norėdami pasirinkti stulpelį, turime naudoti ypatybę COLUMNS, todėl žemiau pateikiama VBA stulpelio Delete metodo sintaksė.
Stulpeliai (stulpelio nuoroda). Ištrinti
Taigi kodą galime sukonstruoti taip:
Stulpeliai (2). Ištrinti arba stulpelius („B“). Ištrinti
Taip bus ištrintas 2 stulpelis, ty B stulpelis.
Jei norime ištrinti kelis stulpelius, negalime įvesti stulpelių. Stulpelius turime nurodyti pagal stulpelių antraštes, ty abėcėles.
Stulpeliai („A: D“). Ištrinti
Tai ištrins stulpelį nuo A iki D, ty pirmuosius 4 stulpelius.
Panašiai mes galime naudoti VBA metodą „Ištrinti stulpelį“ tam, kad ištrintume konkrečius stulpelius. Tolesniame skyriuje pamatysime daugiau pavyzdžių, kad geriau jį suprastume. Skaityk.
„Excel VBA“ stulpelio ištrynimo metodo pavyzdžiai
Toliau pateikiami pavyzdžiai, kaip ištrinti stulpelius naudojant VBA.
1 pavyzdys - naudojant ištrynimo metodą
Tarkime, kad turite duomenų lapą, panašų į žemiau pateiktą.
Jei norime ištrinti stulpelių mėnesį „Kov“, pirmiausia pasirinkite stulpelių ypatybę.
Kodas:
Sub Delete_Pavyzdys1 () stulpeliai (End Sub
Nurodykite stulpelio numerį arba abėcėlę. Šiuo atveju tai yra 3 arba C.
Kodas:
Sub Delete_Example1 () stulpeliai (3). Pabaigos sub
Naudokite ištrinimo metodą.
Pastaba: negausite „IntelliSense“ sąrašo, kad pasirinktumėte ištrynimo metodą. Tiesiog įveskite „Ištrinti“Kodas:
Sub Delete_Example1 () stulpeliai (3). Ištrinkite pabaigos antrinį elementą
Arba galite įvesti tokį stulpelio adresą.
Kodas:
Sub Delete_Pavyzdys1 () stulpeliai ("C"). Ištrinkite End Sub
Paleiskite šį kodą naudodami klavišą F5, arba galite paleisti rankiniu būdu ir pamatyti rezultatą.
Abu kodai atliks tą patį darbą ištrindami minėtą stulpelį.
Jei norime ištrinti kelis stulpelius, turime juos paminėti abėcėlėje. Čia negalime naudoti stulpelių numerių.
Jei norime ištrinti 2–4 stulpelius, galime perduoti kodą, kaip nurodyta toliau.
Kodas:
Sub Delete_Example1 () stulpeliai ("C: D"). Ištrinkite 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 pavyzdys - ištrinkite tuščių langelių stulpelius
Dabar pažvelk į šį pavyzdį. Yra tam tikrų situacijų, kai turime ištrinti visą stulpelį, jei duomenų diapazone randama kuri nors iš tuščių langelių. Apsvarstykite toliau pateiktus duomenis.
Visos geltonos spalvos langeliai tušti. Taigi čia reikalauju ištrinti visus tuščių langelių stulpelius. Žemiau pateiktas kodas tai padarys.
Kodas:
Sub Delete_Example4 () diapazonas ("A1: F9"). Pasirinkite Selection.SpecialCells (xlCellTypeBlanks). Pasirinkite Selection.EntireColumn.Delete End Sub
Leiskite man paaiškinti šį kodą eilutėje po eilutę.
Mūsų duomenys yra nuo A1 iki F9, todėl pirmiausia turiu pasirinkti tą diapazoną, o tai padarys žemiau pateiktas kodas.
Diapazonas ("A1: F9"). Pasirinkite
Šiame pasirinktame langelių diapazone turiu pasirinkti tuščius langelius. Taigi, norėdami pasirinkti tuščią langelį, turime pažymėti langelių ypatybę, o šioje savybėje langelio tipą naudojome kaip tuščią.
Selection.SpecialCells (xlCellTypeBlanks). Pasirinkite
Tada jis pasirinks visas tuščias langelius, o pasirinkdami ištrinsime visą pasirinkimo stulpelį.
Selection.EntireColumn.Delete
Taigi mūsų galutinis rezultatas atrodys taip.
Kur rado tuščią langelį, jis ištrynė visas tuščias langelius.
Čia galite atsisiųsti šį „Excel VBA Delete“ stulpelį - „VBA Delete“ stulpelio šabloną
