如何批量将文本转为句首大写（Sentence case）且保留全大写单词？

需求说明 #

需要将5万行文本转换为**句首大写（Sentence Case）**格式，规则如下：

1. 仅句首的第一个字母大写，其余普通字母转为小写；
2. 原文本中全由大写字母组成的单词（含单个大写字母）需保持大写；
3. 文本可由数字、符号或字母开头，非字母内容（数字、符号、特殊格式内容）全部保留原样。

转换效果示例：

问题分析 #

之前尝试的Excel公式无法准确识别句首字母，VBA函数需要逐个排除符号且未实现全大写单词保留功能，因此需要更健壮的VBA解决方案。

VBA实现代码 #

以下函数可满足所有需求，无需逐个排除符号，自动识别全大写单词并保留：

Function SentenceCasePreserveUppercase(inputStr As String) As String
    Dim i As Integer, j As Integer, k As Integer
    Dim isUppercaseWord As Boolean
    Dim tempStr As String
    Dim firstLetterPos As Integer
    Dim foundFirstLetter As Boolean
    
    ' 初始化：先将整个字符串转为小写
    tempStr = LCase(inputStr)
    foundFirstLetter = False
    firstLetterPos = 0
    
    ' 第一步：定位句首第一个字母的位置
    For i = 1 To Len(inputStr)
        If Mid(inputStr, i, 1) Like "[A-Za-z]" Then
            firstLetterPos = i
            foundFirstLetter = True
            Exit For
        End If
    Next i
    
    ' 第二步：识别全大写单词并恢复大写
    i = 1
    Do While i <= Len(inputStr)
        ' 跳过非字母字符
        Do While i <= Len(inputStr) And Not (Mid(inputStr, i, 1) Like "[A-Za-z]")
            i = i + 1
        Loop
        If i > Len(inputStr) Then Exit Do
        
        ' 标记当前单词的起止位置
        j = i
        Do While j <= Len(inputStr) And Mid(inputStr, j, 1) Like "[A-Za-z]"
            j = j + 1
        Loop
        
        ' 判断原单词是否为全大写
        isUppercaseWord = True
        For k = i To j - 1
            If Not (Mid(inputStr, k, 1) Like "[A-Z]") Then
                isUppercaseWord = False
                Exit For
            End If
        Next k
        
        ' 恢复全大写单词的大写格式
        If isUppercaseWord Then
            Mid(tempStr, i, j - i) = UCase(Mid(inputStr, i, j - i))
        End If
        
        i = j
    Loop
    
    ' 第三步：将句首第一个字母转为大写
    If foundFirstLetter Then
        Mid(tempStr, firstLetterPos, 1) = UCase(Mid(tempStr, firstLetterPos, 1))
    End If
    
    SentenceCasePreserveUppercase = tempStr
End Function

使用方法 #

1. 打开Excel，按下Alt + F11打开VBA编辑器；
2. 点击菜单栏「插入」→「模块」，新建一个代码模块；
3. 将上述代码粘贴到模块中，保存文件（需保存为.xlsm格式）；
4. 在Excel单元格中输入公式=SentenceCasePreserveUppercase(A1)（A1为原文本所在单元格），下拉填充即可批量处理5万行数据。

代码逻辑说明 #

1. 全局转小写：先将整个字符串转为小写，统一处理基础格式；
2. 定位句首字母：自动跳过数字、符号等非字母内容，找到第一个字母的位置；
3. 保留全大写单词：遍历所有字母组成的单词，检查原单词是否全为大写，若是则恢复其大写格式；
4. 句首字母大写：将之前定位到的句首第一个字母转为大写，完成最终格式转换。

内容的提问来源于stack exchange，提问作者nigoo_