Поставить пробел перед заглавной буквой excel
Здравствуйте, боги excel!
Вроде простая задача, никак не найду решения, если оно есть.
Есть столбец с наименованиями, в нем встречаются слипшиеся буквы и знаки с числами. Мне нужно вставить между числом и буквой(знаком) пробел.
Здравствуйте, боги excel!
Вроде простая задача, никак не найду решения, если оно есть.
Есть столбец с наименованиями, в нем встречаются слипшиеся буквы и знаки с числами. Мне нужно вставить между числом и буквой(знаком) пробел. Studentka86
Есть столбец с наименованиями, в нем встречаются слипшиеся буквы и знаки с числами. Мне нужно вставить между числом и буквой(знаком) пробел. Автор - Studentka86
Дата добавления - 15.07.2019 в 16:54
но не для формул. UDF или макрос, справится на ура. но не формульный вариант
Function NumbersSeparate(strVal As String) As String
Dim strC As String, strP As String, strN As String
Dim res As String, i As Long
For i = 2 To Len(strVal) - 1
strC = Mid(strVal, i, 1)
strP = Mid(strVal, i - 1, 1)
strN = Mid(strVal, i + 1, 1)
If strC >= "0" And strC If (strP < "0" Or strP >"9") And strP <> " " Then res = res & " "
res = res & strC
If (strN < "0" Or strN >"9") And strN <> " " Then res = res & " "
Else
res = res & strC
End If
Next
NumbersSeparate = Left(strVal, 1) & res & Right(strVal, 1)
End Function
Function NumbersSeparate(strVal As String) As String
Dim strC As String, strN As String
Dim res As String, i As Long
For i = 1 To Len(strVal) - 1
strC = Mid(strVal, i, 1)
strN = Mid(strVal, i + 1, 1)
res = res & strC
If (strC >= "0" And strC "9")) Or _
(strN >= "0" And strN " " And (strC < "0" Or strC >"9")) Then _
res = res & " "
Next
NumbersSeparate = res & Right(strVal, 1)
End Function
но не для формул. UDF или макрос, справится на ура. но не формульный вариант
Function NumbersSeparate(strVal As String) As String
Dim strC As String, strP As String, strN As String
Dim res As String, i As Long
For i = 2 To Len(strVal) - 1
strC = Mid(strVal, i, 1)
strP = Mid(strVal, i - 1, 1)
strN = Mid(strVal, i + 1, 1)
If strC >= "0" And strC If (strP < "0" Or strP >"9") And strP <> " " Then res = res & " "
res = res & strC
If (strN < "0" Or strN >"9") And strN <> " " Then res = res & " "
Else
res = res & strC
End If
Next
NumbersSeparate = Left(strVal, 1) & res & Right(strVal, 1)
End Function
Function NumbersSeparate(strVal As String) As String
Dim strC As String, strN As String
Dim res As String, i As Long
For i = 1 To Len(strVal) - 1
strC = Mid(strVal, i, 1)
strN = Mid(strVal, i + 1, 1)
res = res & strC
If (strC >= "0" And strC "9")) Or _
(strN >= "0" And strN " " And (strC < "0" Or strC >"9")) Then _
res = res & " "
Next
NumbersSeparate = res & Right(strVal, 1)
End Function
Замечательный Временно просто медведь , процентов на 20.
но не для формул. UDF или макрос, справится на ура. но не формульный вариант
Function NumbersSeparate(strVal As String) As String
Dim strC As String, strP As String, strN As String
Dim res As String, i As Long
For i = 2 To Len(strVal) - 1
strC = Mid(strVal, i, 1)
strP = Mid(strVal, i - 1, 1)
strN = Mid(strVal, i + 1, 1)
If strC >= "0" And strC If (strP < "0" Or strP >"9") And strP <> " " Then res = res & " "
res = res & strC
If (strN < "0" Or strN >"9") And strN <> " " Then res = res & " "
Else
res = res & strC
End If
Next
NumbersSeparate = Left(strVal, 1) & res & Right(strVal, 1)
End Function
Function NumbersSeparate(strVal As String) As String
Dim strC As String, strN As String
Dim res As String, i As Long
For i = 1 To Len(strVal) - 1
strC = Mid(strVal, i, 1)
strN = Mid(strVal, i + 1, 1)
res = res & strC
If (strC >= "0" And strC "9")) Or _
(strN >= "0" And strN " " And (strC < "0" Or strC >"9")) Then _
res = res & " "
Next
NumbersSeparate = res & Right(strVal, 1)
End Function
Public Function separateNumbers(ByVal inText As String) As String
Static FReg As Object
If FReg Is Nothing Then
Set FReg = CreateObject("VBScript.RegExp")
FReg.Pattern = "([^ \d](?=\d)|\d(?=[^ \d]))"
FReg.Global = True
End If
separateNumbers = FReg.Replace(inText, "$1 ")
End Function
Public Function separateNumbers(ByVal inText As String) As String
Static FReg As Object
If FReg Is Nothing Then
Set FReg = CreateObject("VBScript.RegExp")
FReg.Pattern = "([^ \d](?=\d)|\d(?=[^ \d]))"
FReg.Global = True
End If
separateNumbers = FReg.Replace(inText, "$1 ")
End Function
Public Function separateNumbers(ByVal inText As String) As String
Static FReg As Object
If FReg Is Nothing Then
Set FReg = CreateObject("VBScript.RegExp")
FReg.Pattern = "([^ \d](?=\d)|\d(?=[^ \d]))"
FReg.Global = True
End If
separateNumbers = FReg.Replace(inText, "$1 ")
End Function
bmv98rus, прекрасно работает!
anvg, тоже отлично работает!
bmv98rus, прекрасно работает!
anvg, тоже отлично работает! Studentka86
bmv98rus, прекрасно работает!
anvg, тоже отлично работает! Автор - Studentka86
Дата добавления - 16.07.2019 в 14:03
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";"@");0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));" @ ";"@");" @";"@");"@ ";"@");"@";" ")
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";"@");0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));" @ ";"@");" @";"@");"@ ";"@");"@";" ")
=ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";"@");0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));" @ ";"@");" @";"@");"@ ";"@");"@";" ")
Но всегда придет медведь и наступит на больное
"Помидоры C@3000" превратятся в "Помидоры C 3000" вместо ожидаемых "Помидоры C@ 3000"
Nic70y, на заметку взял, но с корректировкой
=SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2;" ";CHAR(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));CHAR(1);" ")
Но всегда придет медведь и наступит на больное
"Помидоры C@3000" превратятся в "Помидоры C 3000" вместо ожидаемых "Помидоры C@ 3000"
Nic70y, на заметку взял, но с корректировкой
=SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2;" ";CHAR(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));CHAR(1);" ")
Замечательный Временно просто медведь , процентов на 20.
Но всегда придет медведь и наступит на больное
"Помидоры C@3000" превратятся в "Помидоры C 3000" вместо ожидаемых "Помидоры C@ 3000"
Nic70y, на заметку взял, но с корректировкой
=SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2;" ";CHAR(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));CHAR(1);" ")
bmv98rus, как приятно найти в одном месте столько профессионалов и сверхпрофессионалов !
bmv98rus, как приятно найти в одном месте столько профессионалов и сверхпрофессионалов !
Автор - Studentka86
Дата добавления - 16.07.2019 в 16:27
Гы, пришло время и ведмедю что-то оттоптать
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";СИМВОЛ(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));СИМВОЛ(1);" ")
выдает Помидоры C 3 0 0 0
Гы, пришло время и ведмедю что-то оттоптать
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";СИМВОЛ(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));СИМВОЛ(1);" ")
выдает Помидоры C 3 0 0 0 bigor
=ПОДСТАВИТЬ(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;" ";СИМВОЛ(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";));СИМВОЛ(1);" ")
выдает Помидоры C 3 0 0 0 Автор - bigor
Дата добавления - 16.07.2019 в 16:34
в вашем примере (см. вложенный файл)
в вашем примере (см. вложенный файл) bigor
в вашем примере (см. вложенный файл) Автор - bigor
Дата добавления - 16.07.2019 в 16:53
в формуле, которую Вы приложили 264 и 265 символы не пробелы, а неразрывные пробелы,
у Михаила не так Nic70y
Ну значит каюсь, посыпаю голову пеплом, прошу прощения.
Копировал с форума, возможно при переводе на русские функции что-то глюкануло
Ну значит каюсь, посыпаю голову пеплом, прошу прощения.
Копировал с форума, возможно при переводе на русские функции что-то глюкануло bigor
да, не,
можно немного постоять,
формула то, неверный результат дает (см файл из сооб. №10) Автор - Nic70y
Дата добавления - 17.07.2019 в 09:11
=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2;" ";CHAR(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";);CHAR(1);" "))
Так процент совпадения выше, но там и в исходном двойные пробелы, ну если они нужны, то тогда конечно хвост ",))," @ ","@")," @","@"),"@ ","@"),"@"," "), разве что с заменой "@" на Char(1)
Все от дальнейшей задачи. ля чего это отделение было нужно.
=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2;" ";CHAR(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";);CHAR(1);" "))
Так процент совпадения выше, но там и в исходном двойные пробелы, ну если они нужны, то тогда конечно хвост ",))," @ ","@")," @","@"),"@ ","@"),"@"," "), разве что с заменой "@" на Char(1)
Все от дальнейшей задачи. ля чего это отделение было нужно. bmv98rus
=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2;" ";CHAR(1));0;" 0 ");1;" 1 ");2;" 2 ");3;" 3 ");4;" 4 ");5;" 5 ");6;" 6 ");7;" 7 ");8;" 8 ");9;" 9 ");" ";);CHAR(1);" "))
Так процент совпадения выше, но там и в исходном двойные пробелы, ну если они нужны, то тогда конечно хвост ",))," @ ","@")," @","@"),"@ ","@"),"@"," "), разве что с заменой "@" на Char(1)
Все от дальнейшей задачи. ля чего это отделение было нужно. Автор - bmv98rus
Дата добавления - 17.07.2019 в 09:39
Вот список имен, которым нужно добавить пространство, чтобы разделить их, как показано на скриншоте ниже, как вы можете быстро решить эту проблему?
Добавьте пробел между именем и фамилией с помощью Добавить текст
Добавьте пробел между именем и фамилией с помощью определенной функции
Чтобы добавить пробел между именем и фамилией, вы можете использовать только Определенная функция решать в Excel.
1. Нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте приведенный ниже код в пустой скрипт.
Код: добавьте пробел между именами
3. Сохраните код и закройте Приложения в окне выберите пустую ячейку и введите эту формулу = AddSpaces (A1) , затем перетащите маркер автозаполнения на ячейки, к которым вы хотите применить эту формулу.
Добавьте пробел между именем и фамилией с помощью Добавить текст
Если вы не знакомы с определенной функцией, вы можете применить Kutools for ExcelАвтора Добавить текст утилита для быстрого добавления пробела между именем и фамилией.
1. Выберите ячейки, в которые нужно добавить пробелы, щелкните Кутулс > Текст > Добавить текст. Смотрите скриншот:
2.В Добавить текст диалог, введите пространство в Текст коробка, отметьте Только добавить к и выберите Перед заглавными буквами из раскрывающегося списка. Смотрите скриншот:
3. Нажмите Ok or Применить, теперь перед каждой прописной буквой добавлен пробел. Смотрите скриншот:
Функции: если вы хотите удалить начальный пробел, вы можете применить Kutools for ExcelАвтора Удалить пробелы утилита, она может помочь вам удалить начальные и конечные пробелы, лишние пробелы или все пробелы по мере необходимости. Полная функция без ограничений в течение 30 дней, пожалуйста, скачайте и получите бесплатную пробную версию сейчас.
Как добавить пробелы после запятых в Excel?
Когда вы копируете или импортируете некоторые данные из других приложений, вы можете получить данные, содержащие запятые, но без пробелов после них. Но теперь вы хотите добавить пробел после каждой запятой, чтобы сделать текстовую строку более четкой и стандартной, как показано на следующем снимке экрана. Есть ли у вас какие-нибудь хорошие идеи по поводу этой работы?
Вкладка Office позволяет редактировать и просматривать в Office с вкладками и значительно упрощает работу .
- Повторное использование чего угодно: Добавляйте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
- Более 20 текстовых функций: Извлечь число из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
- Инструменты слияния : Несколько книг и листов в одну; Объединить несколько ячеек / строк / столбцов без потери данных; Объедините повторяющиеся строки и сумму.
- Разделить инструменты : Разделение данных на несколько листов в зависимости от ценности; Из одной книги в несколько файлов Excel, PDF или CSV; От одного столбца к нескольким столбцам.
- Вставить пропуск Скрытые / отфильтрованные строки; Подсчет и сумма по цвету фона ; Отправляйте персонализированные электронные письма нескольким получателям массово.
- Суперфильтр: Создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделям, дням, периодичности и др .; Фильтр жирным шрифтом, формулы, комментарий .
- Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.
Добавляйте пробелы после запятых в формулах
Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!
Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!
Чтобы добавить пробелы после запятых на листе, вы можете применить следующую простую формулу, сделайте следующее:
1. Рядом со своими данными введите эту формулу = ОБРЕЗАТЬ (ПОДСТАВИТЬ (A2; ";"; ";")) (A2 содержит данные, которые вы хотите добавить пробелы), см. снимок экрана:
2. Затем перетащите дескриптор заполнения к ячейкам, которые вы хотите применить к этой формуле, и все текстовые строки были вставлены через пробел после каждой запятой, см. Снимок экрана:
Добавляйте пробелы после запятых с помощью функции поиска и замены
В Excel вы также можете использовать функцию «Найти и заменить» для замены запятой на запятую + пробел. Для этого выполните следующие действия:
1. Выберите диапазон данных, в котором вы хотите добавить пробелы после запятых.
2. Затем нажмите Главная > Найти и выбрать > Замените или вы можете нажать Ctrl + H , чтобы открыть Найти и заменить диалоговое окно.
3. В открытом Найти и заменить диалоговом окне введите запятую в Найти то, что текстовое поле и введите запятую и пробел в Заменить текстовое поле, см. снимок экрана:
4, Затем нажмите Заменить все кнопки пробелы были вставлены после запятых.
Предположим, у вас есть список текстовых строк, в котором все пробелы между словами удалены случайно, например: InsertBlankRowsBetweenData, и теперь вы хотите добавить пробелы перед каждой буквой с заглавными буквами, чтобы разделить слова как Вставить пустые строки между данными. Как вы могли быстро добавить пробелы перед заглавными буквами вместо одного за другим в Excel?
- Вставьте пробелы перед заглавными буквами с помощью функции, определяемой пользователем
- Вставить пробелы перед заглавными буквами с кодом VBA
- Вставить пробел перед каждой заглавной буквой с помощью Kutools for Excel
Вставьте пробелы перед заглавными буквами с помощью функции, определяемой пользователем
К сожалению, нет прямого способа добавить пробелы перед заглавными буквами в Excel, но вы можете создать определяемую пользователем функцию для решения этой задачи.
1 . Активируйте свой рабочий лист, содержащий текстовые строки, в которые вы хотите добавить пробелы.
2 . Удерживая нажатыми клавиши ALT + F11 , откройте окно Microsoft Visual Basic для приложений .
3 . Нажмите Вставить > Module и вставьте следующий код в окно модуля .
Код VBA: вставляйте пробелы перед заглавными буквами
4 . Затем сохраните и закройте этот код, вернитесь на рабочий лист и введите эту формулу = addpaces (A1) в пустую ячейку помимо ваших данных, см. Снимок экрана:
5 . А затем перетащите маркер заполнения по диапазону, который вы хотите содержать эту формулу, вы получите пробелы, вставленные перед каждой вашей заглавной буквой.
Легко удалять начальные/конечные/лишние пробелы в ячейках
Kutools for Excel’s Удалить пробелы утилита позволяет Пользователи Excel могут легко удалить все начальные и конечные пробелы, лишние пробелы или все пробелы из выбранных ячеек. 30-дневная бесплатная пробная версия полнофункциональной версии!
Вставляйте пробелы перед заглавными буквами с кодом VBA
Вот еще один VBA код может оказать вам услугу, пожалуйста, сделайте следующее:
1 . Удерживая нажатыми клавиши ALT + F11 , откройте окно Microsoft Visual Basic для приложений .
2 . Нажмите Вставить > Module и вставьте следующий код в окно модуля .
Код VBA: вставляйте пробелы перед заглавными буквами
3 . Затем нажмите клавишу F5 , чтобы выполнить этот код, появится всплывающее окно, позволяющее выбрать диапазон данных, который вы хотите использовать.
4 . Затем нажмите OK , чтобы закрыть это окно подсказки, пробелы были вставлены сразу перед заглавными буквами, см. Снимок экрана:
Вставить пробел перед каждой заглавной буквой с помощью Kutools для Excel
Kutools for Excel’s Добавить текст утилита может помочь вам обойти макросы VBA и легко вставить пробел перед каждой заглавной буквой в Excel.
Kutools for Excel — включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная 30-дневная пробная версия, кредитная карта не требуется! Бесплатная пробная версия!
Kutools for Excel — объединяет более 300 дополнительных функций и инструментов для Microsoft Excel
1 . Выберите диапазон, в который вы будете вставлять пробел перед заглавными буквами, и нажмите Kutools > Текст > Добавить текст . См. Снимок экрана:
2 . В открывшемся диалоговом окне Добавить текст введите пробел в поле Текст , установите флажок Только добавить в и выберите 1-я буква верхний регистр из раскрывающегося списка Только добавить в .
Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная 30-дневная бесплатная пробная версия, кредитная карта не требуется! Получить сейчас
Примечания . Этот метод также добавит пробел в начале ячеек, если первая буква заглавная. Вы можете применить Kutools > Text > Remove Spaces , чтобы удалить все ведущие пробелы из выбранных ячеек.
Вот список имен, которым нужно добавить пробел, чтобы разделить их, как показано на скриншоте ниже. Как вы можете быстро решить эту проблему?
Добавьте пробел между именем и фамилией с помощью Определенной функции
Добавьте пробел между именем и фамилией с помощью Добавить текст
Добавьте пробел между именем и фамилией с помощью Определенной функции
Чтобы добавить пробел между именем и фамилией, вы можете применить только Определенную функцию для решения в Excel.
1. Нажмите клавиши Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений .
2. Нажмите Вставить > Module и вставьте приведенный ниже код в пустой скрипт.
Код: добавьте пробел между именами
3. Сохраните код и закройте окно Приложения , выберите пустую ячейку и введите эту формулу = AddSpaces (A1), затем перетащите дескриптор автозаполнения на ячейки, к которым вы хотите применить эту формулу.
Добавить пробел между именем и фамилией с помощью Добавить текст
Если вы не знакомы с определенной функцией, вы можете применить Kutools for Excel Добавить текст , чтобы быстро добавить пробел между именем и фамилией.
После установки Kutools for Excel, сделайте следующее. : ( Скачайте бесплатно Kutools for Excel прямо сейчас!)
1. Выделите ячейки, в которые вы хотите добавить пробелы, нажмите Kutools > Текст > Добавить текст . См. Снимок экрана:
2.В поле Добавить текст введите пробел в поле Текст , установите флажок Только добавлять в и выберите Перед заглавными буквами из раскрывающегося списка. См. Снимок экрана:
3. Нажмите Ok или Применить , теперь перед каждой прописной буквой добавлен пробел. См. Снимок экрана:
Совет : если если вы хотите удалить начальный пробел, вы можете применить Kutools for Excel Remove Spaces , он может помочь вам удалить начальные пробелы, конечные пробелы и т. д. дополнительные пробелы или все пробелы по мере необходимости. Полная функция без ограничений в течение 30 дней, пожалуйста, скачайте и получите бесплатную пробную версию сейчас.
Читайте также: