Leider gibt es in Excel keine direkte Möglichkeit, Leerzeichen vor den Großbuchstaben einzufügen. Sie können jedoch eine benutzerdefinierte Funktion erstellen, um diese Aufgabe zu lösen.

1. Aktivieren Sie Ihr Arbeitsblatt, das die Textzeichenfolgen enthält, denen Sie Leerzeichen hinzufügen möchten.

2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Fügen Sie Leerzeichen vor Großbuchstaben ein

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie diese Formel ein = Addspaces (A1) in eine leere Zelle neben Ihren Daten, siehe Screenshot:

5. Ziehen Sie dann den Füllpunkt über den Bereich, in dem diese Formel enthalten sein soll. Die Leerzeichen werden vor jedem Großbuchstaben eingefügt.

Entfernen Sie einfach führende / nachfolgende / zusätzliche Leerzeichen in Zellen

Kutools für Excel Leerzeichen entfernen Mit diesem Dienstprogramm können Excel-Benutzer auf einfache Weise alle führenden, nachfolgenden, zusätzlichen oder zusätzlichen Leerzeichen aus ausgewählten Zellen schnell entfernen.

Hier ist ein weiterer VBA-Code, der Ihnen einen Gefallen tun kann. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Fügen Sie Leerzeichen vor Großbuchstaben ein

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Wenn Sie diesen Code ausführen, wird ein Eingabeaufforderungsfeld angezeigt, in dem Sie einen Datenbereich auswählen können, den Sie verwenden möchten.

4. Und dann klick OK Um dieses Eingabeaufforderungsfeld zu schließen, wurden die Leerzeichen sofort vor den Großbuchstaben eingefügt (siehe Abbildung):

Kutools für Excel Text hinzufügen Mit dem Dienstprogramm können Sie die VBA-Makros umgehen und vor jedem Großbuchstaben in Excel problemlos Leerzeichen einfügen.

1. Wählen Sie den Bereich aus, in den Sie vor Großbuchstaben Leerzeichen einfügen möchten, und klicken Sie auf Kutoolen > Text > Text hinzufügen. Siehe Screenshot:

2. Geben Sie im sich öffnenden Dialogfeld Text hinzufügen ein Leerzeichen in das Feld ein Text Aktivieren Sie das Kontrollkästchen Nur zur Option hinzufügen und wählen Sie Der erste Buchstabe ist in Großbuchstaben von dem Nur hinzufügen zu Dropdown-Liste.

3. Drücke den Ok Schaltfläche zum Einfügen eines Leerzeichens vor jedem Großbuchstaben wie im folgenden Screenshot gezeigt:

Notizen: Diese Methode fügt auch am Anfang von Zellen Leerzeichen hinzu, wenn der erste Buchstabe Großbuchstaben ist. Du kannst dich bewerben Kutoolen > Text > Leerzeichen entfernen um alle führenden Leerzeichen aus ausgewählten Zellen zu entfernen.

Wie füge ich Leerzeichen nach Kommas in Excel hinzu?