Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

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

Domneva, da imam seznam besednih nizov, ki jih želim vstaviti pomišljaje ali katerikoli drug ločevalnik po vsakih štirih znakov v celice, da bi dobili naslednji sliki. Za vnos določenega znaka je preveč celic, ali obstajajo kakšni hitri načini za vstavljanje pomišljajev na štirih znakov v Excelu?

Vstavite določen znak vsakih x znakov v celico s kodo VBA

Vstavite določen znak vsakih x znakov v celico s Kutools za Excel

doc vstavi vsak x znak 1


Dodajte določen znak pred / po / določenem položaju besedilnega niza:

Kutools za ExcelJe dodajanje besedila pripomoček vam lahko pomaga dodati določen znak ali črko pred ali po vseh celicah, istočasno pa lahko tudi vstavi znak med določen položaj besedilnih nizov.

doc vstavi vsak x znak 11

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Vstavite določen znak vsakih x znakov v celico s kodo VBA


Za vpis določenega znaka po štirih znakov v celice lahko uporabite naslednjo kodo VBA, storite naslednje:

1. Drži dol ALT + F11 ključi v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: V vsako celico vnesite določen znak vsakih x znakov

Sub InsertCharacter()
'Updateby20150813
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 ključ za zagon te kode in se bo oglasno polje odprlo, da vas opomni, da izberete obseg podatkov, v katerega želite vstaviti določen znak znotraj niza besedila, glejte sliko zaslona:

doc vstavi vsak x znak 2

4. in kliknite OK, v naslednjem pozivnem polju, prosimo, vnesite številko, za katero želite vsakega znova vstaviti določen znak, si oglejte posnetek zaslona:

doc vstavi vsak x znak 3

5. Pojdite s klikom OKin v odzivnem polju, vnesite določen znak, ki ga želite dodati v besedilo, si oglejte posnetek zaslona:

doc vstavi vsak x znak 4

6. Kliknite OK gumb in izberite eno celico, kamor želite prikazati rezultat v pozivnem polju, si oglejte sliko zaslona:

doc vstavi vsak x znak 5

7. Končno kliknite OK, je bil določen znak vstavljen v vsak besedilni niz vsakih štirih znakov, glejte sliko zaslona:

doc vstavi vsak x znak 6


Vstavite določen znak vsakih x znakov v celico s Kutools za Excel

Zgornje kode morda nekoliko težko za večino Excelovega začetnika, tukaj lahko predstavim priročno orodje - Kutools za Excel, Z njegovim dodajanje besedila funkcijo, lahko hitro dodate določeno besedilo ali znak pred, po ali v določenih položajih vrednosti celice.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Če ste namestili Kutools za Excel, storite naslednje:

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

2. Nato kliknite Kutools > Besedilo > dodajanje besedila, si oglejte sliko zaslona:

doc vstavi vsak x znak 7 7

3. v dodajanje besedila pogovorno okno, določite znak, ki ga želite vstaviti v Besedilo polje in nato izberite Določite iz položaja v polju z besedilom vnesite pozicije, kamor želite vstaviti znak, hkrati pa si lahko ogledate rezultat na desni podokni, glejte sliko:

doc vstavi vsak x znak 8

nasveti: Tukaj vnesem 4,8,12 v polje z besedilom Določite ki nakazujejo, da se določi besedilo po 4th, 8th in 12th znaku v besedilnem nizu.

4. Nato kliknite Ok or Uporabi gumb, je bil določeni znak vstavljen v vrednosti celice na določenih položajih.

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

Kliknite, če želite izvedeti več podrobnosti o tem pripomočku Add Text.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Demo: V vsakem znaku vstavite določen znak vsakih x znakov s Kutools za Excel

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.