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

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

В этой статье мы поговорим о некоторых советах о том, как легко заменить текстовые строки на прописные буквы в Microsoft Excel.

Предположим, вам нужно изменить текстовые строки в A1: A5 на прописные буквы, см. Следующие снимки экрана:


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

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

Enter = ВЕРХНИЙ (A1) в ячейке C1 и нажмите клавишу Enter. Затем содержимое «изменить регистр» в ячейке A1 копируется и изменяется на «изменить регистр» в ячейке C1. См. Снимок экрана:

Выберите ячейку C1, и вы можете скопировать формулу в другие ячейки, перетащив ее в нижний правый угол и опустив ее в другие ячейки.


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

Существует код VBA, который поможет вам изменить текстовую строку на верхний регистр в Excel.

1. Нажмите Alt + F11 для отображения Microsoft Visual Basic для приложений окно.

2. В окне нажмите Вставить > Модули чтобы отобразить новое окно модуля, затем скопируйте следующий код VBA в окно модуля.

VBA: изменить текстовую строку на верхний регистр в Excel.

Sub UCase()
'Upadateby20140701
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 = VBA.UCase(Rng.Value)
Next
End Sub

3. Затем нажмите Run , и появится диалоговое окно, в котором вы можете выбрать диапазон для изменения текстовой строки на верхний регистр. Смотрите скриншот:

4. После выбора щелкните OK. Вся текстовая строка в выделенном фрагменте будет изменена на верхний регистр.


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

Kutools for Excel's Изменить регистр Инструмент может помочь вам преобразовать все текстовые строки или буквы в прописные буквы в диапазоне Microsoft Excel.

Kutools for Excel включает более 100 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

Шаг 1: Выберите диапазон, в котором вы измените текстовые строки на прописные буквы.

Шаг 2: нажмите Кутулс > Текстовые инструменты > Изменить регистр…. См. Снимок экрана:

Шаг 3: В Изменить регистр диалоговое окно, проверьте ВЕРХНИЙ РЕГИСТР и нажмите OK or Применить кнопка. См. Снимок экрана:

Затем вы увидите, что все текстовые строки в выделении заменены на прописные. Смотрите скриншот:

Kutools for Excel's Изменить регистр инструмент может быстро изменить регистр текста на ВЕРХНИЙ, НИЖНИЙ, ПРАВИЛЬНЫЙ, регистр предложений и регистр букв. Нажмите, чтобы узнать больше…


Относительные статьи:

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

🤖 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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA was freaking awesome thanks a lot :lol: .
This comment was minimized by the moderator on the site
This is one the ways that i know it could be done with VBA Sub UPPER () Dim Addrr As Atring Addr = Intersect(ActiveSheet.UsedRange, Selection).Address Range(Addr) = _ Evaluate("IF(LEN(" & Addr & "),UPPER(" & Addr & "),"""")") End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations