Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

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!

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.
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!
officetab bund
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 · 2 months 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 · 2 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