Док је увозио текстуалну датотеку у Екцел табелу, нажалост, задржао је нежељене зарезе на крају. Постаје заиста тешко уклонити додатне зарезе у ћелијама. Ако ово покушавате да поправите ручно, биће потребно много времена. Међутим, са макро кодом биће много лакше.
У овом чланку ћемо се фокусирати на то како уклонити нежељене зарезе и држати их тамо где је то потребно. Увек је боље почети са чишћењем података како бисте избегли грешке у каснијој фази и саставили извештаје који би иначе могли бити ужурбани и нико не жели да троши своје време на поновни рад.
Ако нађете непотребне зарезе у подацима, можете их уклонити због различитих функција, попут ТРИМ, ЗАМЈЕНА, ФИНД, ЛЕН, ЗАМЈЕНА или можете користити ФИНД & РЕПЛАЦЕ (ЦТРЛ + Х). Можете бирати између неколико метода за њихово уклањање.
У овом чланку ћемо се фокусирати на то како уклонити нежељене зарезе из увезених ЦСВ датотека, а затим сачувати након завршетка чишћења помоћу ВБА кода.
Питање: Молимо погледајте узорак ткт датотеке у прилогу. Потребан ми је вб код за брисање последњих 8 знакова реда#5
За више информација о питању можете кликнути на ову везу
Следи снимак нотепад датотеке:
Ред # 5 има следећи текст у „РКС408282,20150630 ,,,,,,,,“
док то мора бити „РКС408282,20150630" & у исто време ВБА код не би требало да брише зарез у горња 4 реда.
Да бисмо добили код, морамо да следимо кораке у наставку за покретање ВБ уређивача:
- Кликните на картицу Девелопер
- Из групе кодова изаберите Висуал Басиц
- Копирајте доњи код у стандардни модул
Суб тест () Дим фн Ас Стринг, ткт Ас Стринг фн = Апплицатион.ГетОпенФиленаме ("ТектФилес,*. Ткт") Иф фн = "" тхен Екит Суб ткт = ЦреатеОбјецт ("Сцриптинг.ФилеСистемОбјецт"). ОпенТектФиле (фн). РеадАлл Витх ЦреатеОбјецт ("ВБСцрипт.РегЕкп") .Глобал = Труе: .МултиЛине = Труе .Паттерн = ",+$" Опен Реплаце (фн, ".ткт", "_Цлеан.ткт") За излаз као #1 Принт # 1, .Реплаце (ткт, "") Затвори #1 Заврши са Енд Суб
Објашњење кода:
- Горњи код ће прво тражити да одаберете датотеку у којој се налази
- Након што се код покрене, добијамо излазну датотеку са именом Тест_Цлеан
- Да проверите да ли код ради добро или не; отворимо .ткт датотеку и прегледамо резултате
- Можемо видети последњи ред, односно ред # 5, који је раније имао нежељене зарезе на крају, сада је поправљен
Закључак: На овај начин можемо уклонити додатне зарезе из одређене фасцикле, а затим исправне податке сачувати у другој датотеци бележнице.
Ако вам се допадају наши блогови, поделите их са пријатељима на Фацебооку. Такође нас можете пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, реците нам како можемо побољшати, допунити или иновирати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште