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

or

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

Stel dat ik een lijst met tekstreeksen heb waarin ik streepjes of andere scheidingstekens na elke vier tekens in cellen wil invoegen om het volgende schermresultaat te krijgen. Er zijn te veel cellen nodig om een ​​bepaald teken in te voegen. Zijn er snelle manieren om streepjes in te voeren om de vier tekens in Excel?

Voer elke x-tekens in een cel in met VBA-code

Plaats een bepaald teken elke x-tekens in de cel met Kutools voor Excel

doc voeg elk x-teken 1 in


Voeg een specifiek karakter toe vóór / na / bepaalde positie van de tekststring:

Kutools for Excel's toe te voegen tekst hulpprogramma kan u helpen om een ​​specifiek teken of letter toe te voegen voor of na alle cellen, tegelijkertijd kan het ook het teken tussen de bepaalde positie van de tekstreeksen invoegen.

doc voeg elk x-teken 11 in

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


Voer elke x-tekens in een cel in met VBA-code


U kunt de volgende VBA-code toepassen om na elke vier tekens een specifiek teken in cellen in te voegen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen in Excel, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: plaats een bepaald teken elke x-tekens in de cel

Sub InsertCharacter()
'Updateby20150813
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvak om u eraan te herinneren het datumbereik te selecteren dat u een bepaald teken in de tekststrings wilt invoegen, zie screenshot:

doc voeg elk x-teken 2 in

4. En klik op OK, voer in het volgende promptvenster het nummer in dat u elk teken wilt invoegen, zie screenshot:

doc voeg elk x-teken 3 in

5. Blijf klikken OKen voer in het gevolgde promptvenster het gewenste teken in dat u aan de tekst wilt toevoegen, zie screenshot:

doc voeg elk x-teken 4 in

6. Klikken OK knop en kies een cel waarin u het resultaat wilt uitvoeren in het promptvenster, zie screenshot:

doc voeg elk x-teken 5 in

7. Klik ten slotte op OK, het bepaalde teken is elke vier tekens in elke tekenreeks ingevoegd, zie screenshot:

doc voeg elk x-teken 6 in


Plaats een bepaald teken elke x-tekens in de cel met Kutools voor Excel

De bovenstaande code is misschien wat moeilijk voor de meeste Excel-beginner, hier kan ik een handig hulpmiddel introduceren - Kutools for Excel, Met toe te voegen tekst functie, kunt u snel een specifieke tekst of een specifiek teken vóór, na of de bepaalde posities van de celwaarde toevoegen.

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

Als je hebt geïnstalleerd Kutools for Excel, alsjeblieft als volgt doen:

1. Selecteer het gegevensbereik waarvoor u een specifiek teken wilt invoegen.

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

doc voeg elk x-teken 7 7 in

3. In de toe te voegen tekst dialoogvenster, geef een teken op dat u wilt invoegen in de Tekst in en kies vervolgens Geef op vanuit de positie sectie, voer in het tekstvak de posities in waarnaar u het teken wilt invoegen, maar u kunt tegelijkertijd een voorbeeld van het resultaat bekijken in het rechterdeelvenster, zie screenshot:

doc voeg elk x-teken 8 in

Tips: Hier typ ik 4,8,12 in het tekstvak van Specificeren die aangeven om de specifieke tekst na de 4TH-, 8th- en 12th-tekens van de tekenreeks in te voegen.

4. Dan klikken Ok or Van toepassing zijn knop, het opgegeven teken is ingevoegd in de celwaarden op specifieke posities.

doc voeg elk x-teken 9 in  2 doc voeg elk x-teken 10 in

Klik om meer details over dit hulpmiddel Tekst toevoegen te weten.

Download en proef Kutools nu voor Excel!


Demo: voer elke x-tekens in een cel in met Kutools voor Excel

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


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

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • 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 zonder gegevens te verliezen; Inhoud gesplitste cellen; Combineer dubbele rijen / kolommen... 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 ...
  • 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...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. 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.
  • To post as a guest, your comment is unpublished.
    John · 1 months ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios