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

Hvordan indsættes mellemrum før store bogstaver i Excel?

Antag at du har en liste over tekststrenge, hvor alle mellemrum mellem ordene fjernes ved et uheld, sådan her: Indsæt Blanke RowsBetweenData, og nu vil du tilføje mellemrummet før hvert bogstav med store bogstaver for at adskille ordene som Indsæt tomme rækker mellem data. Hvordan kunne du hurtigt tilføje mellemrum foran store bogstaver i stedet for at skrive mellemrum en efter en i Excel?


Indsæt mellemrum før store bogstaver med brugerdefineret funktion

Desværre er der ingen direkte måde for dig at tilføje mellemrum før store bogstaver i Excel, men du kan oprette brugerdefineret funktion til at løse denne opgave.

1. Aktivér dit regneark, der indeholder de tekststrenge, du vil tilføje mellemrum.

2. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.

3. Klik indsatte > Moduler, og indsæt følgende kode i Modulvindue.

VBA-kode: Indsæt mellemrum før store bogstaver

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. Gem og luk derefter denne kode, gå tilbage til regnearket og indtast denne formel = tilføjelsesrum (A1) i en tom celle udover dine data, se skærmbillede:
doc-tilføj-mellemrum-før-store-1

5. Og træk derefter fyldhåndtaget hen over det område, som du vil indeholde denne formel, så får du mellemrumene indsat før hvert stort bogstav.
doc-tilføj-mellemrum-før-store-1

Fjern let ledende / bageste / ekstra mellemrum i celler

Kutools til Excel Fjern mellemrum hjælpeprogram gør det muligt for Excel-brugere hurtigt at fjerne alt ledende plads, efterfølgende plads, ekstra mellemrum eller alle mellemrum fra valgte celler.


annonce fjerne plads 1

Indsæt mellemrum før store bogstaver med VBA-kode

Her er en anden VBA-kode, der kan gøre dig en tjeneste, gør som følger:

1. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modulvindue.

VBA-kode: Indsæt mellemrum før store bogstaver

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. Tryk derefter på F5 nøgle til at udføre denne kode, vises en hurtigboks, der giver dig mulighed for at vælge et dataområde, som du vil bruge.
doc-tilføj-mellemrum-før-store-1

4. Og klik derefter på OK for at lukke denne promptboks er mellemrumene indsat før store bogstaver på én gang, se skærmbillede:
doc-tilføj-mellemrum-før-store-1


Indsæt plads før hver store bogstav med Kutools til Excel

Kutools til Excel tilføje tekst værktøj kan hjælpe dig med at omgå VBA-makroerne og indsætte plads før hver store bogstav let i Excel.

Kutools til Excel - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! Gratis prøveperiode nu!

1. Vælg det område, hvor du vil indsætte mellemrum før store bogstaver, og klik på Kutools > tekst > tilføje tekst. Se skærmbillede:

2. I åbningsdialogboksen Tilføj tekst skal du skrive et mellemrum i tekst afkrydsningsfeltet Tilføj kun til valgmulighed og vælg 1. bogstav er stort fra Føj kun til drop down liste.

3. Klik på Ok knap for at indsætte mellemrum før hver store bogstav som følgende skærmbillede vist:
doc tilføj mellemrum før store bogstaver 7

Kutools til Excel - Indeholder mere end 300 praktiske værktøjer til Excel. Gratis prøveversion med fuld funktion 30-dag, intet kreditkort påkrævet! Hent den nu

Noter: Denne metode tilføjer også plads i begyndelsen af ​​celler, hvis det første bogstav er stort. Du kan ansøge Kutools > tekst > Fjern mellemrum for at fjerne alle ledende mellemrum fra valgte celler.


Relateret artikel:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (9)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
jeg har brug for hjælp i excel Jeg vil gerne finde store bogstaver i en celle. for eksempel: Sagar Paul MBA 16:04 jeg ønsker, at MBA skal fremhæves
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg håber, du kan se det og prøve det. Sub Test() Dim Rg As Range, xCell As Range Dim i As Long Dim xChar As String Set Rg = Application.Selection For Hver xCelle In Rg For i = 1 Til xCell.Characters.Count xChar = xCell.Characters(i, 1 ).Tekst Hvis Asc(xChar) > 64 Og Asc(xChar) < 91 Then xCell.Characters(i, 1).Font.Color = vbRed End If Next Next End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, din kode virker fantastisk. Ved du, hvordan man tilpasser kode 20140723 til at fungere på flere ark? Jeg vil gerne tilføje mellemrum mellem store bogstaver i hele projektbogen. Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej

Først mange tak for dit kodeeksempel og forklaringerne. Det fungerer meget godt for mit tilfælde.

Jeg har bare 1 problem, nogle af strengene indeholder ord som URL, som ikke skal adskilles.
Kan du se en måde at undtage for eksempel "URL" fra at tilføje mellemrum?

Ville være meget rart hvis du kan hjælpe. Jeg har prøvet et stykke tid, men jeg ved ikke hvordan jeg skal løse dette..


Med venlig hilsen
Luke
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Tak for din kommentar og råd. Jeg har sendt dit forslag til Kutools projektteam, jeg er sikker på, at de snart vil forbedre det.
Denne kommentar blev minimeret af moderatoren på webstedet
fundet en løsning?
Denne kommentar blev minimeret af moderatoren på webstedet
hej vil gerne spørge dig, om du har fundet en løsning til din sag, hvis du har fundet en løsning, så giv mig det venligst
Denne kommentar blev minimeret af moderatoren på webstedet
Denne funktion håndterer to problemer, som den givne løsning ikke dækker:
1. ikke-engelsk tekst (med diakritiske tegn)
2. på hinanden følgende versaler, der ikke skal have mellemrum efter sig

` Private Function AddSpaces(sText As String)As String
' Indsætter et mellemrum umiddelbart før et stort bogstav, undtagen når på hinanden følgende tegn er skrevet med stort.
' Sidst opdateret: 2022-07-04
'
Dim sRet As String, i As Integer, sChar As String, bPrevWasUCase As Boolean

sRet = Venstre(sTekst, 1)
For i = 2 til Len(sText)
sChar = Mid(sTekst, i, 1)
Hvis sChar = UCase(sChar) og ikke bPrevWasUCase derefter
sRet = sRet & " " & sChar
bPrevWasUCase = Sand
Else
sRet = sRet & sChar
bPrevWasUCase = Falsk
End If
Næste jeg

AddSpaces= sRet
Afslut funktion`
Denne kommentar blev minimeret af moderatoren på webstedet
Hej ven,

Tak for din del. Jeg har prøvet din VBA-kode, men den virker ikke. Vores VBA-kode kan håndtere den ikke-engelske tekst. Jeg har testet den franske tekst, og mellemrum er indsat før de store bogstaver.

Med venlig hilsen,
Mandy
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL