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
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:
4. og klik OK, i følgende promptboks, indtast venligst det nummer, som du vil indsætte bestemt tegn hver efter, se skærmbillede:
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:
6. Klik OK knap, og vælg en celle, hvor du vil output resultatet i promptboksen, se skærmbillede:
7. Endelig skal du klikke på OK, det bestemte tegn er indsat i hver tekststreng hver fjerde karakter, se skærmbillede:
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:
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.
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
Bedste kontorproduktivitetsværktøjer
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...
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!