Gå til hovedindhold

Hvordan tilføjes / indsættes bestemt tegn hver x tegn i celler?

Antag, jeg har en liste over tekststrenge, som jeg vil indsætte bindestreger eller andre separatorer efter hver fire tegn i celler for at få følgende skærmbillede-resultat. Der er for mange celler, der er nødvendige for at indsætte det bestemte tegn. Er der nogen hurtige måder at indsætte bindestreger for hver fire tegn i Excel?

Indsæt bestemt tegn hver x tegn i celle med VBA-kode

Indsæt bestemt tegn hver x tegn i celle med Kutools til Excel

doc indsæt hvert x tegn 1


Indsæt bestemt tegn hver x tegn i celle med VBA-kode

Du kan anvende følgende VBA-kode for at indsætte et bestemt tegn efter hver fire tegn i celler, gør som følger:

1. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Indsæt bestemt tegn hver x tegn i celle

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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge det dataområde, som du vil indsætte bestemt tegn i tekststrengene, se skærmbillede:

doc indsæt hvert x tegn 2

4. og klik OK, i følgende promptboks, indtast venligst det nummer, som du vil indsætte bestemt tegn hver efter, se skærmbillede:

doc indsæt hvert x tegn 3

5. Fortsæt med at klikke OK, og i det efterfølgende promptfelt skal du indtaste det bestemte tegn, som du vil føje til teksten, se skærmbillede:

doc indsæt hvert x tegn 4

6. Klik OK knap, og vælg en celle, hvor du vil output resultatet i promptboksen, se skærmbillede:

doc indsæt hvert x tegn 5

7. Endelig skal du klikke på OK, det bestemte tegn er indsat i hver tekststreng hver fjerde karakter, se skærmbillede:

doc indsæt hvert x tegn 6


Indsæt bestemt tegn hver x tegn i celle med Kutools til Excel

Ovenstående kode er måske noget vanskelig for de fleste nybegyndere i Excel, her kan jeg introducere et praktisk værktøj - Kutools til Excel, Med tilføje tekst funktion, kan du hurtigt tilføje en bestemt tekst eller et tegn før, efter eller de bestemte positioner i celleværdien.

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. 

Hvis du har installeret Kutools til Excelskal du gøre som følger:

1. Vælg det dataområde, som du vil indsætte et bestemt tegn.

2. Klik derefter på Kutools > tekst > tilføje tekst, se skærmbillede:

3. I tilføje tekst i dialogboksen, skal du angive et tegn, du vil indsætte i tekst i feltet, og vælg derefter Angiv fra positionen sektion, i tekstfeltet skal du indtaste de positioner, som du vil indsætte tegnet efter, på samme tid kan du få vist resultatet i højre rude, se skærmbillede:

doc indsæt hvert x tegn 8

Tips: Her skriver jeg 4,8,12 i tekstboksen til Angiv som angiver at indsætte den specifikke tekst efter 4., 8. og 12. tegn i tekststrengen.

4. Klik derefter på Ok or Indløs knappen, er det angivne tegn indsat i celleværdierne på bestemte positioner.

doc indsæt hvert x tegn 9 2 doc indsæt hvert x tegn 10

Klik for at få flere oplysninger om dette Tilføj tekst-værktøj.

Download og gratis prøveversion Kutools til Excel nu!


Demo: Indsæt bestemt tegn hver x tegn i celle med Kutools til Excel

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
buenas noches
necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations