Tijdens het importeren van een tekstbestand in een Excel-spreadsheet heeft het helaas de ongewenste komma's aan het einde behouden. Het wordt echt moeilijk om extra komma's in de cellen te verwijderen. Als u dit handmatig probeert op te lossen, kost dit veel tijd. Het zal echter een stuk eenvoudiger zijn met macrocode.
In dit artikel zullen we ons concentreren op het verwijderen van ongewenste komma's en bewaard waar het nodig is. Het is altijd beter om te beginnen met het opschonen van uw gegevens om fouten in een later stadium te voorkomen en rapporten te maken die anders erg hectisch zouden kunnen zijn en niemand wil zijn tijd besteden aan herwerk.
Als u onnodige komma's in gegevens aantreft, kunt u deze laten verwijderen dankzij verschillende functies, zoals TRIM, SUBSTITUTE, FIND, LEN, REPLACE of u kunt FIND & REPLACE (CTRL + H) gebruiken. U kunt kiezen uit verschillende methoden om ze te verwijderen.
In dit artikel zullen we ons concentreren op het verwijderen van ongewenste komma's uit geïmporteerde CSV-bestanden en vervolgens opslaan nadat het opschonen is voltooid via VBA-code.
Vraag: Raadpleeg het voorbeeld txt-bestand in de bijlage. Ik heb een vb-code nodig om de laatste 8 tekens van regel #5 te verwijderen
Voor meer informatie over de vraag kunt u op deze link klikken
Hieronder volgt de momentopname van het Kladblok-bestand:
Regel # 5 heeft de volgende tekst in "RX408282,20150630,,,,,,,,"
terwijl het "RX408282,20150630" moet zijn" & tegelijkertijd mag de VBA-code de komma in de bovenstaande 4 regels niet verwijderen.
Om de code te krijgen, moeten we de onderstaande stappen volgen om de VB-editor te starten:
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
- Kopieer onderstaande code in de standaard module
Sub test() Dim fn As String, txt As String fn = Application.GetOpenFilename("TextFiles,*.txt") If fn = "" Dan Exit Sub txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(fn). ReadAll With CreateObject("VBScript.RegExp") .Global = True: .MultiLine = True .Pattern = ",+$" Open Replace(fn, ".txt", "_Clean.txt") voor uitvoer als #1 Print # 1, .Replace(txt, "") Sluit #1 Einde met End Sub
Code uitleg:
- De bovenstaande code zal u eerst vragen om het bestand te selecteren waar het zich bevindt
- Nadat de code is uitgevoerd, krijgen we een uitvoerbestand met naam Test_Clean
- Om te controleren of de code goed werkt of niet; laten we het .txt-bestand openen en de resultaten bekijken
- We kunnen de laatste regel zien, d.w.z. regel # 5, die voorheen ongewenste komma's aan het einde had, is nu opgelost
Conclusie: Op deze manier kunnen we extra komma's uit een opgegeven map verwijderen en vervolgens de juiste gegevens opslaan in een ander Kladblok-bestand.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite