Preskoči na glavno vsebino

Kako vstaviti presledke pred velikimi črkami v Excelu?

Recimo, da imate seznam besedilnih nizov, pri katerih so vsi presledki med besedami nenamerno odstranjeni, na primer ta: Vstavi prazne vrstice med podatki, in zdaj želite dodati presledke pred vsako črko z velikimi črkami, da besede ločite kot Vstavite prazne vrstice med podatke. Kako lahko hitro dodate presledke pred velikimi črkami, namesto da v Excelu vnašate presledke enega za drugim?


Vstavite presledke pred velikimi črkami z uporabniško določeno funkcijo

Na žalost v Excelu ni neposrednega načina za dodajanje presledkov pred velikimi črkami, vendar lahko za rešitev te naloge ustvarite uporabniško določeno funkcijo.

1. Aktivirajte svoj delovni list, ki vsebuje besedilne nize, ki jih želite dodati presledke.

2. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: pred velikimi črkami vstavite presledke

Function AddSpaces(pValue As String) As String
'Update 20140723
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4. Nato shranite in zaprite to kodo, se vrnite na delovni list in vnesite to formulo = dodani prostori (A1) v prazno celico poleg svojih podatkov si oglejte posnetek zaslona:
doc-add-presledki-pred-velikimi črkami-1

5. In nato povlecite ročico za polnjenje čez obseg, ki ga želite vsebovati s to formulo, presledki bodo vstavljeni pred vsako vašo veliko začetnico.
doc-add-presledki-pred-velikimi črkami-1

Preprosto odstranite začetne / zadnje / dodatne prostore v celicah

Kutools za Excel Odstrani presledke pripomoček omogoča uporabnikom Excela, da iz izbranih celic hitro odstranijo ves vodilni prostor, zadnji prostor, odvečne presledke ali vse presledke.


oglas odstranite prostor 1

Pred velikimi črkami vstavite presledke s kodo VBA

Tu je še ena koda VBA, ki vam lahko stori uslugo, storite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.

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

Koda VBA: pred velikimi črkami vstavite presledke

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3. Nato pritisnite F5 tipko za zagon te kode, se prikaže pozivno polje, v katerem lahko izberete obseg podatkov, ki ga želite uporabiti.
doc-add-presledki-pred-velikimi črkami-1

4. In nato kliknite OK če želite zapreti to pozivno polje, so bili presledki vstavljeni pred velikimi črkami hkrati, glejte posnetek zaslona:
doc-add-presledki-pred-velikimi črkami-1


Pred vsako veliko začetnico vstavite presledek s programom Kutools za Excel

Kutools za Excel dodajanje besedila pripomoček vam lahko pomaga obiti makroje VBA in vstaviti presledek pred vsemi velikimi črkami v Excelu.

Kutools za Excel - Vsebuje več kot 300 osnovnih orodij za Excel. Uživajte v 30-dnevnem BREZPLAČNEM preizkusu s polnimi funkcijami brez kreditne kartice! Prenesi zdaj!

1. Izberite obseg, kamor boste vstavili presledek pred velikimi črkami, in kliknite na Kutools > Besedilo > dodajanje besedila. Oglejte si posnetek zaslona:

2. V začetno pogovorno okno Dodaj besedilo vnesite presledek v polje Besedilo potrdite polje Dodaj samo v možnost in izberite Prva črka je velika Iz Samo doda spustni seznam.

3. kliknite Ok gumb za vstavljanje presledka pred vsako veliko začetnico, kot je prikazano na sliki:
doc dodaj presledke pred velikimi črkami 7

Kutools za Excel - Napolnite Excel z več kot 300 osnovnimi orodji. Uživajte v 30-dnevnem BREZPLAČNEM preskusu s polnimi funkcijami brez kreditne kartice! Get It Now

Opombe: Ta metoda bo dodala tudi prostor na začetku celic, če je prva črka velika. Lahko se prijavite Kutools > Besedilo > Odstrani presledke odstraniti vse vodilne presledke iz izbranih celic.


Povezani članek:

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 (9)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This function handles two problems that the given solution doesn't cover:
1. non-English text (with diacritical marks)
2. successive capitals that should not have spaces after them

` Private Function AddSpaces(sText As String)As String
' Inserts a space immediately before a capital letter, except when successive characters are each capitalized.
' Last Updated: 2022-07-04
'
Dim sRet As String, i As Integer, sChar As String, bPrevWasUCase As Boolean

sRet = Left(sText, 1)
For i = 2 To Len(sText)
sChar = Mid(sText, i, 1)
If sChar = UCase(sChar) And Not bPrevWasUCase Then
sRet = sRet & " " & sChar
bPrevWasUCase = True
Else
sRet = sRet & sChar
bPrevWasUCase = False
End If
Next i

AddSpaces= sRet
End Function`
This comment was minimized by the moderator on the site
Hello friend,

Thanks for your share. I tried your VBA code, but it doesn't work. Our VBA code can handle the non-english text. I have test the french text and spaces are successfully inserted before the capital letters.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Hello

First thanks a lot for your code example and the explanations. It works very well for my case.

I just have 1 Problem, some of the Strings contain words like URL, which should not be seperated.
Do you see a way to except for example "URL" from adding spaces?

Would be very nice if you can help. I tried already a while, but i dont know how to solve this..


Best regards
luca
This comment was minimized by the moderator on the site
hi wanna ask you if you found solution for you case, if you found solution please provide me with that
This comment was minimized by the moderator on the site
Hi,
Thanks for your comment and advice. I have sent your suggestion to the Kutools project team, I’m sure they’ll improve it soon.
This comment was minimized by the moderator on the site
Found a solution?
This comment was minimized by the moderator on the site
Hi there, your code works fantastic. Do you know how to adapt code 20140723 to work on multiple sheets? I would like to add spaces between capital letters throughout the entire workbook. Thanks!
This comment was minimized by the moderator on the site
i need a help in excel i want to find Uppercase in a cell. for example: Sagar Paul MBA 16:04 i want MBA to be highlighted
This comment was minimized by the moderator on the site
I hope you can see it and give it a trial. Sub Test() Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection For Each xCell In Rg For i = 1 To xCell.Characters.Count xChar = xCell.Characters(i, 1).Text If Asc(xChar) > 64 And Asc(xChar) < 91 Then xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations