У случају да желите да ВБА код уклони све празне просторе само у активном листу, овај чланак ће вам дефинитивно помоћи. Много пута смо грешком остављали размак на крају или понекад копирамо податке са веба и не примећујемо. У овом чланку ћемо научити како уклонити грешку остављену.
Питање): У Екцелу можемо користити функцију ТРИМ са ЗАМЕНИТЕЉЕМ & ЦХАР -ом, тј. = ТРИМ (ЗАМЕНА (А1, ЦХАР (160), "")) да уклонимо крајњи размак на крају било којег текста.
Желео бих да ми макро помогне у уклањању свих непотребних размака остављених на крају низа.
Да бисте добили код за уклањање размака на крају текста; морамо да следимо кораке у наставку да бисмо покренули ВБ едитор.
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
Копирајте следећи код у модул радног листа
Подрезани простор ()
Дим ц Ас Ранге, рнгЦонстантс Ас Ранге
На Грешка Настави даље
Постави рнгЦонстантс = АцтивеСхеет.УседРанге.СпециалЦеллс (2, 2)
Он Еррор ГоТо 0
Ако није рнгЦонстантс је ништа
оптимизирати перформансе
Апплицатион.СцреенУпдатинг = Нетачно
Апплицатион.Цалцулатион = клЦалцулатионМануал
'трим ћелије укључујући цхар 160
За сваки ц У рнгЦонстантс
ц.Валуе = Трим $ (Апплицатион.Цлеан (Реплаце (ц.Валуе, Цхр (160), "")))
Следеће ц
'ресетовање поставки
Апплицатион.СцреенУпдатинг = Тачно
Апплицатион.Цалцулатион = клЦалцулатионАутоматиц
Крај Ако
Енд Суб
- Ово ће уклонити све размаке на крају.
Напомена: Горњи макро ће се изводити само на активном листу.
На овај начин можемо уклонити крајње размаке на крају, користећи ВБА код.
Преузми - Уклони пратећи простор кроз ВБА - клсм