Pri importovaní textového súboru do tabuľky programu Excel bohužiaľ ponechal nežiaduce čiarky na konci. Odstrániť nadbytočné čiarky v bunkách je skutočne ťažké. Ak sa to pokúšate opraviť ručne, bude to trvať veľa času. S kódom makra to však bude oveľa jednoduchšie.
V tomto článku sa zameriame na to, ako odstrániť nežiaduce čiarky a udržať ich tam, kde je to potrebné. Vždy je lepšie začať s čistením údajov, aby ste sa vyhli chybám v neskoršej fáze a robte správy, ktoré by inak mohli byť veľmi hektické a nikto nechce tráviť čas prepracovaním.
Ak v údajoch nájdete nepotrebné čiarky, môžete ich odstrániť vďaka rôznym funkciám, akými sú TRIM, SUBSTITUTE, FIND, LEN, REPLACE alebo môžete použiť funkciu FIND & REPLACE (CTRL + H). Môžete si vybrať z niekoľkých spôsobov ich odstránenia.
V tomto článku sa zameriame na to, ako odstrániť nechcené čiarky z importovaných súborov CSV a potom ich uložiť po dokončení čistenia pomocou kódu VBA.
Otázka: Pozrite si ukážkový súbor txt v prílohe. Na odstránenie posledných 8 znakov z riadku č. 5 potrebujem kód vb
Ak chcete získať ďalšie informácie o otázke, môžete kliknúť na tento odkaz
Nasleduje snímka súboru poznámkového bloku:
Riadok č. 5 má nasledujúci text v „RX408282,20150630 ,,,,,,,,"
pričom musí byť „RX408282,20150630" & zároveň by kód VBA nemal odstraňovať čiarku vo vyššie uvedených 4 riadkoch.
Aby sme získali kód, musíme pri spustení editora VB vykonať nasledujúce kroky:
- Kliknite na kartu Vývojár
- V skupine Kód vyberte položku Visual Basic
- Skopírujte nižšie uvedený kód do štandardného modulu
Sub test () Dim fn As String, txt As String fn = Application.GetOpenFilename ("TextFiles,*. Txt") If fn = "" Then Exit Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt") Pre výstup ako #1 Vytlačiť # 1,. Nahradiť (txt, "") Zatvoriť #1 Koniec s koncom Podp
Vysvetlenie kódu:
- Vyššie uvedený kód vás najskôr požiada o výber súboru, v ktorom sa nachádza
- Po spustení kódu dostaneme výstupný súbor s názvom Test_Clean
- Ak chcete skontrolovať, či kód funguje správne alebo nie; otvorme súbor .txt a zobrazme výsledky
- Môžeme vidieť posledný riadok, tj. Riadok č. 5, v ktorom boli na konci nežiaduce čiarky, bol teraz opravený
Záver: Týmto spôsobom môžeme zo zadaného priečinka odstrániť ďalšie čiarky a potom uložiť správne údaje do iného súboru poznámkového bloku.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku