Wie kann man mehrere Leerzeichen in Excel-Zellen durch ein einzelnes Leerzeichen ersetzen?

Angenommen, ich habe eine Liste von Textzeichenfolgen, die mehrere Leerzeichen enthalten. Nun muss ich diese Leerzeichen durch ein einzelnes Leerzeichen zwischen den Textzeichenfolgen ersetzen, um die Wörter wie im folgenden Screenshot zu trennen. Wie kann ich mehrere Leerzeichen auf einmal durch ein einzelnes ersetzen, ohne sie einzeln zu entfernen?

Ersetzen Sie mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe einer Formel.

Ersetzen Sie mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe von Kutools für Excel.

Ersetzen Sie mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe von VBA-Code.

Ersetzen Sie mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe einer Formel.

In Excel funktioniert das normale Suchen und Ersetzen-Feature möglicherweise nicht gut, um dieses Problem zu lösen. Daher können wir eine einfache Formel anwenden, um damit umzugehen. Bitte gehen Sie wie folgt vor:

1. Geben Sie diese Formel ein: =TRIM(SUBSTITUTE(A2,CHAR(32)," ")) in eine leere Zelle neben Ihrem Zellwert, siehe Screenshot:

2. Drücken Sie dann die Eingabetaste, um das Ergebnis zu erhalten, und wählen Sie Zelle B2 aus, ziehen Sie dann den Ausfüllkästchen über den gewünschten Zellbereich, um diese Formel anzuwenden. Alle zusätzlichen Leerzeichen wurden aus den Textzeichenfolgen entfernt, und nur ein einzelnes Leerzeichen bleibt zwischen dem Text bestehen. Siehe Screenshot:

Ersetzen Sie mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe von Kutools für Excel.

Wenn Sie andere Arten von Leerzeichen entfernen müssen, wie z. B. führende Leerzeichen, nachgestellte Leerzeichen oder alle Leerzeichen im Text, empfehle ich Ihnen ein leistungsstarkes Tool – Kutools für Excel. Mit der Funktion Leerzeichen entfernen können Sie beliebige Leerzeichen entfernen, wie z. B. führende Leerzeichen, nachgestellte Leerzeichen, alle Leerzeichen...

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie den Datenbereich aus, aus dem Sie die zusätzlichen Leerzeichen entfernen möchten.

2. Klicken Sie auf Kutools > Text > Leerzeichen entfernen, siehe Screenshot:

3. Wählen Sie im Dialogfeld Leerzeichen entfernen die Option Alle überflüssigen Leerzeichen im Abschnitt Art der Leerzeichen aus, und Sie können das Ergebnis im Vorschaufenster anzeigen, siehe Screenshot:

4. Klicken Sie dann auf OK oder Anwenden, alle zusätzlichen Leerzeichen wurden aus der Zelle entfernt, und es bleibt nur ein einzelnes Leerzeichen zwischen dem Text bestehen.

Klicken Sie hier, um Kutools für Excel herunterzuladen und jetzt kostenlos zu testen!

Ersetzen Sie mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe von VBA-Code.

Wenn Sie am VBA-Code interessiert sind, kann ich einen Code für Sie erstellen, um mehrere Leerzeichen durch ein einzelnes zu ersetzen. Gehen Sie bitte wie folgt vor:

1. Halten Sie bitte die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Ersetzen Sie mehrere Leerzeichen durch ein einzelnes Leerzeichen.

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Eingabeaufforderungsfenster wird angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, aus dem Sie die zusätzlichen Leerzeichen entfernen möchten, siehe Screenshot:

4. Klicken Sie dann auf die Schaltfläche OK, alle überflüssigen Leerzeichen wurden durch ein einzelnes Leerzeichen im Text ersetzt.