VBA设置单元格保留两位小数无效，需双击才生效求助

问题根源 #

你写的代码只修改了单元格的数字格式，但如果C列的内容是文本型数字（比如从外部导入、手动输入时加了前置单引号），Excel不会自动将文本转换为数值，所以设置格式后看不到效果。双击单元格相当于触发了Excel的自动转换逻辑，这才让数值显示成两位小数的格式。

另外，原代码里用了Select操作，这在VBA里不仅效率低，还容易因为选区变化导致异常，尽量避免使用。

解决方法 #

这里给你几种实用的处理方式：

方法1：强制转换文本为数值（简单高效）

直接通过赋值操作让Excel把文本转成数值，再设置格式：

Dim targetRng As Range
' 选中C2到最后一行有数据的单元格区域
Set targetRng = Range("C2", Range("C2").End(xlDown))
' 强制转换文本为数值
targetRng.Value = targetRng.Value
' 设置保留两位小数的格式
targetRng.NumberFormat = "0.00"

方法2：用分列功能批量转换（适合大量数据）

模拟Excel的“分列”功能快速转换文本为数值：

Dim targetRng As Range
Set targetRng = Range("C2", Range("C2").End(xlDown))
' 执行分列转换
targetRng.TextToColumns _
    Destination:=targetRng, DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
    Tab:=True, Semicolon:=False, Comma:=False, Space:=False, _
    Other:=False, FieldInfo:=Array(1, 1)
' 设置数字格式
targetRng.NumberFormat = "0.00"

方法3：逐个单元格转换（兼容特殊格式文本）

如果部分单元格有特殊格式（比如带千分符的文本），可以逐个处理：

Dim cell As Range
For Each cell In Range("C2", Range("C2").End(xlDown))
    ' 尝试把文本转成数值，转换失败则保留原内容
    If IsNumeric(cell.Value) Then
        cell.Value = CDbl(cell.Value)
    End If
Next cell
' 设置格式
Range("C2", Range("C2").End(xlDown)).NumberFormat = "0.00"

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