Beim Importieren einer Textdatei in eine Excel-Tabelle wurden leider die unerwünschten Kommas am Ende beibehalten. Es wird wirklich schwierig, zusätzliche Kommas in den Zellen zu entfernen. Wenn Sie versuchen, dies manuell zu beheben, wird dies viel Zeit in Anspruch nehmen. Mit Makrocode wird es jedoch viel einfacher.
In diesem Artikel konzentrieren wir uns darauf, wie Sie unerwünschte Kommas entfernen und dort aufbewahren, wo es erforderlich ist. Es ist immer besser, mit der Bereinigung Ihrer Daten zu beginnen, um spätere Fehler zu vermeiden & Berichte zu erstellen, die sonst sehr hektisch gewesen wären & niemand möchte seine Zeit mit Nacharbeiten verbringen.
Wenn Sie in den Daten unnötige Kommas finden, können Sie diese dank verschiedener Funktionen wie TRIM, SUBSTITUTE, FIND, LEN, REPLACE entfernen oder Sie können FIND & REPLACE (STRG + H) verwenden. Sie können aus mehreren Methoden wählen, um sie zu entfernen.
In diesem Artikel konzentrieren wir uns darauf, wie Sie unerwünschte Kommas aus importierten CSV-Dateien entfernen und dann speichern, nachdem die Bereinigung über VBA-Code abgeschlossen ist.
Frage: Bitte beachten Sie die Beispiel-txt-Datei im Anhang. Ich benötige einen vb-Code, um die letzten 8 Zeichen von Zeile 5 zu löschen
Für weitere Informationen zur Frage können Sie auf diesen Link klicken
Im Folgenden ist der Schnappschuss der Notepad-Datei:
Zeile 5 hat den folgenden Text in "RX408282,20150630,,,,,,,,"
während es "RX408282,20150630" sein muss" & gleichzeitig sollte VBA-Code das Komma in den obigen 4 Zeilen nicht löschen.
Um den Code zu erhalten, müssen wir die folgenden Schritte ausführen, um den VB-Editor zu starten:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie in der Gruppe Code die Option Visual Basic . aus
- Kopieren Sie den folgenden Code in das Standardmodul
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, .Replace(txt, "") Close #1 End With End Sub
Code-Erklärung:
- Der obige Code fordert Sie zuerst auf, die Datei auszuwählen, in der sie sich befindet
- Nachdem der Code ausgeführt wurde, erhalten wir eine Ausgabedatei mit dem Namen Test_Clean
- Um zu überprüfen, ob der Code einwandfrei funktioniert oder nicht; Lassen Sie uns die .txt-Datei öffnen und die Ergebnisse anzeigen
- Wir sehen die letzte Zeile, d.h. Zeile # 5, die zuvor ungewollte Kommas am Ende hatte, wurde jetzt behoben
Abschluss: Auf diese Weise können wir zusätzliche Kommas aus einem angegebenen Ordner entfernen und dann die richtigen Daten in einer anderen Notepad-Datei speichern.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site