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 vstaviti / dodati prostor po vsakem x znaku v celicah?

Če imate na seznamu delovnega lista več besedilnih nizov, zdaj želite vstaviti prostor po vsakem 3 ali x znaku v celicah, kot je prikazano na zaslonu. Kako lahko to težavo v Excelu hitro in enostavno rešite?

doc dodati prostor po x znaku 1

Vstavite / dodajte prostor po vsakem x znaku v celicah s kodo VBA

Vstavite / dodajte prostor po vsakem x znaku v celicah z Kutools za Excel


puščica modra desno mehurček Vstavite / dodajte prostor po vsakem x znaku v celicah s kodo VBA

Če uporabite naslednjo kodo VBA, lahko hitro vstavite presledek po vsakih n znakov za več celic hkrati, storite naslednje:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli okno.

VBA koda: vstavite prostor za vsak x znake:

Sub addspace()
'updateby Extendoffice 20151207
    Dim i As Long
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xStr = xCell.Text
        xTxt = ""
        For i = 1 To Len(xStr) Step 4
            If xTxt = "" Then
                xTxt = Mid(xStr, i, 4)
            Else
                xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
            End If
        Next
        xCell = xTxt
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Nato pritisnite F5 ključ za zagon te kode in v pozivnem polju, izberite celice, v katere želite vstaviti prostor, si oglejte sliko zaslona:

doc dodati prostor po x znaku 2

4. In nato kliknite OK gumb, in presledki so bili vstavljeni v vsebino celice po vsakih štirih znakov, glej screenshot:

doc dodati prostor po x znaku 3  2 doc dodati prostor po x znaku 4

Opombe: V zgornji kodi lahko spremenite številko 4 na drugo številko, da vstavite prostor po. Prav tako lahko spremenite prostor razmejitve na druge razmejitve v tem pravilu xTxt = Trim (xTxt) & "" in Mid (xStr, i, 4) zgornje kode.


puščica modra desno mehurček Vstavite / dodajte prostor po vsakem x znaku v celicah z Kutools za Excel

Kutools za ExcelJe dodajanje besedila funkcija vam lahko pomaga hitro in enostavno rešiti ta problem.

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

Po namestitvi Kutools za Excel, prosimo, naredite naslednje :( Brezplačno prenesete Kutools za Excel zdaj! )

1. Izberite niz besedila, v katerega želite vstaviti prostor.

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

doc dodati prostor po x znaku 5

3. v dodajanje besedila pogovorno okno, pritisnite preslednico enkrat v Besedilo polje in izberite Določite možnost pod položaj, nato vnesite položaje, v katerih želite vstaviti presledek, glejte sliko zaslona:

doc dodati prostor po x znaku 6

4. In nato kliknite Ok or Uporabi gumb, boste dobili rezultat, da so bili prostori vstavljeni po vsakih štirih znakov, kot jih potrebujete.

nasveti: Število položajev v razdelku Določi tekstovni okvir bi moralo biti ločeno z vejico.

Brezplačno prenesete Kutools za Excel zdaj!


Povezani članek:

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



Priporočena orodja za produktivnost za Excel

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.