VBA按需显示小数的数字格式：循环单元格取值问题求助

原代码的核心问题 #

1. 错误获取单元格值：value = rng.Cells 试图将整个单元格区域赋值给单个变量，这是无效操作，应该在循环内部逐个提取当前单元格的值。
2. 错误应用格式范围：每次循环都修改整个选中区域 rng 的格式，而非当前遍历的 cell，导致最终所有单元格都会被设置为最后一次循环的格式。
3. 变量作用域错误：value 变量定义在循环外且未随单元格更新，无法正确判断每个单元格的数值类型。

修正后的代码 #

Sub ApplyDynamicNumberFormat()
    Dim rng As Range, cell As Range
    Set rng = Selection
    
    For Each cell In rng
        ' 仅处理数值型单元格，避免非数值内容报错
        If IsNumeric(cell.Value) Then
            Dim cellValue As Double
            cellValue = cell.Value
            
            ' 判断是否存在小数部分
            If Math.Abs(cellValue - Fix(cellValue)) > 0 Then
                ' 有小数时显示按需小数位，负数红色
                cell.NumberFormat = "#,##0.##;[Red]  - #,##0.##;""-"""
            Else
                ' 无小数时显示整数，负数红色
                cell.NumberFormat = "#,##0;[Red]  - #,##0;""-"""
            End If
        End If
    Next cell
End Sub

代码说明 #

• 逐个处理单元格：在 For Each 循环内，每次提取当前 cell 的值，确保每个单元格的判断独立有效。
• 数值类型校验：添加 IsNumeric 检查，避免文本、空值等非数值单元格引发运行错误。
• 单元格级格式控制：将格式赋值给 cell.NumberFormat，而非整个选中区域，实现每个单元格根据自身数值动态应用格式。
• 保留原格式逻辑：完全沿用你设定的格式字符串，包括负数红色显示、空值显示为 - 的规则。

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