Tyvärr finns det inget direkt sätt för dig att lägga till mellanslag före versaler i Excel, men du kan skapa användardefinierad funktion för att lösa denna uppgift.

1. Aktivera ditt kalkylblad som innehåller textsträngarna du vill lägga till mellanslag.

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

3. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Infoga mellanslag före versaler

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. Spara och stäng sedan den här koden, gå tillbaka till kalkylbladet och ange den här formeln = tilläggsutrymmen (A1) i en tom cell förutom dina data, se skärmdump:

5. Och dra sedan fyllningshandtaget över det intervall som du vill innehålla denna formel, du får blanksteg infogas före varje stor bokstav.

Ta enkelt bort ledande / efterföljande / extra utrymmen i celler

Kutools för Excel Ta bort utrymmen verktyget gör det möjligt för Excel-användare att snabbt ta bort allt ledande utrymme, efterföljande utrymme, extra mellanslag eller alla mellanslag från valda celler.

Här är en annan VBA-kod som kan göra dig en tjänst, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Infoga mellanslag före versaler

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. Tryck sedan på F5 för att köra den här koden, kommer en snabbruta att dyka upp för att låta dig välja ett dataområde som du vill använda.

4. Och klicka sedan på OK för att stänga denna snabbruta har mellanslag införts framför stora bokstäver på en gång, se skärmdump:

Kutools för Excel lägga till text verktyget kan hjälpa dig att kringgå VBA-makron och infoga utrymme före alla stora bokstäver enkelt i Excel.

1. Välj det område där du ska infoga mellanslag före versaler och klicka på Kutools > text > lägga till text. Se skärmdump:

2. Skriv in ett mellanslag i dialogrutan Öppna Lägg till text text kryssa i rutan Lägg bara till alternativet och välj Första bokstaven är stor från Lägg bara till listrutan.

3. Klicka på Ok knapp för att infoga mellanslag före varje stora bokstäver som följande skärmdump visas:

Anmärkningar: Den här metoden lägger också till utrymme i början av celler om den första bokstaven är stor. Du kan ansöka Kutools > text > Ta bort utrymmen för att ta bort alla ledande mellanslag från markerade celler.

Hur lägger jag till mellanslag efter komma i Excel?