Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe voeg ik ruimte toe na elke x-tekens in cellen?

Als u meerdere tekenreeksen in een lijst met werkbladen hebt, wilt u nu na elke 3- of x-tekens in cellen invoegen zoals weergegeven in het volgende screenshot. Hoe kun je dit probleem snel en gemakkelijk oplossen in Excel?

doc voegt spatie toe na x karakters 1

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

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


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

Als u de volgende VBA-code toepast, kunt u snel de spatie invoegen na elke n-tekens voor meerdere cellen tegelijk, alsjeblieft als volgt:

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

2. Dan klikken bijvoegsel > moduleen plak de volgende code in de module venster.

VBA-code: plaats spatie na elke x-tekens:

Sub addspace()
'updateby Extendoffice 20151207
    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 waaraan u de spatie wilt toevoegen, zie screenshot:

doc voegt spatie toe na x karakters 2

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

doc voegt spatie toe na x karakters 3  2 doc voegt spatie toe na x karakters 4

Notes: In de bovenstaande code kunt u het nummer wijzigen 4 naar een ander nummer om ruimte erna in te voegen. En ook kunt u in deze regel de scheidingstekenruimte wijzigen in andere scheidingstekens xTxt = Trim (xTxt) & "" & Mid (xStr, i, 4) van de bovenstaande code.


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

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

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

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

1. Selecteer de tekstreeksen waarvan u de spatie wilt invoegen.

2. Dan klikken Kutools > Tekst > toe te voegen tekstzie screenshot:

doc voegt spatie toe na x karakters 5

3. In de toe te voegen tekst dialoogvenster, drukt u eenmaal op de spatiebalk in de Tekst vak en selecteer de Specificeren optie onder de Positie, typ dan de posities die u de spatie wilt invoegen, zie screenshot:

doc voegt spatie toe na x karakters 6

4. En klik vervolgens op Ok or Van toepassing zijn knop, krijg je het resultaat dat de spaties zijn ingevoegd na elke vier tekens als je nodig hebt.

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

Download nu Kutools voor Excel!


Gerelateerd artikel:

Hoe kan ik een bepaald teken per x-tekens in cellen toevoegen / invoegen?


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.