如何在Excel中将所有大写转换为仅选定范围内的第一个大写？

网友投稿 634 2023-12-17

如何在Excel中将所有大写转换为仅选定范围内的第一个大写？

假设您有一个工作表，其中所有名称在列表中均大写，如何将它们转换为仅将每个单词的首字母大写？本文为您提供了三种方法来解决此问题。

将所有大写字母转换为仅使用公式使每个单词的大写字母成为第一个字母

将所有大写字母转换为仅使用VBA代码制作每个单词大写字母的第一个字母
将所有大写字母转换为仅批量制作每个单词大写字母的第一个字母 Kutools for Excel 将所有大写字母转换为仅使用公式使每个单词的大写字母成为第一个字母

您可以使用公式将所有大写字母转换为仅列表中的第一个大写字母。请执行以下操作。

1.选择一个空白单元格（例如单元格C2）以查找转换的结果，然后输入公式 = PROPER（B2）进入编辑栏，然后按输入键。

您可以在帮助列中立即看到大写的名称已转换为大小写（第一个大写）。

2.继续选择单元格C2，将“填充手柄”向下拖动到列表中，直到到达要转换名称大小写的单元格为止。

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

在Excel中轻松更改所选范围内的文本大小写

Kutools for Excels 变更案

实用程序可帮助您轻松更改Excel中选定范围内的文本大小写。如下面的演示所示。

立即下载并试用！ (30-天免费试用）

将所有大写字母转换为仅使用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

Copy

3。点击 F5 键或单击运行按钮以运行此代码。在弹出 Kutools for Excel 对话框中，选择要将所有大写字母转换为仅第一个大写字母的范围，然后单击 OK 按钮。

然后，所选范围内的所有大写名称将立即转换为仅大写的名称。