Preskoči na glavno vsebino

Kako dodati / vstaviti določen znak vsakih x znakov v celice?

Recimo, da imam seznam besedilnih nizov, za katere želim vstaviti pomišljaje ali katere koli druge ločila po vsakih štirih znakih v celice, da dobim naslednji rezultat zaslona. Za vstavljanje določenega znaka je preveč celic, ali obstajajo hitri načini za vstavljanje pomišljajev na vsake štiri znake v Excelu?

Vsakih x znakov vstavite določen znak v celico s kodo VBA

Vsake x znake vstavite v celico s Kutools za Excel

doc vstavi vsak znak x 1


Vsakih x znakov vstavite določen znak v celico s kodo VBA

Za vstavljanje določenega znaka za vsakimi štirimi znaki v celice lahko uporabite naslednjo kodo VBA, naredite naslednje:

1. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Vstavite določen znak vsakih x znakov v celico

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opozorilo, da izberete obseg podatkov, v katerega želite vstaviti določen znak v besedilne nize, glejte sliko zaslona:

doc vstavi vsak znak x 2

4. in kliknite OK, v naslednje pozivno polje vnesite številko, za katero želite vstaviti določen znak, nato si oglejte posnetek zaslona:

doc vstavi vsak znak x 3

5. Pojdi na klik OKin v naslednje pozivno polje vnesite določen znak, ki ga želite dodati besedilu, glejte sliko zaslona:

doc vstavi vsak znak x 4

6. Kliknite OK in izberite eno celico, v katero želite v polje za poziv prikazati rezultat, glejte posnetek zaslona:

doc vstavi vsak znak x 5

7. Končno kliknite OK, je bil določen znak vstavljen v vsak besedilni niz vsake štiri znake, glej posnetek zaslona:

doc vstavi vsak znak x 6


Vsake x znake vstavite v celico s Kutools za Excel

Zgornja koda je morda za večino začetnikov Excela nekoliko težavna. Tu lahko predstavim priročno orodje - Kutools za Excel, Z njegovim dodajanje besedila funkcijo, lahko hitro dodate določeno besedilo ali znak pred, po ali pred določenimi položaji vrednosti celice.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Če ste namestili Kutools za Excel, naredite naslednje:

1. Izberite obseg podatkov, v katerega želite vstaviti določen znak.

2. Nato kliknite Kutools > Besedilo > dodajanje besedila, glej posnetek zaslona:

3. v dodajanje besedila v pogovornem oknu določite znak, ki ga želite vstaviti v Besedilo in nato izberite Določite iz položaja v besedilno polje vnesite položaje, v katere želite vstaviti znak, hkrati pa si lahko rezultat ogledate v desnem podoknu, glejte posnetek zaslona:

doc vstavi vsak znak x 8

nasveti: Tu vtipkam 4,8,12 v besedilno polje Določite ki pomenijo, da je treba določeno besedilo vstaviti za 4., 8. in 12. znakom besedilnega niza.

4. Nato kliknite Ok or Uporabi gumb, je bil določen znak vstavljen v vrednosti celice na določenih mestih.

doc vstavi vsak znak x 9 2 doc vstavi vsak znak x 10

Kliknite, če želite izvedeti več podrobnosti o tem pripomočku za dodajanje besedila.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Predstavitev: Vstavite določene znake vsakih x znakov v celico s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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