Tekstifaili importimisel Exceli arvutustabelisse on see kahjuks soovimatud komad lõppu jätnud. Täiendavate komade eemaldamine lahtritest muutub tõeliselt keeruliseks. Kui proovite seda käsitsi parandada, võtab see palju aega. Makrokoodiga on aga palju lihtsam.
Selles artiklis keskendume sellele, kuidas eemaldada soovimatud komad ja hoida neid vajalikus kohas. Alati on parem alustada oma andmete puhastamisega, et vältida hilisemas etapis vigu ja koostada aruandeid, mis muidu oleksid võinud olla väga kirglikud ja keegi ei taha oma aega uuesti tööle panna.
Kui leiate andmetest tarbetuid komasid, saate need eemaldada mitmesuguste funktsioonide tõttu, nagu TRIM, SUBSTITUTE, FIND, LEN, REPLACE või võite kasutada FIND & REPLACE (CTRL + H). Nende eemaldamiseks saate valida mitme meetodi hulgast.
Selles artiklis keskendume sellele, kuidas eemaldada imporditud CSV -failidest soovimatud komad ja seejärel salvestada pärast puhastamist VBA -koodi abil.
Küsimus: Palun vaadake manuses olevat txt -faili näidist. Vajan rea 5 viimase 8 märgi kustutamiseks vb -koodi
Küsimuse kohta lisateabe saamiseks klõpsake seda linki
Märkmikufaili pilt on järgmine:
Rida nr 5 sisaldab järgmist teksti jaotises "RX408282,20150630 ,,,,,,,,"
samas kui see peab olema "RX408282,20150630" & samal ajal ei tohiks VBA kood ülaltoodud 4 realt koma kustutada.
Koodi saamiseks peame VB redaktori käivitamiseks toimima järgmiselt.
- Klõpsake vahekaarti Arendaja
- Valige koodirühmas Visual Basic
- Kopeerige allolev kood standardmoodulisse
Alamkatse () Dim fn kui string, txt kui string fn = Application.GetOpenFilename ("TextFiles,*. Txt") Kui fn = "" Siis Exit Sub txt = CreateObject ("Scripting.FileSystemObject"). OpenTextFile (fn). ReadAll With CreateObject ("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace (fn, ".txt", "_Clean.txt") Väljundiks #1 Print # 1, .Replace (txt, "") Close #1 End With End Sub
Koodi selgitus:
- Ülaltoodud kood palub teil kõigepealt valida faili, kus see asub
- Pärast koodi käivitamist saame väljundfaili nimega Test_Clean
- Kontrollige, kas kood töötab hästi või mitte; avame .txt -faili ja vaatame tulemusi
- Näeme viimast rida, st rida nr 5, mille lõpus oli varem soovimatuid komasid, on nüüd parandatud
Järeldus: Sel viisil saame määratud kaustast eemaldada täiendavad komad ja salvestada õiged andmed teise märkmiku faili.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile