Vid import av textfiler till Excel -kalkylblad har den tyvärr behållit oönskade kommatecken i slutet. Det blir riktigt svårt att ta bort extra kommatecken i cellerna. Om du försöker fixa detta manuellt tar det mycket tid. Det kommer dock att bli mycket enklare med makrokod.
I den här artikeln kommer vi att fokusera på hur man tar bort oönskade kommatecken och förvaras där det behövs. Det är alltid bättre att börja med att rengöra dina data för att undvika eventuella fel i ett senare skede och göra rapporter som annars kunde ha varit väldigt hektiska och ingen vill lägga ner sin tid på omarbete.
Om du hittar onödiga kommatecken i data kan du ta bort dem på grund av olika funktioner, som TRIM, SUBSTITUTE, FIND, LEN, REPLACE eller så kan du använda FIND & REPLACE (CTRL + H). Du kan välja mellan flera metoder för att ta bort dem.
I den här artikeln kommer vi att fokusera på hur du tar bort oönskade kommatecken från importerade CSV -filer och sparar sedan efter rengöring med VBA -kod.
Fråga: Se exempel på txt -fil i bilagan. Jag behöver en vb -kod för att radera de sista 8 tecknen i rad#5
För mer information om frågan kan du klicka på den här länken
Följande är ögonblicksbilden av anteckningsfilen:
Rad # 5 har följande text i "RX408282,20150630 ,,,,,,,,"
medan det måste vara "RX408282,20150630" & samtidigt bör VBA -koden inte ta bort kommatecken på ovanstående 4 rader.
För att få koden måste vi följa stegen nedan för att starta VB -editor:
- Klicka på fliken Utvecklare
- Välj Visual Basic i kodgruppen
- Kopiera koden nedan i standardmodulen
Deltest () 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") För utmatning som #1 Skriv ut # 1, .Byt ut (txt, "") Stäng #1 Avsluta med Slut Sub
Kodförklaring:
- Ovanstående kod kommer först att be dig att välja filen där den finns
- När koden har körts får vi en utdatafil med namn Test_Clean
- För att kontrollera om koden fungerar bra eller inte; låt oss öppna .txt -filen och se resultaten
- Vi kan se den sista raden, dvs rad # 5, som tidigare hade oönskade kommatecken i slutet har fixats nu
Slutsats: På detta sätt kan vi ta bort extra kommatecken från en angiven mapp och sedan spara rätt data i en annan anteckningsfil.
Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen
