Перейти до основного матеріалу

Як змінити текстові рядки на регістр речень у Microsoft Excel?

Можливо, вам доведеться змінити текстові рядки на регістр речень у Microsoft Excel. Припустимо, що є сотні текстових рядків у верхньому чи нижньому регістрі, змінювати їх вручну по черзі - невдалий вибір. Чи є прості прийоми для зміни текстових рядків на регістр речень у Microsoft Excel?


стрілка синя права міхур Змініть текстові рядки на регістр речень у Excel за допомогою VBA

Якщо у вас досвід роботи з Microsoft Excel, використання VBA - хороший вибір для заміни текстових рядків на регістр речень.

Крок 1: утримуйте клавішу ALT + F11 клавіш, і відкриється вікно Microsoft Visual Basic for Applications.

Крок 2: клацніть Insert > Модуліта вставте наступний макрос у Модулі вікна.

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 для запуску цього макросу, тоді на екрані з'являється діалогове вікно для вибору діапазону, див. знімок екрана:

doc-change-case7

Крок 4: клацніть Ok, і ви можете побачити результат, як показано нижче:


стрілка синя права міхур Змініть текстові рядки на регістр речень у Excel за допомогою Kutools для Excel

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

Макрос VBA може бути непростим для початківців користувачів Microsoft Excel. Будь ласка, не турбуйтеся про це. Kutools для Excel's Змінити регістр інструмент може швидко змінити всі текстові рядки на регістр речень у виділеннях.

Крок 1: Виберіть діапазон, у якому ви будете змінювати текстові рядки на регістр речень.

Крок 2: натисніть кнопку Кутулс > Текстові інструменти > Змінити регістр…. Дивіться знімок екрана:

Крок 3: У діалоговому вікні Змінити регістр поставте прапорець біля Справа вироку. Варіант і натисніть OK or Застосовувати кнопки.

Потім ви побачите всі види текстових рядків, змінених на регістр речення у виділенні. Дивіться наступний малюнок:

Kutools для Excel's Змінити регістр інструмент може швидко змінити регістр тексту на ВЕРХНІЙ, НИЖИЙ, ПРОПЕРАТИВНИЙ, РЕЧЕННЯ РЕЧЕННЯ І ЗАГАЛЬНИЙ КЕЙС. Натисніть, щоб дізнатись більше ...


Відносні статті:

Найкращі інструменти продуктивності офісу

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

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 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