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 presledke pred velikimi črkami v excel?

Predvidevam, da imate seznam besednih nizov, ki vse naključje med besedami odstranijo naključno, na primer: InsertBlankRowsBetweenData, zdaj pa želite dodati presledke pred vsako črko z velikimi črkami, da ločite besede kot Vstavi prazne vrstice med podatki. Kako lahko hitro dodate presledke pred velikimi črkami, namesto da vnesete presledke v Excelu?

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

Vstavite presledke pred velikimi črkami s kodo VBA

Vstavite presledek pred vsako velikostno črko s Kutools za Excel

Preprosto odstranite vodilne / sledilne / dodatne prostore v celicah

Kutools za Excelove Odstrani Spaces pripomoček uporabnikom Excel omogoča, da hitro odstranijo vse vodilne prostore, sledilni prostor, dodatne prostore ali vse prostore iz izbranih celic.

oglas odstrani prostor 1


puščica modra desno mehurček Vstavite presledke pred velikimi črkami z uporabniško določeno funkcijo


Na žalost ni neposrednega načina, da dodate presledke pred velikimi črkami v Excelu, 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 presledkom.

2. Drži dol ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic za aplikacije.

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

VBA koda: Vstavite presledke pred velikimi črkami

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 = dodatki (A1) v prazno celico poleg podatkov, si oglejte sliko zaslona:

doc-dodaj-presledke-pred-velikimi črkami-1

5. In nato povlecite ročico za polnjenje v obseg, v katerem želite vsebovati to formulo, boste vnesli presledke, ki so vstavljene pred vsakim velikim črkom.

doc-dodaj-presledke-pred-velikimi črkami-1


puščica modra desno mehurček Vstavite presledke pred velikimi črkami s kodo VBA

Tukaj je še ena VBA koda vam lahko uslugo, storite takole:

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

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

VBA koda: Vstavite presledke pred velikimi črkami

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 Če želite izvedeti to kodo, se bo odprlo okno za potrditev, ki vam bo omogočilo, da izberete obseg podatkov, ki ga želite uporabiti.

doc-dodaj-presledke-pred-velikimi črkami-1

4. In nato kliknite OK Če želite zapreti to potrditveno polje, so bili prostori vstavljeni pred velikimi črkami hkrati, glejte sliko zaslona:

doc-dodaj-presledke-pred-velikimi črkami-1


puščica modra desno mehurček Vstavite presledek pred vsako velikostno črko s Kutools za Excel

Kutools za Excelove dodajanje besedila pripomoček vam lahko pomaga pri premostitvi makrojev VBA in pred vsakim velikim črkam v Excelu.

Kutools za Excel - Združuje več kot 300 napredne funkcije in orodja za Microsoft Excel

1. Izberite obseg, kjer boste vstavili presledek pred velikimi črkami in kliknite na Kutools > Besedilo > dodajanje besedila. Prikaz slike:

2. V pogovornem oknu Add Add Text vnesite prostor v Besedilo polje, preverite Dodajte samo možnost in izberite 1st črka je velika Iz Dodaj samo v spustni seznam.

3. Kliknite Ok gumb, da vstavite prostor pred vsako velikostno črko, kot je prikazan naslednji prikaz zaslona:

doc dodaja presledke pred velikimi črkami 7

Kutools za Excel - Vključuje več kot priročna orodja Excel za 300. Celotna brezplačna preizkusna različica 60-dan, brez kreditne kartice! Get it now!

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


puščica modra desno mehurčekPovezani članek:

Kako dodati presledke po vejicah v Excelu?


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.
  • To post as a guest, your comment is unpublished.
    Luca · 9 months ago
    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
    • To post as a guest, your comment is unpublished.
      kellytte · 5 months ago
      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.
  • To post as a guest, your comment is unpublished.
    Excelsior · 2 years ago
    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!
  • To post as a guest, your comment is unpublished.
    Paul · 2 years ago
    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
    • To post as a guest, your comment is unpublished.
      Jay · 2 years ago
      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