Перейти к основному содержанию

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

Автор: Келли Последнее изменение: 2020 июля 04 г.

Иногда вам может потребоваться изменить прописные буквы на регистр заголовка или правильный регистр, как показано на следующем снимке экрана. И эта статья поможет вам изменить все прописные буквы или текстовые строки на правильный регистр или регистр заголовка в Microsoft Excel.

документ изменить верхний регистр на правильный регистр 1

Измените верхний регистр на правильный / заголовок в Excel с помощью функции PROPER

Измените верхний регистр на правильный / заголовок в Excel с кодом VBA

Измените верхний регистр на правильный / заголовок в Excel с помощью Kutools for Excel


Измените верхний регистр на правильный / заголовок в Excel с помощью функции PROPER

Microsoft Excel Надлежащий функция может изменить любой текст на правильный регистр. Пожалуйста, сделайте так:

1. В соседней пустой ячейке B2 введите эту формулу: = ПРАВИЛЬНО (A2), см. снимок экрана:

документ изменить верхний регистр на правильный регистр 2

2, Затем нажмите Enter выберите ячейку B2 и перетащите маркер заполнения по диапазону, который вы хотите содержать эту формулу. И весь текст в верхнем регистре был преобразован в правильный регистр. Смотрите скриншот:

документ изменить верхний регистр на правильный регистр 3

Внимание: Поскольку это формулы, когда вы их копируете и вставляете, вам нужно вставлять их как значения.


Измените верхний регистр на правильный / заголовок в Excel с кодом VBA

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

2. Затем нажмите Застройщик > Визуальный Бейсик, Новый Microsoft Visual Basic для приложений появится окно (или вы можете нажать горячие клавиши Alt + F11 чтобы открыть окно), затем щелкните Вставить > Модули, и введите следующий код в Модули:

Sub ProperCase()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Application.WorksheetFunction.Proper(Rng.Value)
Next
End Sub

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

документ изменить верхний регистр на правильный регистр 4

4. Нажмите OK,  и все заглавные буквы были заменены на соответствующие.

документ изменить верхний регистр на правильный регистр 5


Измените верхний регистр на правильный / заголовок в Excel с помощью Kutools for Excel

Ассоциация Изменить регистр инструмент Kutools for Excel может помочь вам легко изменить текст или буквы для любых случаев. То же самое с правильным регистром / заголовком в выборках.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

1. Выберите диапазон, в котором вы измените верхний регистр на собственный / заголовок.

2, Нажмите Кутулс > Текст > Изменить регистр…. Смотрите скриншот:

3. В Изменить регистр диалоговое окно, проверьте Правильный случай вариант, и вы можете просмотреть результаты на предварительный просмотр Панель. Смотрите скриншот:

документ изменить верхний регистр на правильный регистр 7

4. Затем нажмите OK or Применить. И все прописные буквы в выделенном фрагменте меняются на собственный / титульный.

документ изменить верхний регистр на правильный регистр 5

Примечание: Эта полезность Правильный случай может не только изменить верхний регистр на регистр заголовка, но также может изменить весь регистр в выделении на регистр заголовка.

Kutools for Excel's Изменить регистр инструмент может быстро изменить регистр текста на ВЕРХНЯЯ, LOWER, ПРАВИЛЬНОЕ, Дело приговораи СЛУЧАЙ БУТА. Нажмите, чтобы узнать больше...

Нажмите Загрузить и бесплатную пробную версию Kutools for Excel прямо сейчас!


Демонстрация: замените все прописные буквы на собственные или заглавные.

Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

Статьи по теме:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This a great tutorial, and you got the desired result, but you are actually converting to Proper case rather than "Title case". This Sentence Is Written In Proper Case. This Sentence is Written in Title Case. This sentence is written in sentence case. In Title case, the first word, proper nouns, etc are capitalised; the "little" words are not. If you try your tutorial with the text in this comment, you'll see even the "little" words become capitalised. I've been Googling how to do Title case in Excel, but everyone suggests using =PROPER(), which is not the right solution.
This comment was minimized by the moderator on the site
OMG... Thank you for this. I never knew about the PROPER command. This has been driving me nuts for years!
This comment was minimized by the moderator on the site
hello, great job. seems legit
This comment was minimized by the moderator on the site
Oh my gosh, you saved me. Best Excel help site I have seen. Plus I don't have to call Jeff for help every time I open excel. Thank you. Don
This comment was minimized by the moderator on the site
excel formula change sentence case shortcut key
This comment was minimized by the moderator on the site
Try turning it into a function as follows. Save in personal app file and then you can use in all workbooks Public Function SENTENCECASE(Sen As String) 'Sen is the range selected in the brackets of the function as the input cell On Error Resume Next xValue = Sen xStart = True For i = 1 To VBA.Len(xValue) ch = Mid(xValue, i, 1) Select Case ch Case "." xStart = True Case "?" xStart = True Case "a" To "z" If xStart Then ch = UCase(ch) xStart = False End If Case "A" To "Z" If xStart Then xStart = False Else ch = LCase(ch) End If End Select Mid(xValue, i, 1) = ch Next SENTENCECASE = xValue End Function
This comment was minimized by the moderator on the site
I wish to Sort the parameters by certain terms and not by Alphabetically, i.e by either A to Z or Z to A. Kindly suggest solution.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations