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

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 - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Brezplačna preizkusna različica 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 - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! 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 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 (9)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
potrebujem pomoč v excelu, želim najti velike črke v celici. na primer: Sagar Paul MBA 16:04 želim, da je MBA poudarjen
Ta komentar je moderator na spletnem mestu minimiziral
Upam, da si ga lahko ogledate in ga preizkusite. Subtest() Dim Rg kot obseg, xCell kot obseg Dim i As Long Dim xChar Kot niz nizov Rg = Application.Selection For Every xCell In Rg For i = 1 Do xCell.Characters.Count xChar = xCell.Characters(i, 1 ).Besedilo, če je Asc(xChar) > 64 in Asc(xChar) < 91 Potem xCell.Characters(i, 1).Font.Color = vbRed End, če je naslednji naslednji konec pod
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, vaša koda deluje fantastično. Ali veste, kako prilagoditi kodo 20140723 za delo na več listih? V celotnem delovnem zvezku bi rad dodal presledke med velikimi črkami. Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živijo

Najprej najlepša hvala za vaš primer kode in pojasnila. Za moj primer deluje zelo dobro.

Imam samo 1 težavo, nekateri nizi vsebujejo besede, kot je URL, ki jih ne bi smeli ločiti.
Ali vidite način, da razen na primer "URL" dodate presledke?

Zelo lepo bi bilo, če bi lahko pomagali. Poskušal sem že nekaj časa, pa ne vem kako naj to rešim..


Lep pozdrav
Luke
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Hvala za vaš komentar in nasvet. Vaš predlog sem poslal projektni skupini Kutools, prepričan sem, da ga bodo kmalu izboljšali.
Ta komentar je moderator na spletnem mestu minimiziral
Ste našli rešitev?
Ta komentar je moderator na spletnem mestu minimiziral
zdravo, rad bi vas vprašal, ali ste našli rešitev za vaš primer, če ste našli rešitev, mi jo prosim posredujte
Ta komentar je moderator na spletnem mestu minimiziral
Ta funkcija obravnava dve težavi, ki ju dana rešitev ne pokriva:
1. neangleško besedilo (z diakritičnimi znaki)
2. zaporedne velike črke, za katerimi ne sme biti presledkov

` Zasebna funkcija AddSpaces(sText As String)As String
' Vstavi presledek tik pred veliko začetnico, razen če so zaporedni znaki napisani z veliko začetnico.
' Nazadnje posodobljeno: 2022-07-04
'
Dim sRet kot niz, i kot celo število, sChar kot niz, bPrevWasUCase kot logično

sRet = levo (sBesedilo, 1)
Za i = 2 To Len(sBesedilo)
sChar = Mid(sText, i, 1)
Če je sChar = UCase(sChar) in ne bPrevWasUCase Potem
sRet = sRet & " " & sChar
bPrevWasUCase = True
Else
sRet = sRet & sChar
bPrevWasUCase = False
Konec Če
Naslednja i

AddSpaces= sRet
Končna funkcija`
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljen, prijatelj,

Hvala za vaš delež. Poskusil sem vašo kodo VBA, vendar ne deluje. Naša koda VBA lahko obravnava neangleško besedilo. Preizkusil sem francosko besedilo in presledki so uspešno vstavljeni pred velikimi črkami.

S spoštovanjem,
Mandy
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