如何用VBA脚本将全大写字符串转换为首字母大写格式

需求说明 #

仅当单元格内容满足Exact(X, Upper(X)) = True（即内容为全大写）时，使用Application.Proper将其转换为首字母大写格式，处理范围为B1到M列的最后一行（最后一行由A列的非空行位置确定）。

修改后的完整代码 #

Sub ConvertProperOnlyUpperCase()
    Dim LastRow As Long
    Dim x As Range
    
    ' 自动调整所有列宽
    Cells.EntireColumn.AutoFit
    
    ' 获取A列最后一行的行号
    LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历指定范围的每个单元格
    For Each x In Range("B1:M" & LastRow)
        ' 判断单元格是否为全大写（区分大小写的精确匹配）
        If Application.Exact(x.Value, UCase(x.Value)) = True Then
            ' 转换为首字母大写格式
            x.Value = Application.Proper(x.Value)
        End If
    Next x
    
    ' 选中A1单元格
    Range("A1").Select
End Sub

关键修改点 #

• 新增Application.Exact判断逻辑：该函数会区分大小写精确对比单元格值与它的全大写版本，确保只有真正全大写的内容才会被转换
• 补充了x变量的声明，符合VBA规范写法
• 保留了原有代码中自动列宽、获取最后行、选中A1的功能

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