VBA需求：仅将单元格中最后一个句号前的内容转为大写

原代码会将B1:B100区域的所有内容全部转为大写，要实现仅将每个单元格最后一个句号前的内容转为大写，需要通过字符串拆分与拼接实现，具体修改如下：

修改后的完整代码 #

Sub UpdateNames()
    Dim cell As Range
    Dim lastDotPos As Integer
    Dim cellContent As String
    
    ' 仅当A1为True时执行逻辑
    If Range("A1") = True Then
        ' 遍历目标区域的每个单元格
        For Each cell In Range("B1:B100")
            cellContent = cell.Value
            ' 跳过空单元格
            If cellContent <> "" Then
                ' 从末尾查找最后一个句号的位置
                lastDotPos = InStrRev(cellContent, ".")
                If lastDotPos > 0 Then
                    ' 拼接结果：前半部分转大写 + 句号及后半部分原样保留
                    cell.Value = UCase(Left(cellContent, lastDotPos - 1)) & Right(cellContent, Len(cellContent) - lastDotPos + 1)
                Else
                    ' 无句号的单元格，直接转大写
                    cell.Value = UCase(cellContent)
                End If
            End If
        Next cell
    End If
End Sub

关键逻辑说明 #

• InStrRev(cellContent, ".")：从字符串末尾反向查找句号，定位最后一个句号的索引位置
• Left(cellContent, lastDotPos - 1)：截取最后一个句号之前的所有内容
• UCase(...)：将截取的前半部分内容转为大写
• Right(cellContent, Len(cellContent) - lastDotPos + 1)：截取最后一个句号及之后的所有内容（包含句号）
• 增加空单元格判断、无句号场景兼容，避免运行报错

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