Excel вставить пробел перед заглавной буквой

К сожалению, в Excel нет прямого способа добавить пробелы перед заглавными буквами, но вы можете создать определяемую пользователем функцию для решения этой задачи.

1. Активируйте рабочий лист, содержащий текстовые строки, в которые вы хотите добавить пробелы.

2. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: вставляйте пробелы перед заглавными буквами

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. Затем сохраните и закройте этот код, вернитесь на рабочий лист и введите эту формулу = добавляет пробелы (A1) в пустую ячейку помимо ваших данных, см. снимок экрана:

5. А затем перетащите маркер заполнения по диапазону, который вы хотите содержать эту формулу, вы получите пробелы, вставленные перед каждой вашей заглавной буквой.

Легко удалять ведущие / конечные / лишние пробелы в ячейках

Kutools for ExcelАвтора Удалить пробелы Утилита позволяет пользователям Excel легко быстро удалять все пробелы в начале, в конце, лишние пробелы или все пробелы из выбранных ячеек.

Вот еще один код VBA, который может оказать вам услугу, пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: вставляйте пробелы перед заглавными буквами

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, Затем нажмите F5 нажмите клавишу для выполнения этого кода, появится диалоговое окно, позволяющее выбрать диапазон данных, который вы хотите использовать.

4, Затем нажмите OK чтобы закрыть это окно подсказки, пробелы были вставлены сразу перед заглавными буквами, см. снимок экрана:

Kutools for ExcelАвтора Добавить текст Утилита может помочь вам обойти макросы VBA и легко вставить пробел перед каждой заглавной буквой в Excel.

1. Выберите диапазон, в который вы вставите пробел перед заглавными буквами, и щелкните Кутулс > Текст > Добавить текст. Смотрите скриншот:

2. В открывшемся диалоговом окне Добавить текст введите пробел в Текст поле, отметьте Только добавить к опции и 1-я буква заглавная из Только добавить к выпадающий список.

3, Нажмите Ok кнопку, чтобы вставить пробел перед каждой заглавной буквой, как показано на следующем снимке экрана:

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Заметки: Этот метод также добавит пробел в начале ячеек, если первая буква заглавная. Вы можете подать заявку Кутулс > Текст > Удалить пробелы чтобы удалить все ведущие пробелы из выбранных ячеек.