Unfortunately, er det ingen direkte måte for deg å legge til mellomrom før store bokstaver i Excel, men, du kan opprette brukerdefinert funksjon for å løse denne oppgaven.
1. Aktiver regnearket som inneholder tekststrenger du vil legge til mellomrom.
To. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen vindu
VBA-kode. Sett mellomrom før store bokstaver
Funksjons AddSpaces (pValue As String) As String'Update 20140723Dim xOut Som StringxOut = VBA.Left (pValue, 1) For i = 2 Til VBA.Len (pValue) xAsc = VBA.Asc (VBA.Mid (pValue, i, 1)) Hvis xAsc > = 65 Og xAsc < = 90 Deretter xOut = xOut & "" &Amp; VBA.Mid (pValue, i, 1) Else xOut = xOut & VBA.Mid (pValue, i, 1) End IfNextAddSpaces = xOutEnd Function4. Deretter lagre og lukke denne koden, kan du gå tilbake til regnearket, og skriv inn denne formelen = addspaces (A1) i en tom celle i tillegg til dine data, se skjermbilde:
5. Og deretter drar fyllhåndtaket over området du vil inneholde denne formelen, vil du få mellomrom settes inn før hver bokstav.
Sett inn mellomrom før store bokstaver med VBA-kode Anmeldelser Her er en annen VBA-kode kan gjøre deg en tjeneste, kan du gjøre som følger:
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen vindu
VBA-kode. Sett mellomrom før store bokstaver
Sub AddSpacesRange () 'Update 20140723Dim RNG Som RangeDim WorkRng Som RangeDim xOut Som StringDim xVerdi Som StringOn Error Resume NextxTitleId = " KutoolsforExcel "Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) Application.ScreenUpdating = FalseFor Hver RNG I WorkRng xVerdi = Rng.Value xOut = VBA.Left (xVerdi 1) For i = 2 Til VBA.Len (xVerdi) xAsc = VBA.Asc (VBA.Mid (xVerdi, i, 1)) Hvis xAsc > = 65 Og xAsc < = 90 Deretter xOut = xOut & "" &Amp; VBA.Mid (xVerdi, i, 1) Else xOut = xOut & VBA.Mid (xVerdi, i, 1) End If Neste Rng.Value = xOutNextApplication.ScreenUpdating = TrueEnd Sub3. Deretter trykker F5 for å kjøre denne koden, vil en rask boks sprette ut for å la deg velge en dataområdet som du vil bruke.
4. Og klikk deretter på OK for å lukke denne meldingen boksen, mellomrom er satt inn før de store bokstavene på en gang, se skjermbilde:
Sett inn mellomrom før hver blokkbokstaver med Kutools for Excel
Kutools for Excel Legg til tekst verktøyet kan hjelpe deg med å omgå VBA-makroer og sett plass før hvert store bokstaver lett i Excel.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Les mer Gratis nedlasting nå
1. Velg området hvor du vil sette inn mellomrom før store bokstaver, og klikk på Kutools > Tekst > Legg til tekst. Se skjermbilde:
2. I åpnings Legg Tekst dialogboksen skriver en plass i Tekst-boksen, sjekk bare legge til alternativet, og velg første brevet er store bokstaver fra Only legge til nedtrekkslisten.
3 . Klikk på OK-knappen for å sette inn mellomrom før hvert store bokstaver som følgende skjermbilde vises:
Gratis Last ned Kutools for Excel Nå
Merk: Denne metoden vil også legge til plass på begynnelsen av celler hvis den første bokstaven er Capital. Du kan søke Kutools > Tekst > Fjern Spaces for å fjerne alle innledende mellomrom i markerte celler.
Kutools- Kombinerer mer enn 120 avanserte funksjoner og verktøy for Microsoft Excel
Gå til DownloadFree Trial 60 dager PurchasePayPal /MyCommerce