Как преобразовать все заглавные буквы в только первую в выбранном диапазоне в Excel?

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

Преобразуйте все заглавные буквы, чтобы сделать заглавными только первую букву каждого слова с формулой
Преобразуйте все заглавные буквы, чтобы только первая буква каждого слова была заглавной с кодом VBA
Преобразуйте все заглавные буквы, чтобы сделать только первую букву каждого слова в большом количестве с помощью Kutools for Excel

---

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

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

1. Выберите пустую ячейку (говорит ячейка C2) для поиска преобразованного результата и введите формулу = ПРАВИЛЬНО (B2) в строку формул, а затем нажмите Enter .

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

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

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

---

---

Преобразуйте все заглавные буквы, чтобы только первая буква каждого слова была заглавной с кодом VBA

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

1. Нажмите другой + 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 ключ или щелкните Run кнопку для запуска этого кода. В всплывающем Kutools for Excel в диалоговом окне выберите диапазон, в котором все заглавные буквы нужно преобразовать только в первую заглавную, а затем щелкните значок OK кнопку.

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

---

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

В этом разделе показаны Изменить регистр полезности Kutools for Excel конвертировать все заглавные буквы в только первую за несколько кликов.

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

2. в Изменить регистр диалоговое окно, выберите Правильный случай вариант, а затем щелкните OK кнопку.

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