Как сделать только первую букву заглавной в ячейках Excel?

Если у вас есть список имен, написанных заглавными буквами, и вам нужно изменить их так, чтобы только первая буква каждого слова была заглавной, Excel предлагает несколько решений. В этой статье объясняются три метода для выполнения этой задачи: использование формул, VBA или надстройки Kutools для Excel.

Сделать только первую букву заглавной в ячейке Excel с помощью формулы
Сделать только первую букву заглавной в ячейках Excel с помощью кода VBA
Сделать только первую букву заглавной в ячейках Excel оптом с помощью Kutools для Excel

Сделать только первую букву заглавной в ячейках Excel с помощью формулы

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

1. Выберите пустую ячейку (например, ячейку C2) для размещения преобразованного результата и введите формулу =PROPER(B2) в строку формул, затем нажмите клавишу Enter.

Имя с заглавной буквы сразу преобразуется в правильный регистр (первая буква заглавная) в столбце помощи.

2. С выделенной ячейкой C2 перетащите маркер заполнения вниз по списку до тех пор, пока не дойдете до ячейки, где вы хотите преобразовать регистр имени.

Примечание: В формуле измените ссылку на ячейку в зависимости от вашего списка.

Сделать только первую букву заглавной в ячейках Excel с помощью кода VBA

Кроме того, вы можете запустить следующий код VBA, чтобы преобразовать все имена, написанные заглавными буквами, в правильный регистр в списке.

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

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

Код VBA: Преобразование всех заглавных букв в только первую заглавную

Sub Proper_Case()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress                    = Application.ActiveWindow.RangeSelection.Address
	Set xRg                     = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg                     = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate                    = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg.Cells
			If xCell.HasFormula = False Then
				xCell.Value = Application.WorksheetFunction.Proper(xCell.Value)
			End If
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот код. В появившемся диалоговом окне Kutools для Excel выберите диапазон, который вы хотите преобразовать из всех заглавных букв в только первую заглавную, а затем нажмите кнопку ОК.

Все имена, написанные заглавными буквами в выбранном диапазоне, немедленно преобразуются в правильный регистр.

Сделать только первую букву заглавной в ячейках Excel оптом с помощью Kutools для Excel

Этот раздел показывает вам утилиту Изменение регистра Kutools для Excel для преобразования всех заглавных букв в правильный регистр оптом всего за несколько кликов.

1. Выберите список, который вам нужно преобразовать, а затем нажмите Kutools > Текст > Изменение регистра. Смотрите скриншот:

2. В диалоговом окне Изменение регистра выберите опцию Правильный регистр, а затем нажмите кнопку ОК.

Все имена, написанные заглавными буквами в выбранном списке, мгновенно преобразуются в правильный регистр.