Excel选定区域转大写：单个单元格时出现#VALUE!错误求助

这个问题我之前也碰到过！核心原因是Excel VBA里单个单元格和多单元格区域的Value属性返回值类型不一样——多单元格返回的是二维数组，但单个单元格返回的是单个值，你的代码大概率没做这个判断，导致数组相关的操作（比如LBound/UBound）直接报错，从而返回#VALUE!。

修正方案1：添加单个单元格判断分支 #

这是最直观的处理方式，先检查选中区域的单元格数量，单独处理单个单元格的情况：

Function ConvertToUpperCase(rng As Range) As Variant
    Dim arr As Variant
    Dim i As Long, j As Long
    
    ' 单独处理单个单元格的情况
    If rng.Cells.Count = 1 Then
        ConvertToUpperCase = UCase(rng.Value)
        Exit Function
    End If
    
    ' 处理多单元格区域的数组逻辑
    arr = rng.Value
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            ' 跳过错误值，避免额外报错
            If Not IsError(arr(i, j)) Then
                arr(i, j) = UCase(arr(i, j))
            End If
        Next j
    Next i
    
    ConvertToUpperCase = arr
End Function

修正方案2：统一转为数组处理 #

如果你不想写分支判断，也可以把单个单元格的返回值强行转为二维数组，这样整个逻辑可以统一：

Function ConvertToUpperCase(rng As Range) As Variant
    Dim arr As Variant
    Dim tempArr As Variant
    Dim i As Long, j As Long
    
    arr = rng.Value
    
    ' 如果不是数组（即单个单元格），转为二维数组
    If Not IsArray(arr) Then
        ReDim tempArr(1 To 1, 1 To 1)
        tempArr(1, 1) = UCase(arr)
        ConvertToUpperCase = tempArr
        Exit Function
    End If
    
    ' 统一处理数组逻辑
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            If Not IsError(arr(i, j)) Then
                arr(i, j) = UCase(arr(i, j))
            End If
        Next j
    Next i
    
    ConvertToUpperCase = arr
End Function

关键修正点说明 #

• 两种方案都解决了单个单元格返回非数组的问题，避免了数组操作报错
• 增加了IsError判断，防止处理包含错误值（比如#N/A、#DIV/0!）的单元格时再次报错
• 测试时不管选中单个单元格还是大范围区域，都能正常返回大写结果

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