如何在 Excel 中將文字字串轉換為首字母大寫，同時保留例外詞不變？

作者Xiaoyang修改日期2024-08-12

在 Excel 中，您可以輕鬆運用 PROPER 函數將文字字串轉換為首字母大寫格式；然而，有時您可能需要在轉換時排除某些特定詞彙（如下圖所示）。本文將為您介紹幾種在 Excel 中快速達成此目標的實用技巧。

將文字字串轉換為適當大小寫（含例外）

使用公式將文字字串轉換為首字母大寫並保留例外詞

以下公式或許能協助您快速處理此任務，請依下列步驟操作：

輸入此公式：

=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 函數輕鬆新增其他詞彙！

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

使用 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 鍵執行此程式碼，此時將彈出提示方塊，提醒您選取要轉換的原始儲存格，請參見截圖：

選取資料範圍的 VBA 程式碼

4. 在彈出的方塊中選取您希望輸出結果的儲存格，然後點選確定，請參見截圖：

目標儲存格的 VBA 程式碼

5. 在彈出的對話方塊中選取您要排除的文字，然後點選確定，請參見截圖：

選取排除文字的 VBA 程式碼

6. 接著點選確定以關閉對話方塊，所有文字字串皆已轉換為首字母大寫（指定排除的詞彙除外），請參見截圖：

將文字字串轉換為適當大小寫（含例外）的結果

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多