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