Обично у Екцеловом радном листу имамо две различите методе за брисање колона, од којих је једна пречица на тастатури, а друга коришћењем методе десним кликом и уметањем, али у ВБА морамо да користимо наредбу делете и целу изјаву колоне да бисмо заједно избрисали било коју колону, трик је ово је да ако треба да избришемо један ступац дајемо референцу за један ступац, али за више колона дајемо више референци за колоне.
Екцел ВБА колона за брисање
Много радњи изводимо у Екцелу попут резања, копирања, лепљења, додавања, брисања, уметања и многих таквих ствари које редовно радимо. Све ове радње можемо користити помоћу ВБА кодирања. Један од важних концепата који треба да научимо је у ВБА је „брисање колоне“. У овом чланку ћемо вам показати како да користите ову опцију Делете Цолумн у ВБА.
Шта ради брисање колоне у програму Екцел ВБА?
Као што и само име каже, избрисаће наведену колону. Да бисмо извршили овај задатак, прво морамо да идентификујемо коју колону морамо да избришемо. Избор колона за брисање разликује се од једног до другог сценарија, па ћемо у овом чланку покрити неке од важних и често суочених сценарија.
Брисање колона је једноставно. Прво треба да користимо својство ЦОЛУМНС да бисмо изабрали колону, па је испод синтакса методе брисања колоне у ВБА.
Колоне (Референца за колоне) .Делете
Дакле, можемо конструисати код овако:
Колоне (2) .Избриши или Колоне („Б“). Избриши
Овим ћете избрисати колону број 2, тј. Колону Б.
Ако желимо да избришемо више колона, не можемо да уносимо колоне. Морамо да референцирамо колоне према заглављима колона, тј. Абецеди.
Колоне („А: Д“). Избриши
Ово ће избрисати колону од А до Д, тј. Прве 4 колоне.
Овако, можемо да користимо методу „Избриши колону“ у ВБА за брисање одређених колона. У одељку доле видећемо још примера за боље разумевање. Прочитајте на.
Примери Екцел ВБА методе брисања колоне
Испод су примери за брисање колона помоћу ВБА.
Пример # 1 - Коришћење методе брисања
Претпоставимо да имате табелу података, нешто попут доле наведеног.
Ако желимо да избришемо месец колоне „март“, прво изаберите својство колона.
Шифра:
Суб Делете_Екампле1 () Колоне (Крај Суб
Наведите број колоне или абецеду. У овом случају је или 3 или Ц.
Шифра:
Подизбриши_Пример1 () Колоне (3). Енд Суб
Користите методу Делете.
Напомена: нећете добити ИнтеллиСенсе листу да бисте изабрали методу Делете. Само откуцајте „Делете“Шифра:
Подизбриши_Пример1 () Колоне (3) .Избриши крај Под
Или можете унети адресу колоне овако.
Шифра:
Суб Делете_Екампле1 () Колоне ("Ц"). Избриши Крај Суб
Покрените овај код помоћу тастера Ф5, или можете покренути ручно и видети резултат.
Оба кода извршиће исти посао брисања поменуте колоне.
Ако желимо да избришемо више колона, морамо их споменути у абецеди. Овде не можемо користити бројеве колона.
Ако желимо да избришемо колоне 2 до 4, можемо проследити код као доле.
Шифра:
Суб Делете_Екампле1 () Колоне ("Ц: Д"). Избриши Крај Суб
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 - Избришите колоне празних ћелија
Погледајте овај пример. Постоје одређене ситуације у којима морамо да избришемо целу колону ако се у опсегу података нађе било која празна ћелија. За пример размотрите податке у наставку.
Све ћелије жуте боје су празне. Дакле, овде је мој захтев да избришем све празне колоне ћелија. То ће учинити доњи код.
Шифра:
Суб Делете_Екампле4 () Распон ("А1: Ф9"). Изаберите Селецтион.СпециалЦеллс (клЦеллТипеБланкс). Изаберите Селецтион.ЕнтиреЦолумн.Делете Енд Суб
Да вам објасним овај код ред по ред.
Наши подаци су тамо од А1 до Ф9, тако да прво морам да изаберем тај опсег, а доњи код ће то учинити.
Опсег ("А1: Ф9"). Изаберите
У овом одабраном опсегу ћелија морам да изаберем ћелије које су празне. Дакле, да бисмо изабрали празну ћелију, потребно је да одредимо својство ћелија и у том својству смо користили тип ћелије као празан.
Селецтион.СпециалЦеллс (клЦеллТипеБланкс) .Селецт
Даље, изабраће све празне ћелије, а у избору бришемо целу колону избора.
Селецтион.ЕнтиреЦолумн.Делете
Тако ће наш крајњи резултат изгледати овако.
Где год је пронашао празну ћелију, избрисао је те празне ћелије целу колону.
Ову Екцел ВБА колону за брисање можете преузети овде - ВБА предложак за брисање колоне
