Hoe voeg ik een spatie in / na elke x tekens in cellen?

Als u meerdere tekstreeksen in een lijst met werkbladen heeft, wilt u nu na elke 3 of x tekens in cellen een spatie invoegen, zoals in het volgende screenshot. Hoe kunt u dit probleem snel en gemakkelijk in Excel oplossen?

Voeg ruimte in / voeg ruimte toe na elke x-tekens in cellen met VBA-code

Door de volgende VBA-code toe te passen, kunt u snel de spatie na elke n-tekens voor meerdere cellen tegelijk invoegen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

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

VBA-code: voeg een spatie in na elke x-tekens:

Sub addspace()
'updateby Extendoffice
    Dim i As Long
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xStr = xCell.Text
        xTxt = ""
        For i = 1 To Len(xStr) Step 4
            If xTxt = "" Then
                xTxt = Mid(xStr, i, 4)
            Else
                xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
            End If
        Next
        xCell = xTxt
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, en selecteer in het promptvenster de cellen waarin u ruimte wilt invoegen, zie screenshot:

4. En klik vervolgens op OK knop, en de spaties zijn na elke vier tekens in de celinhoud ingevoegd, zie screenshots:

Opmerking:: In de bovenstaande code kunt u het nummer wijzigen 4 naar een ander nummer om een ​​spatie achter in te voegen. En u kunt ook de scheidingsteken in deze regel wijzigen in een ander scheidingsteken xTxt = Trim (xTxt) & "" & Midden (xStr, i, 4) van de bovenstaande code.

Voeg ruimte in / voeg ruimte toe na elke x-tekens in cellen met Kutools voor Excel

Kutools for Excel's toe te voegen tekst functie kan u ook helpen om dit probleem snel en gemakkelijk op te lossen.

Na het installeren van Kutools for Excel, doe dan als volgt :( Gratis download Kutools voor Excel nu! )

1. Selecteer de tekstreeksen waarvoor u spatie wilt invoegen.

2. Dan klikken Kutools > Tekst > toe te voegen tekst, zie screenshot:

3. In de toe te voegen tekst dialoogvenster, drukt u eenmaal op de spatiebalk in het Tekst box en selecteer het Specificeren optie onder de Positieen typ vervolgens de posities waarin u de spatie wilt invoegen, zie screenshot:

4. En klik vervolgens op Ok or Toepassen knop, krijg je het resultaat dat de spaties zijn ingevoegd na elke vier karakters zoals je nodig hebt.

Tips: Het aantal posities in het tekstvak Specificeren moet worden gescheiden door komma's.

Gratis download Kutools voor Excel nu!

Gerelateerd artikel:

Hoe kan ik om de x tekens een bepaald teken in cellen toevoegen / invoegen?

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad 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 elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...