Note: The other languages of the website are Google-translated. Back to English

 Kako vstaviti / dodati prostor po vsakih x znakih v celicah?

Če imate na seznamu delovnih listov več besedilnih nizov, želite vstaviti presledek za vsakimi 3 ali x znaki v celicah, kot je prikazano na sliki spodaj. Kako bi lahko to težavo v Excelu rešili hitro in enostavno?

doc doda presledek za x znakov 1

Vstavi / dodaj presledek za vsakim x znakom v celicah s kodo VBA

Vstavite / dodajte presledek za vsakim x znakom v celicah s Kutools za Excel


puščica modri desni mehurček Vstavi / dodaj presledek za vsakim x znakom v celicah s kodo VBA

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

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

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

Koda VBA: Vstavite presledek za vsakim x znakom:

Sub addspace()
'updateby Extendoffice
    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 za zagon te kode in v pozivu izberite celice, v katere želite vstaviti prostor, glejte posnetek zaslona:

doc doda presledek za x znakov 2

4. In nato kliknite OK in presledki so bili vstavljeni v vsebino celice po vsakih štirih znakih, glejte posnetke zaslona:

doc doda presledek za x znakov 3 2 doc doda presledek za x znakov 4

Opombe: V zgornji kodi lahko spremenite številko 4 na drugo številko, za katero vstavite presledek. Poleg tega lahko v tem pravilu ločilni prostor spremenite v druga ločila xTxt = Obreži (xTxt) & "" & Mid (xStr, i, 4) zgornje kode.


puščica modri desni mehurček Vstavite / dodajte presledek za vsakim x znakom v celicah s Kutools za Excel

Kutools za ExcelJe dodajanje besedila Funkcija vam lahko pomaga tudi pri hitrem in enostavnem reševanju te težave.

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

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

1. Izberite besedilne nize, v katere želite vstaviti presledek.

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

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

doc doda presledek za x znakov 6

4. In nato kliknite Ok or Uporabi gumb, boste dobili rezultat, da so bili presledki vstavljeni za vsakimi štirimi znaki, kot jih potrebujete.

nasveti: Število mest v besedilnem polju Določite mora biti ločeno z vejicami.

Brezplačno prenesite Kutools za Excel zdaj!


Povezani članek:

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


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo 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-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila 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 miške za vas!
dno pisarniške mize
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL