Medtem ko je uvažala besedilno datoteko v preglednico Excel, je na koncu ohranila neželene vejice. Odstranjevanje dodatnih vej v celicah postane zelo težko. Če poskušate to popraviti ročno, bo trajalo veliko časa. Vendar bo z makro kodo veliko lažje.
V tem članku se bomo osredotočili na to, kako odstraniti neželene vejice in jih hraniti tam, kjer je to potrebno. Vedno je bolje začeti s čiščenjem svojih podatkov, da se v poznejši fazi izognete napakam in pripravite poročila, ki bi sicer lahko bila zelo naporna in nihče ne želi porabiti svojega časa za ponovno delo.
Če v podatkih najdete nepotrebne vejice, jih lahko odstranite zaradi različnih funkcij, kot so TRIM, SUBSTITUTE, FIND, LEN, REPLACE ali pa uporabite FIND & REPLACE (CTRL + H). Odstranite jih lahko med več načini.
V tem članku se bomo osredotočili na to, kako odstraniti neželene vejice iz uvoženih datotek CSV, nato pa shraniti po končanem čiščenju s kodo VBA.
Vprašanje: Oglejte si vzorčno datoteko txt v priponki. Za izbris zadnjih 8 znakov vrstice#5 potrebujem kodo vb
Za več informacij o vprašanju kliknite na to povezavo
Sledi posnetek datoteke beležnice:
Vrstica # 5 ima naslednje besedilo v "RX408282,20150630 ,,,,,,,,"
medtem ko mora biti "RX408282,20150630" & hkrati koda VBA ne sme izbrisati vejice v zgornjih 4 vrsticah.
Če želite dobiti kodo, moramo za zagon urejevalnika VB slediti spodnjim korakom:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- Kopirajte spodnjo kodo v standardni modul
Pod test () Dim fn kot niz, txt kot niz n fl = Application.GetOpenFilename ("TextFiles,*. Txt") Če je fn = "" Potem zapustite Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt") Za izhod kot #1 Natisni # 1, .Replace (txt, "") Close #1 End With End Sub
Razlaga kode:
- Zgornja koda vas bo najprej prosila, da izberete datoteko, kjer se nahaja
- Ko se koda zažene, dobimo izhodno datoteko z imenom Test_Clean
- Preverite, ali koda deluje v redu ali ne; odprimo datoteko .txt in si oglejmo rezultate
- Vidimo lahko zadnjo vrstico, to je vrstico 5, ki je imela prej na koncu neželene vejice, je zdaj popravljena
Zaključek: Na ta način lahko odstranimo dodatne vejice iz določene mape in nato pravilne podatke shranimo v drugo datoteko beležnice.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na spletni strani elektronske pošte