Mens du importerte tekstfiler til excel -regneark, har den dessverre beholdt de uønskede kommaene på slutten. Det blir veldig vanskelig å fjerne ekstra komma i cellene. Hvis du prøver å fikse dette manuelt, vil det ta mye tid. Imidlertid vil det være mye lettere med makrokode.
I denne artikkelen vil vi fokusere på hvordan du fjerner uønskede kommaer og oppbevarer der det er nødvendig. Det er alltid bedre å begynne med å rense dataene dine for å unngå feil på et senere tidspunkt og lage rapporter som ellers kunne vært veldig hektiske, og ingen ønsker å bruke tiden sin på nytt arbeid.
Hvis du finner unødvendige kommaer i data, kan du fjerne dem på grunn av forskjellige funksjoner, som TRIM, SUBSTITUTE, FIND, LEN, REPLACE eller du kan bruke FIND & REPLACE (CTRL + H). Du kan velge mellom flere metoder for å fjerne dem.
I denne artikkelen vil vi fokusere på hvordan du fjerner uønskede kommaer fra importerte CSV -filer og deretter lagrer etter at rengjøringen er fullført via VBA -kode.
Spørsmål: Se eksempel på txt -fil i vedlegget. Jeg trenger en vb -kode for å slette de siste 8 tegnene på linje#5
For mer informasjon om spørsmål kan du klikke på denne lenken
Følgende er øyeblikksbildet av notisblokkfilen:
Linje # 5 har følgende tekst i "RX408282,20150630 ,,,,,,,,"
mens den må være "RX408282,20150630" & samtidig bør ikke VBA -koden slette kommaet i de fire linjene ovenfor.
For å få koden må vi følge trinnene nedenfor for å starte VB -editor:
- Klikk på kategorien Utvikler
- Velg Visual Basic fra kodegruppen
- Kopier koden nedenfor i standardmodulen
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") For Output As #1 Print # 1, .Skift (txt, "") Lukk #1 Slutt med Slutt Sub
Kode forklaring:
- Koden ovenfor vil først be deg om å velge filen der den er plassert
- Etter at koden kjører, får vi en utdatafil med navn Test_Clean
- For å sjekke om koden fungerer bra eller ikke; la oss åpne .txt -filen og se resultatene
- Vi kan se den siste linjen, dvs. linje # 5, som tidligere hadde uønskede komma på slutten, er fikset nå
Konklusjon: På denne måten kan vi fjerne ekstra kommaer fra en spesifisert mappe og deretter lagre de riktige dataene i en annen notisblokkfil.
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post