Как вставить пробелы перед заглавными буквами в Excel?

Предположим, у вас есть список текстовых строк, в котором все пробелы между словами случайно удалены, например: Инсербланкровсбетвиндата, и теперь вы хотите добавить пробелы перед каждой буквой с заглавными буквами, чтобы разделить слова как Вставить пустые строки между данными. Как можно быстро добавить пробелы перед заглавными буквами вместо одного за другим в Excel?

• Вставляйте пробелы перед заглавными буквами с помощью функции, определяемой пользователем
• Вставьте пробелы перед заглавными буквами с кодом VBA
• Вставьте пробел перед каждой заглавной буквой с помощью Kutools for 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. Затем перетащите маркер заполнения на диапазон, в который вы хотите поместить эту формулу, и вы получите пробелы перед каждой заглавной буквой.

Вставьте пробелы перед заглавными буквами с кодом VBA

Вот еще один код 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

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

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

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

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

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

Связанная статья:

Как добавить пробелы после запятых в Excel?