VBA无法将Excel D列数字保留两位小数：显示与实际值不符

你遇到的核心问题是：仅调整单元格的显示格式为两位小数，并没有真正修改单元格存储的实际数值，所以公式栏里还是原始的精确值。要实现真正的四舍五入并修改实际值，可通过以下两种方式解决：

方法一：VBA代码直接修改数值 #

用Round函数对D列的实际数值进行四舍五入，覆盖原单元格的值：

Sub RoundDColumnToTwoDecimals()
    Dim cell As Range
    ' 遍历D列有数值的常量单元格（可根据实际范围调整，比如D2:D1000）
    For Each cell In ThisWorkbook.ActiveSheet.Range("D:D").SpecialCells(xlCellTypeConstants, xlNumbers)
        ' 保留两位小数并赋值给单元格
        cell.Value = Round(cell.Value, 2)
    Next cell
    ' 统一设置显示格式确保视觉一致
    ThisWorkbook.ActiveSheet.Range("D:D").NumberFormat = "0.00"
End Sub

• 代码说明：Round(cell.Value, 2)会将单元格存储的实际数值四舍五入到两位小数，再重新赋值给单元格，从根本上改变数值；
• xlCellTypeConstants会精准定位你选择性粘贴后的数值单元格，避免误处理公式单元格。

方法二：手动操作（无需VBA） #

1. 在相邻空白列（比如E列）的第一个数据单元格输入公式：=ROUND(D1,2)，按回车得到四舍五入后的值；
2. 下拉填充公式到D列所有数据对应的行；
3. 选中E列的结果区域，右键选择复制；
4. 选中D列对应的区域，右键选择选择性粘贴 → 选择数值，点击确定完成覆盖。

完成后，D列单元格的实际值和显示值都会是保留两位小数的结果，公式栏也会显示四舍五入后的数值。

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