Как сделать первую букву в ячейке в 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))


2

Вот простой макрос для преобразования текста в диапазоне во все CAPS. Измените диапазон в 3-й строке на диапазон, который вы хотите преобразовать.

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

iv>

share | улучшить этот ответ | |
ответил 07 июля 2015, 12:32
  • обновленный вопрос с образцом материала, любезно взгляните на него, друг — BlueBerry — Vignesh4303 7 июля 2015 г., 12:39
  • 2
    Дэйв уже дал вам это решение, Затем вы сказали, что хотите, чтобы вся ячейка была заглавной. Пожалуйста, прими свое решение. — CharlieRB 07 июл., 15:41
добавить комментарий |

Вот простой макрос для преобразования текста в диапазоне во все CAPS. Измените диапазон в 3-й строке на диапазон, который вы хотите преобразовать.

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

0

Вы также можете скопировать необходимые данные в документ Microsoft Word и изменить регистр букв с помощью кнопки «Aa» на вкладке «Главная»> «Шрифт» . Затем просто скопируйте и вставьте обратно в Excel.

share | улучшить этот ответ | |
ответил 16 июля ’15 в 11:27
добавить комментарий |

Вы также можете скопировать необходимые данные в документ Microsoft Word и изменить регистр букв с помощью кнопки «Aa» в вкладка «Главная> Шрифт» . Затем просто скопируйте и вставьте обратно в Excel.


0

Самый простой — создать свою собственную функцию (Нью-Йорк, следовательно, это была первая столица США ….)

Функция NewYork (InputText As String)

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

Конечная функция

поделиться | улучшить этот ответ | |
ответил 12 дек. ’19 в 16:07
добавить комментарий |

Проще всего создать свою собственную функцию (Нью-Йорк, следовательно, он был первой столицей США ….)

Функция NewYork (InputText As String)

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

Конечная функция


-2

Используйте LibreOffice! Вы можете открывать, изменять и сохранять файлы Excel.1. Выделите ячейки, которые хотите изменить 2. Наведите указатель мыши на «Формат»> «Текст»> «Изменить регистр»> «Делать все WordSimples заглавными».

share | улучшить этот ответ | |
ответил 17 февраля ’17 в 18:58
  • Вопрос НЕ о LibreOffice. — RamonRobben 03 мар. ’17 в 7:57
добавить комментарий |

Используйте LibreOffice! Вы можете открывать, изменять и сохранять файлы Excel.1. Выделите ячейки, которые хотите изменить 2. Наведите указатель мыши на «Формат»> «Текст»> «Изменить регистр»> «Сделать каждое слово простыми словами»

Оцените статью
somehone.ru
Добавить комментарий