Niestety, w programie Excel nie ma bezpośredniego sposobu dodawania spacji przed wielkimi literami, ale można utworzyć funkcję zdefiniowaną przez użytkownika, aby rozwiązać to zadanie.

1. Aktywuj arkusz roboczy zawierający ciągi tekstowe, do których chcesz dodać spacje.

2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.

3. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: wstaw spacje przed dużymi literami

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. Następnie zapisz i zamknij ten kod, wróć do arkusza i wprowadź tę formułę = spacje dodatkowe (A1) do pustej komórki poza danymi, zobacz zrzut ekranu:

5. A następnie przeciągnij uchwyt wypełniania do zakresu, w którym chcesz zawrzeć tę formułę, a spacje zostaną wstawione przed każdą wielką literą.

Z łatwością usuwaj początkowe / końcowe / dodatkowe spacje w komórkach

Kutools dla Excela Usuń spacje Narzędzie umożliwia użytkownikom programu Excel łatwe usuwanie całej wiodącej spacji, spacji końcowej, dodatkowych spacji lub wszystkich spacji z wybranych komórek.

Oto kolejny kod VBA, który może wyświadczyć ci przysługę, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: wstaw spacje przed dużymi literami

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. Następnie naciśnij F5 Aby wykonać ten kod, pojawi się okno zachęty umożliwiające wybranie zakresu danych, którego chcesz użyć.

4. A następnie kliknij OK aby zamknąć to okno zachęty, spacje zostały wstawione przed dużymi literami od razu, patrz zrzut ekranu:

Kutools dla Excela Dodaj tekst narzędzie może pomóc Ci ominąć makra VBA i łatwo wstawić spację przed każdą wielką literą w programie Excel.

1. Wybierz zakres, w którym wstawisz spację przed wielkimi literami, i kliknij Kutools > Tekst > Dodaj tekst. Zobacz zrzut ekranu:

2. W otwartym oknie dialogowym Dodaj tekst wpisz spację w Tekst zaznacz pole Dodaj tylko do opcji i wybierz Pierwsza litera jest wielka z Dodawaj tylko do Lista rozwijana.

3, Kliknij Ok przycisk, aby wstawić spację przed każdą wielką literą, jak pokazano na poniższym zrzucie ekranu:

Uwagi: Ta metoda spowoduje również dodanie spacji na początku komórek, jeśli pierwsza litera jest duża. Możesz aplikować Kutools > Tekst > Usuń spacje aby usunąć wszystkie wiodące spacje z wybranych komórek.

Jak dodać spacje po przecinkach w programie Excel?