Hoe specifieke tekens om de X tekens in Excel-cellen toe te voegen of in te voegen

In Excel kan het handmatig toevoegen van scheidingstekens zoals streepjes of specifieke tekens op bepaalde posities in tekstreeksen een tijdrovende taak zijn. Bijvoorbeeld, het invoegen van een streepje na elke vier tekens in meerdere cellen vereist een efficiënte aanpak. Dit artikel biedt twee eenvoudige oplossingen: het gebruik van VBA-code of het hulpprogramma Tekst toevoegen in Kutools voor Excel om tekens na vaste intervallen naadloos in te voegen.

Voeg bepaald teken om de x tekens in cel in met VBA-code

Voeg bepaald teken om de x tekens in cel in met Kutools voor Excel

Voeg bepaald teken om de x tekens in cel in met VBA-code

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

1. Houd de toetsen ALT + F11 ingedrukt in Excel, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Voeg bepaald teken om de x tekens in cel in

Sub InsertCharacter()
'Updateby Extendoffice
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 op de F5-toets om deze code uit te voeren. Er verschijnt een promptvenster waarin u wordt gevraagd het gegevensbereik te selecteren waar u een specifiek teken in de tekstreeksen wilt invoegen. Zie onderstaande schermafbeelding:

4. Klik op OK, en in het volgende promptvenster voert u het nummer in waarna u een bepaald teken wilt invoegen, zie schermafbeelding:

5. Klik verder op OK, en in het volgende promptvenster voert u het specifieke teken in dat u aan de tekst wilt toevoegen, zie schermafbeelding:

6. Klik op de knop OK, en kies een cel waar u de uitkomst wilt weergeven in het promptvenster, zie schermafbeelding:

7. Klik ten slotte op OK. Het gespecificeerde teken wordt nu ingevoegd in elke tekstreeks na elke vier tekens. Zie onderstaande schermafbeelding:

Voeg bepaald teken om de x tekens in cel in met Kutools voor Excel

De VBA-code kan uitdagend zijn voor beginners in Excel. Hier is een eenvoudiger alternatief: Kutools voor Excel. Met de functie Tekst toevoegen kunt u snel specifieke tekst of tekens voor, na of op specifieke posities in celwaarden toevoegen.

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

2. Klik vervolgens op Kutools > Tekst > Tekst toevoegen, zie schermafbeelding:

3. Specificeer in het dialoogvenster Tekst toevoegen het teken dat u wilt invoegen in het Tekstveld. Onder het gedeelte Positie kiest u Opgeven en voert u de posities in waar het teken moet worden ingevoegd. U kunt het resultaat in het rechterpaneel bekijken. Zie onderstaande schermafbeelding:

Tips: Hier typ ik 4,8,12 in het tekstvak van Opgeven, wat aangeeft dat de specifieke tekst na het 4e, 8e en 12e teken van de tekstreeks moet worden ingevoegd.

4. Klik vervolgens op de knop Ok of Toepassen, en het gespecificeerde teken is ingevoegd in de celwaarden op specifieke posities.

Klik hier voor meer details over dit hulpprogramma Tekst toevoegen.

Demo: Voeg bepaald teken om de x tekens in cel in met Kutools voor Excel