VBA中使用DateDiff函数计算时间差（分钟）报错求助

嘿，问题出在你混淆了VBA函数和Excel工作表函数的区别啦！DateDiff是VBA专属的函数，你直接把它写在工作表公式里，Excel根本识别不了，这就是代码失效的原因。

给你两个靠谱的解决方案：

方案一：用Excel原生日期运算（最推荐，简单高效） #

Excel里的日期时间本质是数值——1代表一整天（24小时），所以要算分钟差，直接用「结束时间 - 开始时间」再乘以1440（一天的分钟数：24*60）就行。修改后的代码如下：

Range("I2:I" & Cells(Rows.Count, 1).End(xlUp).Row).Formula = "=(E2-B2)*1440"

拿你给的示例测试：(07-08-2020 12:15:00 - 07-08-2020 11:18:00)*1440 正好返回57分钟，完全正确。

方案二：用VBA的DateDiff直接计算（适合复杂时间需求） #

如果你需要用到DateDiff的特殊参数（比如忽略年份、只算工作日分钟数这类），可以直接用VBA循环计算每个单元格的值，而不是设置工作表公式：

Dim lastRow As Long
Dim i As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
' 循环遍历每行计算分钟差，"n"代表分钟单位
For i = 2 To lastRow
    Cells(i, "I").Value = DateDiff("n", Cells(i, "B").Value, Cells(i, "E").Value)
Next i

这里DateDiff("n", 开始时间, 结束时间)会直接返回两个时间的分钟差，结果和方案一一致。

额外注意事项 #

• 确保B列（开始时间）和E列（结束时间）的单元格格式是日期时间格式，如果是文本格式的话，计算会出错。可以选中对应列，设置格式为yyyy-mm-dd hh:mm:ss或者其他你需要的日期时间格式。
• 如果出现负数结果，说明开始时间晚于结束时间，你可以给公式加个ABS()函数，比如=ABS(E2-B2)*1440，或者在VBA里用Abs(DateDiff("n", ...))来取绝对值。

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