Excel宏问题：文本转数字后无法显示1位小数百分比

问题根源 #

你的代码中多余的cell.Value = cell.Value会重置单元格内容，覆盖之前设置的格式；同时未对转换后的数值做精度控制，导致Excel因内部存储的精度问题显示多余小数，使得0.0%格式未按预期生效。

修复后的代码 #

'Convert text to numbers with one decimal place
With rng
    .Value = .Value 'Convert text to numbers
    For Each cell In .Cells 'Loop through each cell in the range
        If Right(cell.Value, 1) = "%" Then 'Check if the value ends with a percentage symbol
            '提取百分比数值并转换为保留一位小数的精确值
            Dim rawVal As Double
            rawVal = Round(CDbl(Left(cell.Value, Len(cell.Value) - 1)) / 100, 3)
            cell.Value = rawVal
            '设置格式确保显示一位小数的百分比
            cell.NumberFormat = "0.0%"
        End If
    Next cell
End With

核心修复说明 #

• 移除多余的cell.Value = cell.Value：这行操作会触发Excel自动重新解析单元格内容，冲掉之前设置的格式规则
• 添加Round函数控制精度：百分比的1位小数对应小数形式的3位（例如6.3%=0.063），通过Round到3位确保数值精度匹配格式要求
• 调整操作顺序：先赋值精确数值，再设置单元格格式，让格式规则能正确应用到目标数值上

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