Овај водич ће показати различите начине брисања редова и колона у Екцелу помоћу ВБА.
Избришите цео ред или колону
Да бисте избрисали читав ред у ВБА, користите овај ред кода:
| 1 | Редови (1) .Брисати |
Приметите да користимо Избриши начин брисања реда.
Уместо позивања на Ровс Објецт, можете се позивати на редове на основу њихових Објекат домета са Цео ред:
| 1 | Опсег ("а1"). ЕнтиреРов.Делете |
Слично за брисање целе колоне, користите ове редове кода:
| 1 | Колоне (1) .Брисати |
| 1 | Опсег ("а1"). ЕнтиреЦолумн.Делете |
Избришите више редова или колона
Користећи исту логику, можете избрисати и више редова одједном:
| 1 | Редови („1: 3“). Избришите |
или колоне:
| 1 | Колоне („А: Ц“). Избришите |
Приметите да се овде позивамо на посебне бројеве / слова редова и колона окружене наводницима.
Наравно, можете се позвати и на ЕнтиреРов опсега:
| 1 | Опсег ("а1: а10"). ЕнтиреРов.Делете |
Напомена: Примери у наставку само показују брисање редова, међутим, као што видите горе, синтакса је готово идентична за брисање колона.
Избришите празне / празне редове
Овај пример ће избрисати ред ако је цео ред празан:
| 1234567891011 | Суб ДелетеРовс_ЕнтиреРовБланк ()Дим целл Ас РангеЗа сваку ћелију у домету ("б2: б20")Ако је Апплицатион.ВорксхеетФунцтион.ЦоунтА (целл.ЕнтиреРов) = 0 Затимцелл.ЕнтиреРов.ДелетеКрај АкоСледећа ћелијаЕнд Суб |
Користи функцију радног листа програма Екцел: ЦОУНТА.
Избриши ред ако је ћелија празна
Ово ће избрисати ред ако је одређена колона у том реду празна (у овом случају колона Б):
| 1 | Опсег ("б3: б20"). Посебне ћелије (клЦеллТипеБланкс) .ЕнтиреРов.Делете |
Избриши ред на основу вредности ћелије
Ово ће проћи кроз опсег и избрисати редове ако одређена вредност ћелије у том реду каже „обриши“.
| 1234567891011 | Суб ДелетеРовсвитхСпецифицВалуе ()Дим целл Ас РангеЗа сваку ћелију у домету ("б2: б20")Ако је целл.Валуе = "делете" Затимцелл.ЕнтиреРов.ДелетеКрај АкоСледећа ћелијаЕнд Суб |
Још примера брисања редова и колона
Избришите дупле редове
Овај код ће избрисати све дупле редове у опсегу:
| 1 | Опсег ("б2: ц100"). РемовеДуплицатес Колоне: = 2 |
Приметите да смо поставили колоне: = 2. Ово говори ВБА да провери обе прве колоне података када разматра да ли су редови дупликати. Дупликат се налази само ако обе колоне имају дупликате вредности.
Да смо ово подесили на 1, само би се у првом реду проверило да ли има дуплих вредности.
Избришите редове табеле
Овај код ће избрисати други ред у Табели упућивањем на ЛистОбјецтс.
| 1 | ТхисВоркбоок.Схеетс ("Схеет1"). ЛистОбјецтс ("лист1"). ЛистРовс (2) .Делете |
Избришите филтриране редове
Да бисте избрисали само редове који су видљиви након филтрирања:
| 1 | Опсег ("б3: б20"). СпециалЦеллс (клЦеллТипеВисибле) .ЕнтиреРов.Делете |
Избришите редове у опсегу
Овај код ће избрисати све редове у опсегу:
| 1 | Опсег ("а1: а10"). ЕнтиреРов.Делете |
Избришите изабране редове
Овај код ће избрисати све изабране редове:
| 1 | Селецтион.ЕнтиреРов.Делете |
Избриши последњи ред
Ово ће избрисати последњи коришћени ред у колони Б:
| 1 | Ћелије (Ровс.Цоунт, 2) .Енд (клУп) .ЕнтиреРов.Делете |
Променом 2 на 1, можете избрисати последњи коришћени ред у колони А, итд .:
| 1 | Ћелије (Ровс.Цоунт, 1) .Енд (клУп) .ЕнтиреРов.Делете |
Брисање колона по броју
Да бисте избрисали колону према њеном броју, користите овакав код:
| 1 | Колоне (2) .Брисати |
