Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
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 z miško!
dno pisarniške mize
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 · 21 days 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 · 1 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