Falls Sie möchten, dass ein VBA-Code alle abschließenden Leerzeichen nur im aktiven Blatt entfernt, hilft Ihnen dieser Artikel auf jeden Fall. Oft haben wir irrtümlich ein Leerzeichen am Ende gelassen oder manchmal Daten aus dem Web kopiert und es nicht bemerkt. In diesem Artikel erfahren Sie, wie Sie den irrtümlich verbleibenden Platz beseitigen können.
Frage): In Excel können wir die TRIM-Funktion mit SUBSTITUTE & CHAR verwenden, d.
Ich möchte, dass ein Makro mir hilft, alle unnötigen Leerzeichen am Ende der Zeichenfolge zu entfernen.
Um den Code zum Entfernen von Leerzeichen am Ende des Textes zu erhalten; Wir müssen 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 Arbeitsblattmodul
Sub trimspace()
Dim c als Bereich, rngKonstanten als Bereich
Bei Fehler Fortsetzen als nächstes
Set rngConstants = ActiveSheet.UsedRange.SpecialCells(2, 2)
Bei Fehler GoTo 0
Wenn nicht rngConstants nichts ist, dann
'Leistung optimieren
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Zellen trimmen inkl. Zeichen 160
Für jedes c in rngKonstanten
c.Value = Trim$(Application.Clean(Replace(c.Value, Chr(160), "")))
Nächstes c
'Einstellungen zurücksetzen
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Ende Wenn
End Sub
- Dadurch werden alle Leerzeichen am Ende entfernt.
Hinweis: Das obige Makro wird nur auf Activesheet ausgeführt.
Auf diese Weise können wir die abschließenden Leerzeichen am Ende mit VBA-Code entfernen.
Download - Entfernen von Leerzeichen über VBA - xlsm