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

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

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


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

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

Шаг 1: Удерживайте ALT + F11 ключи, и он открывает окно Microsoft Visual Basic для приложений.

Шаг 2: нажмите Вставить > Модули, и вставьте следующий макрос в Модули окно.

Sub SentenceCase()
'Updateby20131127
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
    xValue = Rng.Value
    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
    Rng.Value = xValue
Next
End Sub

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

документ-изменение-case7

Шаг 4: нажмите Ok, и вы можете увидеть результат, как показано ниже:


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

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

Макрос VBA может оказаться непростым для начинающих пользователей Microsoft Excel. Пожалуйста, не беспокойтесь об этом. Kutools for Excel's Изменить регистр инструмент может быстро изменить все текстовые строки на регистр предложений в выделенных фрагментах.

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

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

Шаг 3. В диалоговом окне «Изменить регистр» установите флажок Дело приговора. Option и нажмите 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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Here is simple way of converting any text with multiple sentences to Sentence Case. The comments on the right show how the text gets transformed at each step. Private Function SentenceConvert(strText As String) As String strText = LCase(strText) 'I GO. i went. --> i go. i went. strText = Replace(Replace(Replace(strText, ". ", ".~"), "? ", "?~"), "! ", "!~") 'i go. i went. --> i go.~i went. strText = Replace(strText, " ", "^") 'i go.~i went. --> i^go.~i^went. strText = Replace(strText, "~", " ") 'i^go.~i^went. --> i^go. i^went. strText = StrConv(strText, vbProperCase) 'i^go. i went. --> I^go. I^went. strText = Replace(strText, "^", " ") 'I^go. I^went. --> I go. I went. strText = Replace(strText, " i ", " I ") SentenceConvert = strText End Function
This comment was minimized by the moderator on the site
OR you could simply copy the selection to MS Word, change to sentence case there and copy back.
This comment was minimized by the moderator on the site
Good macro, but it would help to have all the variables defined.
This comment was minimized by the moderator on the site
Really helpful! Thanks! :lol:
This comment was minimized by the moderator on the site
Thanks for the great tutorial for the macro! I noticed though that any sentences following a sentence ending in an exclamation point did not get capitalized. How do I add this to the macro?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations