Helaas is er geen directe manier om spaties toe te voegen voor de hoofdletters in Excel, maar u kunt een door de gebruiker gedefinieerde functie maken om deze taak op te lossen.

1. Activeer uw werkblad dat de tekstreeksen bevat waaraan u spaties wilt toevoegen.

2. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.

3. Klikken Invoegen > Moduleen plak de volgende code in het Module venster.

VBA-code: voeg spaties in voor hoofdletters

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. Sla vervolgens deze code op en sluit deze, ga terug naar het werkblad en voer deze formule in = addspaces (A1) in een lege cel naast uw gegevens, zie screenshot:

5. En sleep vervolgens de vulgreep over het bereik waarin u deze formule wilt hebben, u krijgt de spaties voor elke hoofdletter ingevoegd.

Verwijder eenvoudig voorloop / volg / extra spaties in cellen

Kutools voor Excel's Ruimten verwijderen hulpprogramma stelt Excel-gebruikers in staat om eenvoudig alle voorloopspaties, volgspaties, extra spaties of alle spaties snel uit geselecteerde cellen te verwijderen. Gratis proefperiode van 30 dagen met volledige functionaliteit!

Hier is nog een VBA-code die u een plezier kan doen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module venster.

VBA-code: voeg spaties in voor hoofdletters

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. Druk vervolgens op F5 toets om deze code uit te voeren, verschijnt er een promptvenster waarin u een gegevensbereik kunt selecteren dat u wilt gebruiken.

4. En klik vervolgens op OK om dit promptvenster te sluiten, zijn de spaties in één keer voor de hoofdletters ingevoegd, zie screenshot:

Kutools voor Excel's toe te voegen tekst hulpprogramma kan u helpen de VBA-macro's te omzeilen en eenvoudig ruimte voor elke hoofdletter in Excel in te voegen.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Nu gratis proberen!

1. Selecteer het bereik waarin u spatie invoegt voor hoofdletters en klik op het Kutools > Tekst > toe te voegen tekst. Zie screenshot:

2. Typ in het dialoogvenster Tekst toevoegen een spatie in het Tekst vakje, vink het Alleen toevoegen aan optie en selecteer De eerste letter is een hoofdletter van de Alleen toevoegen aan keuzelijst.

3. Klik op de Ok knop om een ​​spatie in te voegen voor elke hoofdletters zoals in de volgende schermafbeelding:

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

Notes: Deze methode voegt ook een spatie toe aan het begin van cellen als de eerste letter een hoofdletter is. U kunt zich aanmelden Kutools > Tekst > Ruimten verwijderen om alle voorloopspaties uit geselecteerde cellen te verwijderen.

Hoe voeg ik spaties toe na komma's in Excel?