如何在 Excel 中将文本字符串转换为带例外的首字母大写格式？

在 Excel 中，您可以使用“首字母大写”函数轻松将文本字符串转换为首字母大写格式。但有时，在将文本字符串转换为首字母大写时，您需要排除一些特定的单词，如下方截图所示。本文中，我将介绍一些快速解决此问题的小技巧。

使用公式将文本字符串转换为带例外的首字母大写格式

使用 VBA 代码将文本字符串转换为带例外的首字母大写格式

使用公式将文本字符串转换为带例外的首字母大写格式

以下公式可能可以帮助您快速完成此任务，请按照以下步骤操作：

输入以下公式：

=UPPER(LEFT(A2))&MID(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(" "&PROPER(A2)&" "," Of "," of ")," A "," a "),"Is "," is ")," Usa "," USA ")),2,LEN(A2)) 输入到您希望获取结果的单元格中，然后拖动填充柄填充该公式，文本字符串将被转换为首字母大写格式，但会保留特定例外，如下图所示：

注意：在上述公式中，A2 是您要转换的单元格， “Of ”、“A”、“Is”、“Usa” 是转换后正常的首字母大写单词，“of ”、“a”、“is”、“USA” 是您希望从首字母大写格式中排除的单词。您可以根据需要更改它们或通过 SUBSTITUTE 函数添加其他单词。

使用 VBA 代码将文本字符串转换为带例外的首字母大写格式

如果上述公式有些难以理解和调整以满足您的需求，这里您还可以应用 VBA 代码来完成此任务。请按照以下步骤逐一操作。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：将文本字符串转换为带例外的首字母大写格式：

Sub CellsValueChange()
'Updateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim xPRg As Range
    Dim xSRgArea As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim I As Long
    Dim K As Long
    Dim KK As Long
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Original cells:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Output cells:", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xPRg = Application.InputBox("Cells to exclude:", "KuTools For Excel", , , , , , 8)
    If xPRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Areas.Count
        Set xSRgArea = xSRg.Areas.Item(I)
        For K = 1 To xSRgArea.Count
            xRgVal = xSRgArea(K).Value
            If Not IsNumeric(xRgVal) Then
                xRgVal = CorrectCase(xRgVal, xPRg)
                xDRg.Offset(KK).Value = xRgVal
            End If
            KK = KK + 1
        Next
    Next
End Sub
Function CorrectCase(ByVal xRgVal As String, ByVal xPRg As Range) As String
    Dim xArrWords As Variant
    Dim I As Integer
    Dim xPointer As Integer
    Dim xVal As String
    xPointer = 1
    xVal = xRgVal
    xArrWords = WordsOf(xRgVal)
    For I = 0 To UBound(xArrWords)
        xPointer = InStr(xPointer, " " & xVal, " " & xArrWords(I))
        Debug.Print xPointer
        Mid(xVal, xPointer) = CorrectCaseOneWord(CStr(xArrWords(I)), xPRg)
    Next I
    CorrectCase = xVal
End Function
Function WordsOf(xRgVal As String) As Variant
    Dim xDelimiters As Variant
    Dim xArrRtn As Variant
    xDelimiters = Array(",", ".", ";", ":", Chr(34), vbCr, vbLf)
    For Each xEachDelimiter In xDelimiters
        xRgVal = Application.WorksheetFunction.Substitute(xRgVal, xEachDelimiter, " ")
    Next xEachDelimiter
    xArrRtn = Split(Trim(xRgVal), " ")
    WordsOf = xArrRtn
End Function
Function CorrectCaseOneWord(xArrWord As String, xERg As Range) As String
    With xERg
        If IsError(Application.Match(xArrWord, .Cells, 0)) Then
            CorrectCaseOneWord = Application.Proper(xArrWord)
        Else
            CorrectCaseOneWord = Application.VLookup(xArrWord, .Cells, 1, 0)
        End If
    End With
End Function

3. 然后按 F5 键运行此代码，弹出一个提示框，提醒您选择要转换的原始单元格，如下图所示：

4. 然后单击 确定，在弹出的对话框中选择您希望输出结果的单元格，如下图所示：

5. 继续单击 确定，在弹出的对话框中选择您希望排除的文本，如下图所示：

6. 然后单击 确定 退出对话框，所有文本字符串都将被转换为首字母大写格式，但排除了指定的单词，如下图所示：