Как сделать первые буквы заглавными в Excel: от простых функций до автоматизации

Преобразование текста в правильный регистр — одна из самых частых задач при работе с данными в Microsoft Excel. Независимо от того, импортируете ли вы данные из внешних источников, заполняете таблицы вручную или получаете файлы от коллег, рано или поздно сталкиваетесь с необходимостью привести текст к единому формату. Первые буквы заглавными (так называемый "регистр предложений") — стандарт деловой переписки, оформления документов и баз данных.

В этой статье разберём 7 способов преобразования текста в Excel — от элементарных функций до продвинутых инструментов вроде Power Query и VBA. Вы узнаете, какой метод выбрать для одноразовой правки, а какой подойдёт для автоматизации обработки тысяч строк. Особое внимание уделим типичным ошибкам, которые портят результат, и нюансам работы с русским и английским текстами одновременно.

Если вы никогда не работали с текстовыми функциями в Excel, не переживайте: первые три метода не требуют специальных знаний. Для опытных пользователей мы подготовили разделы про динамические массивы, Power Query и макросы, которые сэкономят часы ручной работы. А в конце статьи — FAQ с ответами на самые частые вопросы по теме.

Прежде чем приступить, проверьте версию вашего Excel. Некоторые функции (например, ТЕКСТ.ПРЕДЛ()) появились только в Excel 2016 и новее. Для старых версий (2010–2013) мы тоже подготовили рабочие альтернативы.

1. Функция ПРОПНАЧ: самый простой способ

Функция ПРОПНАЧ (англ. PROPER) создана специально для преобразования текста в формат "Первые Буквы Заглавными". Она автоматически делает прописной первую букву каждого слова и строчными — все остальные. Синтаксис минималистичный:

Формула:

=ПРОПНАЧ(текст)

где текст — это ячейка с исходными данными или текстовая строка в кавычках.

Пример: если в ячейке A1 написано "иванов иван петрович", формула =ПРОПНАЧ(A1) вернёт "Иванов Иван Петрович".

• ✅ Плюсы: работает во всех версиях Excel, не требует настройки, обрабатывает русские и английские слова.
• ❌ Минусы: не учитывает аббревиатуры (например, "ооо ромашка" станет "Ооо Ромашка"), игнорирует предлоги и союзы.

Чтобы применить функцию ко всему столбцу, потяните маркер автозаполнения вниз или используйте комбинацию Ctrl+D (заполнить вниз).

⚠️ Внимание: Функция ПРОПНАЧ не распознаёт имена собственные с дефисами (например, "марья-анна" станет "Марья-Анна"). Для таких случаев потребуется ручная правка или более сложные формулы.

2. Комбинация функций ПРОПИСН + СТРОЧН: для нестандартных случаев

Когда ПРОПНАЧ не справляется (например, с аббревиатурами или текстом в ВЕРХНЕМ РЕГИСТРЕ), на помощь приходит комбинация функций ПРОПИСН, СТРОЧН и ЗАМЕНИТЬ. Этот метод даёт больше контроля над результатом, но требует ручной настройки под конкретный текст.

Пример формулы для текста вида "ИВАНОВ ИВАН ИВАНОВИЧ" (все буквы заглавные):

=ПРОПИСН(ЛЕВСИМВ(A1;1)) & СТРОЧН(ПРАВСИМВ(A1;ДЛСТР(A1)-1))

Разберём по шагам:

1. ЛЕВСИМВ(A1;1) — берёт первую букву текста.
2. ПРОПИСН() — делает её заглавной.
3. ПРАВСИМВ(A1;ДЛСТР(A1)-1) — берёт все символы, кроме первого.
4. СТРОЧН() — преобразует их в строчные.
5. & — склеивает обе части.

Для обработки каждого слова в отдельности (например, чтобы "ооо ромашка" осталось "ООО Ромашка") используйте формулу массива:

=ПРОПИСН(ЛЕВСИМВ(НАЙТИ(" ";A1&" ";"{"&ПОВТОР(";";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";"")))}))-1)) &
СТРОЧН(ПСТР(A1;НАЙТИ(" ";A1&" ";"{"&ПОВТОР(";";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";"")))}))-1;99))

⚠️ Внимание: Формулы массива в старых версиях Excel (до 2019) требуют подтверждения клавишами Ctrl+Shift+Enter. В Excel 365 они работают автоматически.

3. Текст по столбцам: для разделения имён и фамилий

Если ваши данные структурированы (например, в одной ячейке фамилия, имя и отчество через пробел), можно использовать инструмент "Текст по столбцам". Этот метод полезен, когда нужно не только исправить регистр, но и разделить текст на отдельные компоненты.

Пошаговая инструкция:

1. Выделите столбец с данными.
2. Перейдите на вкладку Данные → Текст по столбцам.
3. Выберите С разделителями → нажмите Далее.
4. Укажите разделитель (обычно это пробел или табуляция).
5. На шаге "Формат данных столбца" выберите Текстовый.
6. Нажмите Готово — данные разделятся по столбцам.
7. Примените ПРОПНАЧ к каждому новому столбцу отдельно.

Преимущество этого метода в том, что вы можете обработать каждую часть текста (фамилию, имя, отчество) индивидуально. Например, оставить аббревиатуры в верхнем регистре, а остальной текст привести к нормальному виду.

4. Power Query: обработка тысяч строк за минуты

Для больших объёмов данных (от 10 000 строк) ручные методы неэффективны. Здесь на помощь приходит Power Query — инструмент для преобразования и очистки данных, встроенный в Excel 2016 и новее. С его помощью можно автоматизировать приведение текста к правильному регистру и повторять процесс для новых данных.

Инструкция по настройке:

1. Выделите исходные данные и нажмите Данные → Из таблицы/диапазона (в Excel 2016–2019) или Получить данные → Из таблицы/диапазона (в Excel 365).
2. В открывшемся окне Power Query выделите столбец с текстом.
3. Перейдите на вкладку Преобразование → Регистр → Регистр предложений.
4. Нажмите Закрыть и загрузить — данные обновятся в Excel.

Sub CapitalizeFirstLetters()
Dim rng As Range
Dim cell As Range
Dim words() As String
Dim i As Integer

Set rng = Selection
For Each cell In rng
If Not IsEmpty(cell.Value) Then
words = Split(cell.Value, " ")
For i = LBound(words) To UBound(words)
If Len(words(i)) > 0 Then
' Проверяем, не аббревиатура ли (например, "ООО")
If Len(words(i)) <= 3 And UCase(words(i)) = words(i) Then
' Оставляем аббревиатуры как есть
Else
words(i) = UCase(Left(words(i), 1)) & LCase(Mid(words(i), 2))
End If
End If
Next i
cell.Value = Join(words, " ")
End If
Next cell
End Sub

=ТЕКСТ.ПРЕДЛ(" ";ИСТИНА;ПРОПНАЧ(ТЕКСТРАЗД(A1:A100;" ")))

=ПРОПИСН(ЛЕВСИМВ(A1)) & СТРОЧН(ПРАВСИМВ(A1;ДЛСТР(A1)-1))

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cell As Range
For Each cell In Target
If Not Intersect(cell, Me.Range("A:A")) Is Nothing Then ' Обрабатываем только столбец A
cell.Value = WorksheetFunction.Proper(cell.Value)
End If
Next cell
End Sub