Vaikka tekstitiedosto tuodaan Excel -laskentataulukkoon, valitettavasti se on säilyttänyt ei -toivotut pilkut lopussa. Ylimääräisten pilkujen poistaminen soluista on todella vaikeaa. Jos yrität korjata tämän manuaalisesti, se vie paljon aikaa. Makrokoodilla se on kuitenkin paljon helpompaa.
Tässä artikkelissa keskitymme ei -toivottujen pilkujen poistamiseen ja säilyttämiseen siellä, missä niitä vaaditaan. On aina parempi aloittaa tietojen puhdistaminen, jotta vältetään virheet myöhemmässä vaiheessa ja tehdään raportteja, jotka muuten olisivat voineet olla hyvin kiireisiä ja kukaan ei halua käyttää aikaa uudelleen työskentelyyn.
Jos löydät tarpeettomia pilkkuja tiedoista, voit poistaa ne eri toimintojen vuoksi, kuten TRIM, SUBSTITUTE, FIND, LEN, REPLACE tai voit käyttää FIND & REPLACE -näppäimiä (CTRL + H). Voit valita useista tavoista poistaa ne.
Tässä artikkelissa keskitymme siihen, miten ei -toivotut pilkut poistetaan tuoduista CSV -tiedostoista ja tallennetaan sitten puhdistuksen jälkeen VBA -koodin avulla.
Kysymys: Katso esimerkki txt -tiedostosta liitteenä. Tarvitsen vb -koodin rivin#8 viimeisen 8 merkin poistamiseksi
Saat lisätietoja kysymyksestä napsauttamalla tätä linkkiä
Seuraavassa on vedos muistikirjatiedostosta:
Rivillä 5 on seuraava teksti kohdassa "RX408282,20150630 ,,,,,,,,,"
kun sen on oltava "RX408282,20150630" & samalla VBA -koodi ei saa poistaa pilkkua yllä olevista 4 rivistä.
Saadaksemme koodin meidän on suoritettava seuraavat vaiheet VB -editorin käynnistämiseksi:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- Kopioi alla oleva koodi vakiomoduuliin
Alatesti () Dim fn merkkijonona, txt nimellä merkkijono fn = Application.GetOpenFilename ("TextFiles,*. Txt") Jos fn = "" Sitten Lopeta Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt") Tulosteeksi #1 Print # 1, .Korvaa (txt, "") Sulje #1 Lopeta End Sub
Koodin selitys:
- Yllä oleva koodi pyytää ensin valitsemaan tiedoston, jossa se sijaitsee
- Kun koodi on suoritettu, saamme tulostiedoston nimeltä Test_Clean
- Tarkistaaksesi, toimiiko koodi hyvin vai ei; avaamme .txt -tiedoston ja katsomme tuloksia
- Voimme nähdä viimeisen rivin eli rivin # 5, jonka aiemmin oli ei -toivottuja pilkkuja lopussa, on nyt korjattu
Johtopäätös: Tällä tavalla voimme poistaa ylimääräisiä pilkkuja määritetystä kansiosta ja tallentaa sitten oikeat tiedot toiseen muistikirjatiedostoon.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille sähköpostitse