Hoe kan ik om de x tekens een bepaald teken in cellen toevoegen / invoegen?
Stel dat ik een lijst met tekstreeksen heb die ik streepjes of andere scheidingstekens wil invoegen na elke vier tekens in cellen om het volgende screenshot-resultaat te krijgen. Er zijn te veel cellen nodig om een bepaald teken in te voegen. Zijn er snelle manieren om in Excel om de vier tekens streepjes in te voegen?
Voeg elk x-teken een bepaald teken in de cel in met VBA-code
Voeg een bepaald teken elke x-tekens in de cel in met Kutools voor Excel
Voeg elk x-teken een bepaald teken in de 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 dit als volgt:
1. Houd de ALT + F11 toetsen in Excel, en het opent het Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg een bepaald teken elke x-tekens in de 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 vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren dat u een bepaald teken in de tekstreeksen wilt invoegen, zie screenshot:
4. En klik op OK, voer in het volgende promptvenster het nummer in dat u telkens een bepaald teken wilt invoegen, zie screenshot:
5. Blijf klikken OK, en voer in het gevolgde promptvenster het bepaalde teken in dat u aan de tekst wilt toevoegen, zie screenshot:
6. Klikken OK knop en kies een cel waar u het resultaat in het promptvenster wilt uitvoeren, zie screenshot:
7. Klik ten slotte op OK, is het bepaalde karakter om de vier karakters in elke tekstreeks ingevoegd, zie screenshot:
Voeg een bepaald teken elke x-tekens in de cel in met Kutools voor Excel
De bovenstaande code is misschien wat moeilijk voor de meeste Excel-beginners, hier kan ik een handige tool introduceren - Kutools for Excel, Met toe te voegen tekst functie, kunt u snel een specifieke tekst of teken voor, na of de bepaalde posities van de celwaarde toevoegen.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Als je hebt geïnstalleerd Kutools for Excelgaat u als volgt te werk:
1. Selecteer het gegevensbereik waarvoor u een specifiek teken wilt invoegen.
2. Dan klikken Kutools > Tekst > toe te voegen tekst, zie screenshot:
3. In de toe te voegen tekst dialoogvenster, specificeert u een teken dat u in het Tekst box en kies vervolgens Specificeer vanuit de positie sectie, voer in het tekstvak de posities in waarnaar u het teken wilt invoegen, terwijl u tegelijkertijd een voorbeeld van het resultaat in het rechterdeelvenster kunt bekijken, zie screenshot:
Tips: Hier typ ik 4,8,12 in het tekstvak van Specificeren die aangeven om de specifieke tekst in te voegen na de 4e, 8e en 12e lettertekens van de tekstreeks.
4. Dan klikken Ok or Solliciteer knop, is het opgegeven teken op specifieke posities in de celwaarden ingevoegd.
Klik voor meer details over dit hulpprogramma Tekst toevoegen.
Download en gratis proef Kutools voor Excel nu!
Demo: voeg een bepaald teken in elke x-tekens in de cel in met Kutools voor Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor 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-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 honderden muisklikken voor u elke dag!