如何仅将Excel单元格中的第一个字母大写？

如果你有一个全是大写字母的名字列表，并且需要将它们更改为每个单词的首字母大写，Excel提供了多种解决方案。本文介绍了三种处理此任务的方法：使用公式、VBA或Kutools for Excel插件。

使用公式仅将Excel单元格中的第一个字母大写
使用VBA代码仅将Excel单元格中的第一个字母大写
使用Kutools for Excel批量将Excel单元格中的第一个字母大写

使用公式仅将Excel单元格中的第一个字母大写

你可以使用公式将列表中的所有大写字母转换为仅首字母大写。请按照以下步骤操作。

1. 选择一个空白单元格（例如C2）用于放置转换结果，并在编辑栏中输入公式 =PROPER(B2)，然后按 Enter 键。

大写的名字立即在辅助列中被转换为首字母大写的形式。

2. 选中C2单元格后，向下拖动填充柄直到你想转换名字格式的单元格。

注意：在公式中，请根据你的列表更改单元格引用。

使用VBA代码仅将Excel单元格中的第一个字母大写

此外，你可以运行以下VBA代码将列表中的所有大写名称转换为首字母大写形式。

1. 同时按下 Alt + F11 键打开 Microsoft Visual Basic for Application 窗口。

2. 在 Microsoft Visual Basic for Application 窗口中，点击 插入 > 模块，然后复制并粘贴以下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 for Excel 对话框中，选择你想将所有大写字母转换为仅首字母大写的范围，然后点击 确定 按钮。

所选范围内的所有大写名称立即被转换为首字母大写形式。

使用Kutools for Excel批量将Excel单元格中的第一个字母大写

本节向你展示 Kutools for Excel 的 改变大小写 工具，只需几次点击即可将所有大写字母批量转换为首字母大写形式。

1. 选择你需要转换大小写的列表，然后点击 Kutools > 文本 > 改变大小写。参见截图：

2. 在 改变大小写 对话框中，请选择 首字母大写 选项，然后点击 确定 按钮。

所选列表中的所有大写名称立即被转换为首字母大写形式。