Докато импортирате текстов файл в електронна таблица на Excel, за съжаление, той запази нежеланите запетаи в края. Става наистина трудно да се премахнат излишните запетаи в клетките. Ако се опитвате да поправите това ръчно, това ще отнеме много време. С макрокода обаче ще бъде много по -лесно.
В тази статия ще се съсредоточим върху това как да премахнем нежеланите запетаи и да ги задържим там, където е необходимо. Винаги е по-добре да започнете с почистване на вашите данни, за да избегнете грешки на по-късен етап и да правите отчети, които иначе биха могли да бъдат много забързани и никой не иска да отделя времето си за преработка.
Ако откриете излишни запетаи в данните, можете да ги премахнете поради различни функции, като TRIM, SUBSTITUTE, FIND, LEN, REPLACE или можете да използвате FIND & REPLACE (CTRL + H). Можете да избирате между няколко метода за премахването им.
В тази статия ще се съсредоточим върху това как да премахнем нежеланите запетаи от импортираните CSV файлове и след това да запазим след приключване на почистването чрез VBA код.
Въпрос: Моля, вижте примерния txt файл в прикачения файл. Имам нужда от vb код, за да изтрия последните 8 знака от ред#5
За повече информация по въпроса можете да кликнете върху тази връзка
Следва моментната снимка на бележника:
Ред # 5 има следния текст в „RX408282,20150630 ,,,,,,,,“
докато трябва да бъде „RX408282,20150630" & в същото време кодът VBA не трябва да изтрива запетаята в горните 4 реда.
За да получим кода, трябва да следваме стъпките по -долу, за да стартираме VB редактор:
- Кликнете върху раздела Разработчик
- От групата Кодове изберете Visual Basic
- Копирайте кода по -долу в стандартния модул
Sub test () Dim fn As String, txt As String fn = Application.GetOpenFilename ("TextFiles,*. Txt") If fn = "" Тогава излезте от Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt") За извеждане като #1 Печат # 1, .Заменете (txt, "") Затворете #1 Край с End Sub
Обяснение на кода:
- Горният код първо ще ви помоли да изберете файла, където се намира
- След като кодът работи, получаваме изходен файл с име Test_Clean
- За да проверите дали кодът работи добре или не; нека отворим .txt файла и да видим резултатите
- Можем да видим последния ред, т.е. ред # 5, който преди това имаше нежелани запетаи в края, сега е фиксиран
Заключение: По този начин можем да премахнем допълнителни запетаи от определена папка и след това да запазим правилните данни в друг файл с бележник.
Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни на имейл сайта