如何避免Excel VBA将变量存储的数字格式化为日期？

你的问题核心是Excel默认将单元格数值按日期格式解析——Excel的日期系统以1900年1月1日为起始点，数字1代表1天，所以你的total=2会被识别为2天，显示成1/2/1900。CDbl(total)无效是因为变量本身已经是数值类型，问题出在单元格的格式设置上。

解决方案：强制设置单元格为数值/常规格式 #

在给单元格赋值前或赋值后，指定单元格的数字格式为数值或常规，就能让数值以原本的数字形式显示。修改后的代码如下：

Sub computeTotal()
    Dim i As Integer
    Dim total As Double
    i = 2
    Do While Not IsEmpty(Range("B" & i).Value)
        total = total + DateDiff("n", Range("B" & i).Value, Range("E" & i).Value)
        i = i + 1
    Loop
    Debug.Print ("total: " & total) ' 按预期输出2
    
    ' 设置G2为整数格式，显示分钟数
    Range("G2").NumberFormat = "0"
    Range("G2") = total
    
    ' 设置H2为整数格式
    Range("H2").NumberFormat = "0"
    Range("H2") = 2080 - total
End Sub

其他可选方案 #

• 如果需要保留小数（比如统计到秒转成的分钟小数），可以把格式改成"0.00"
• 若想让单元格自动适配显示，可用常规格式：Range("G2").NumberFormat = "General"
• 如果确实要把数值作为文本存储（不推荐，会失去计算能力），可以用：Range("G2") = CStr(total)

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