如何僅將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. 在改變大小寫對話框中，請選擇首字母大寫選項，然後點擊確定按鈕。

所選列表中的所有大寫名稱立即轉換為首字母大寫。