Mens den importerede tekstfil til excel -regneark, har den desværre bevaret de uønskede kommaer til sidst. Det bliver virkelig svært at fjerne ekstra kommaer i cellerne. Hvis du prøver at rette dette manuelt, tager det meget tid. Det vil dog være meget lettere med makrokode.
I denne artikel vil vi fokusere på, hvordan du fjerner uønskede kommaer og opbevares, hvor det er nødvendigt. Det er altid bedre at starte med at rense dine data for at undgå fejl på et senere tidspunkt og lave rapporter, som ellers kunne have været meget hektiske, og ingen ønsker at bruge deres tid på genarbejde.
Hvis du finder unødvendige kommaer i data, kan du få dem fjernet på grund af forskellige funktioner som TRIM, SUBSTITUTE, FIND, LEN, REPLACE eller du kan bruge FIND & REPLACE (CTRL + H). Du kan vælge mellem flere metoder til at fjerne dem.
I denne artikel vil vi fokusere på, hvordan du fjerner uønskede kommaer fra importerede CSV -filer og derefter gemmer, når rengøring er afsluttet via VBA -kode.
Spørgsmål: Se eksemplet på txt -fil i vedhæftet fil. Jeg har brug for en vb -kode for at slette de sidste 8 tegn i linje#5
For mere information om spørgsmål kan du klikke på dette link
Følgende er snapshot af notesblokfil:
Linje # 5 har følgende tekst i "RX408282,20150630 ,,,,,,,,"
mens det skal være "RX408282,20150630" & samtidig bør VBA -koden ikke slette kommaet i ovenstående 4 linjer.
For at få koden skal vi følge nedenstående trin for at starte VB -editor:
- Klik på fanen Udvikler
- Vælg Visual Basic i kodegruppen
- Kopier nedenstående kode i standardmodulet
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, "") Luk #1 Slut med slut Sub
Kode forklaring:
- Ovenstående kode vil først bede dig om at vælge den fil, hvor den er placeret
- Når koden kører, får vi en outputfil med navn Test_Clean
- For at kontrollere, om koden fungerer fint eller ej; lad os åbne .txt -filen og se resultaterne
- Vi kan se den sidste linje, dvs. linje # 5, som tidligere havde uønskede kommaer i slutningen, er blevet rettet nu
Konklusion: På denne måde kan vi fjerne ekstra kommaer fra en bestemt mappe og derefter gemme de korrekte data i en anden notesblokfil.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet