Как сделать первую букву в ячейке в Excel заглавной

Недавно я наткнулся на Excel с ячейками, заполненными маленькими регистрами. Есть ли какой-нибудь простой способ или макрос для использования заглавных букв в каждом слове Excel?

Например, рассмотрите изображение ниже:

После преобразования он должен выглядеть, как показано ниже:

Мне нужно использовать заглавные буквы в каждой ячейке [всей ячейке] в Excel с первым буква как заглавная? любой простой способ сделать это?

Мне нужно сделать каждую ячейку в excel заглавной с первой буквой как заглавной? любой простой способ выполнить это ?

Да, использовать этот макрос. Не забудьте сначала сделать резервную копию файла!

  Sub uppercase () For Each cell In Application.ActiveSheet.UsedRange If (cell.Value  "") Then cell  .Value = UCase (cell.Value) 'это сделает верхний регистр всей ячейки End IfNextEnd Sub  

Чтобы сделать первую букву каждой ячейки верхним регистром, вы должны использовать

  cell.Value = UCase (Left (cell.Value, 1)) & Right (cell.Value, Len (cell.Value) - 1) 'Это сделает первое слово  в верхнем регистре ячейки  

Чтобы сделать регистр заголовка, используйте

  Sub titleCase () для каждой ячейки в Application.ActiveSheet  .UsedRange If (cell.Value  "") Then cell.Value = TitleCase (cell.Value) 'это сделает всю ячейку в верхнем регистре End IfNextEnd SubFunction TitleCase (s) As Stringa = Split (s, "") For  i = 0 To UBound (a) If (Trim (a (i))  "") Then TitleCase = TitleCase & UCase (Left (a (i), 1)) & Right (a (i), Len (a  (i)) - 1) & "" End IfNextTitleCase = Trim (TitleCase) End Function  

Как добавить VBA в MS O ffice?

6

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

Следующие формулы преобразуют случаи для вас.

= UPPER (A1) преобразует все буквы в верхний регистр
= LOWER (A1) преобразует все буквы в нижний регистр
= PROPER (A1) преобразует первую букву каждого слова в верхний регистр, а все остальные буквы в нижний регистр
(«Слово» — это последовательная строка букв. Любая не буква считается концом слова. )

Вот примеры результатов:

Ввод: Aaa bbb-ccc/ddd = eee9fff "ggg hhh {iii (jjj
Верхний: AAA BBB-CCC/DDD = EEE9FFF "GGG HHH {III (JJJ
Нижний: aaa bbb- ccc/ddd = eee9fff "ggg hhh {iii (jjj
Правильно: Aaa Bbb-Ccc/Ddd = Eee9Fff" Ggg Hhh {Iii (Jjj

Если вы хотите использовать заглавную только первую букву ячейки, объедините UPPER с некоторыми другими функциями:
= UPPER ( LEFT (A1)) & MID (A1,2, LEN (A1))

поделиться | улучшить этот ответ | |

ответил 7 июля 2015 г., 13:00

• Извините, как это работает? Я имею в виду, что если у меня есть значение в A1 и я хочу сохранить это значение в A1, как я могу использовать формулу рабочего листа? Или мне нужно будет скопировать все остальное w сюда, а затем скопируйте его обратно (что достаточно просто) — Дэйв 7 июля 2015, 13:06
• Если вы хотите сохранить его в той же ячейке, то вы правы. Вы должны создать второй столбец с формулами, а затем скопировать/вставить значения поверх исходных данных. Это единственный недостаток VBA: он не может редактировать данные на месте. — Инженер Тост 07 июля 2015, 13:18
• … Это, вероятно, лучшее решение, чем мое, поскольку оно, вероятно, более доступно +1 — Дэйв 7 июля 2015, 13:21
• Согласитесь, что надлежащий сейчас лучший выбор, если только нужно только первое слово. +1 — Raystafarian 16 июл. ’15 в 11:35

добавить комментарий |

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

Следующие формулы преобразуют случаи для вас.

= UPPER (A1) преобразует все буквы в верхний регистр
= LOWER (A1) преобразует все буквы в нижний регистр
= PROPER (A1) преобразует первую букву каждого слова в верхний регистр, а все остальные буквы в нижний регистр
(«Слово» — это последовательная строка букв. Любая не буква считается концом слова. )

Вот примеры результатов:

Ввод: Aaa bbb-ccc/ddd = eee9fff "ggg hhh {iii (jjj
Верхний: AAA BBB-CCC/DDD = EEE9FFF "GGG HHH {III (JJJ
Нижний: aaa bbb- ccc/ddd = eee9fff "ggg hhh {iii (jjj
Правильно: Aaa Bbb-Ccc/Ddd = Eee9Fff" Ggg Hhh {Iii (Jjj

Если вы хотите использовать заглавную только первую букву ячейки, объедините UPPER с некоторыми другими функциями:
= UPPER ( LEFT (A1)) & MID (A1,2, LEN (A1))

  Sub Uppercase () 'Цикл для циклического перебора каждой ячейки в указанном диапазоне. For Each x In Range ("A1: A25")' Измените текст в диапазоне на прописные буквы. x.Value  = UCase (x.Value) NextEnd Sub  

  Sub Uppercase () 'Цикл для циклического перебора каждой ячейки в указанном диапазоне.  Для каждого x в диапазоне ("A1: A25") 'Измените текст в диапазоне на прописные буквы.  x.Value = UCase (x.Value) NextEnd Sub  

  NewYork =  UCase (Left (InputText, 1)) и Right (InputText, Len (InputText) - 1)  

  NewYork = UCase (Left (InputText, 1)) и Right (InputText, Len (InputText) - 1)