Hoe plaats ik spaties voor hoofdletters in Excel?
Stel dat u een lijst met tekstreeksen heeft waarvan alle spaties tussen de woorden per ongeluk worden verwijderd, zoals hier: InvoegenLegeRijenTussenGegevens, en nu wilt u de spaties voor elke letter met hoofdletters toevoegen om de woorden te scheiden als Voeg lege rijen in tussen gegevens. Hoe kun je snel spaties voor de hoofdletters toevoegen in plaats van spaties één voor één in Excel te typen?
- Voeg spaties in voor hoofdletters met door de gebruiker gedefinieerde functie
- Voeg spaties in voor hoofdletters met VBA-code
- Voeg een spatie in voor elke hoofdletter met Kutools for Excel
Voeg spaties in voor hoofdletters met door de gebruiker gedefinieerde functie
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 for 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.

Voeg spaties in voor hoofdletters met VBA-code
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:
Voeg een spatie in voor elke hoofdletter met Kutools for Excel
Kutools for 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 - Verpakt met meer dan 300 essentiële tools voor Excel. Geniet van een volledig uitgeruste 30-dag GRATIS proefperiode zonder creditcard vereist! Download nu!
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 het 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 - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een volledig uitgeruste 30-dag GRATIS proefperiode zonder creditcard vereist! Snap het nu
Opmerkingen: 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.
Gerelateerd artikel:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!









