Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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

doc voegt elk x-teken in 1


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:

doc voegt elk x-teken in 2

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

doc voegt elk x-teken in 3

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

doc voegt elk x-teken in 4

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

doc voegt elk x-teken in 5

7. Klik ten slotte op OK, is het bepaalde karakter om de vier karakters in elke tekstreeks ingevoegd, zie screenshot:

doc voegt elk x-teken in 6


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:

doc voegt elk x-teken in 8

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 Toepassen knop, is het opgegeven teken op specifieke posities in de celwaarden ingevoegd.

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

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

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

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.
kte tabblad 201905

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!
officetab onderkant
Say something here...
symbols left.
You are guest
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.
    anaid83 · 24 days ago
    Creo que en vez de macros, es más fácil (aunque más largo):
    1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
    2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
    3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
    4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
  • To post as a guest, your comment is unpublished.
    John · 1 years 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