Hoppa till huvudinnehåll

Hur lägger till / infoga vissa tecken varje x tecken i celler?

Om jag antar att jag har en lista med textsträngar som jag vill infoga streck eller andra separatorer efter var fjärde tecken i celler för att få följande skärmdumpresultat. Det finns för många celler som behövs för att infoga ett visst tecken. Finns det några snabba sätt att infoga bindestreck var fjärde tecken i Excel?

Infoga vissa tecken varje x tecken i cell med VBA-kod

Infoga vissa tecken varje x tecken i cellen med Kutools för Excel

doc infoga varje x tecken 1


Infoga vissa tecken varje x tecken i cell med VBA-kod

Du kan tillämpa följande VBA-kod för att infoga ett visst tecken efter var fjärde tecken i celler, gör så här:

1. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Infoga vissa tecken varje x tecken i cellen

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. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att välja det dataområde som du vill infoga ett visst tecken i textsträngarna, se skärmdump:

doc infoga varje x tecken 2

4. och klicka OK, i följande rutan, ange numret som du vill infoga ett visst tecken efteråt, se skärmdump:

doc infoga varje x tecken 3

5. Fortsätt klicka OK, och i den efterföljande rutan anger du det tecken som du vill lägga till i texten, se skärmdump:

doc infoga varje x tecken 4

6. Klicka OK och välj en cell där du vill mata ut resultatet i rutan, se skärmdump:

doc infoga varje x tecken 5

7. Äntligen klickar du på OKhar det specifika tecknet infogats i varje textsträng var fjärde tecken, se skärmdump:

doc infoga varje x tecken 6


Infoga vissa tecken varje x tecken i cellen med Kutools för Excel

Ovanstående kod är kanske lite svår för de flesta nybörjare i Excel, här kan jag presentera ett praktiskt verktyg - Kutools för Excel, med dess lägga till text kan du snabbt lägga till en specifik text eller ett tecken före, efter eller vissa positioner för cellvärdet.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. 

Om du har installerat Kutools för Excel, gör så här:

1. Välj det dataområde som du vill infoga ett specifikt tecken.

2. Klicka sedan Kutools > text > lägga till text, se skärmdump:

3. I lägga till text dialogrutan, ange ett tecken som du vill infoga i text rutan och välj sedan Ange från positionen avsnitt, i textrutan, ange positionerna som du vill infoga tecknet efter, samtidigt kan du förhandsgranska resultatet i den högra rutan, se skärmdump:

doc infoga varje x tecken 8

tips: Här skriver jag 4,8,12 i textrutan till Ange som indikerar att infoga den specifika texten efter textens 4: e, 8: e och 12: e tecken.

4. Klicka sedan på Ok or Ansök -knappen har det angivna tecknet infogats i cellvärdena på specifika positioner.

doc infoga varje x tecken 9 2 doc infoga varje x tecken 10

Klicka för att få mer information om det här verktyget Lägg till text.

Ladda ner och testa gratis Kutools för Excel nu!


Demo: Infoga vissa tecken varje x tecken i cellen med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje 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