У овом чланку ћемо сазнати како да избришете празне колоне кроз ВБА у програму Мицрософт Екцел. Избрисаћемо колоне које су потпуно празне, што значи ако у целој колони нема података.
Узмимо пример и схватимо:
Имамо податке у опсегу А1: И21, у којем колона А садржи име, колона Б је празна, колона Ц садржи адресу, колона Д Град, колона Е је празна, колона Ф садржи регион, колона Г је празна, колона Х садржи државу име, а колона И садржи телефонски број.
Желимо да избришемо празне колоне из података, следимо доле наведене кораке и код:
- Отворите страницу ВБЕ да притиснете тастер Алт+Ф11
- Уметните модул за писање кода
- Напишите доле наведени код:
Суб Делете_Цолумнс () Дим Ц Ас Интегер Ц = АцтивеСхеет.Целлс.СпециалЦеллс (клЛастЦелл) .Цолумн До Унтил Ц = 0 Иф ВорксхеетФунцтион.ЦоунтА (Цолумнс (Ц)) = 0 Тхен Цолумнс (Ц) .Делете Енд Иф Ц = Ц - 1 Лооп Енд Суб
Објашњење кода:
Прво смо дефинисали све променљиве. Затим опсег празних колона, а затим смо користили „Уради до петље“ за брисање празних колона. Сада смо дефинисали празну колону и команду за брисање.
Да бисте покренули код, притисните тастер Ф5 на тастатури,
- Све празне колоне ће бити избрисане.
На овај начин можемо избрисати празне колоне кроз ВБА у Мицрософт Екцелу.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште