Dok je uvozio tekstualnu datoteku u Excel proračunsku tablicu, nažalost, zadržao je neželjene zareze na kraju. Uistinu postaje teško ukloniti dodatne zareze u stanicama. Ako to pokušavate popraviti ručno, trebat će puno vremena. Međutim, s makro kodom bit će puno lakše.
U ovom ćemo se članku usredotočiti na to kako ukloniti neželjene zareze i držati ih tamo gdje je to potrebno. Uvijek je bolje početi s čišćenjem podataka kako biste izbjegli greške u kasnijoj fazi i izradili izvješća koja bi inače mogla biti užurbana i nitko ne želi trošiti svoje vrijeme na ponovni rad.
Ako pronađete nepotrebne zareze u podacima, možete ih ukloniti zbog različitih funkcija, poput TRIM, ZAMJENA, FIND, LEN, ZAMJENA ili možete upotrijebiti FIND & REPLACE (CTRL + H). Možete ih birati između nekoliko metoda.
U ovom ćemo se članku usredotočiti na to kako ukloniti neželjene zareze iz uvezenih CSV datoteka, a zatim spremiti nakon završetka čišćenja pomoću VBA koda.
Pitanje: Molimo pogledajte uzorak txt datoteke u privitku. Trebam vb kod za brisanje posljednjih 8 znakova retka#5
Za više informacija o pitanju možete kliknuti na ovu vezu
Slijedi snimak datoteke bilježnice:
Redak 5 ima sljedeći tekst u "RX408282,20150630 ,,,,,,,,"
dok to mora biti "RX408282,20150630" & u isto vrijeme VBA kôd ne bi trebao brisati zarez u gornja 4 retka.
Da bismo dobili kod, moramo slijediti korake u nastavku za pokretanje VB uređivača:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
- Kopirajte donji kod u standardni modul
Pod test () Dim fn kao niz, txt kao niz fn = Application.GetOpenFilename ("Tekstualne datoteke,*. Txt") Ako je fn = "" Zatim izađite iz Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt") Za izlaz kao #1 Ispiši # 1, .Zamijenite (txt, "") Zatvorite #1 Završi s End Sub
Objašnjenje koda:
- Gornji kôd prvo će od vas tražiti da odaberete datoteku u kojoj se nalazi
- Nakon pokretanja koda dobivamo izlaznu datoteku s imenom Test_Clean
- Da biste provjerili radi li kod dobro ili ne; otvorimo .txt datoteku i pregledajmo rezultate
- Možemo vidjeti zadnji redak, tj. Redak # 5, koji je ranije imao neželjene zareze na kraju, sada je popravljen
Zaključak: Na taj način možemo ukloniti dodatne zareze iz određene mape, a zatim spremiti točne podatke u drugu datoteku bilježnice.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte