看起来你的VBA代码在计算日期差、批量列计算和库存筛选时遇到了问题，尤其是DAYS函数只返回0，而且只有单个单元格有结果。我来帮你拆解几个常见问题，再给你优化后的代码参考：

一、先揪出DAYS函数返回0的核心原因 #

DAYS函数的语法是**DAYS(end_date, start_date)**，返回两个日期的天数差。如果返回0，大概率是这几个坑：

• 参数顺序搞反了：比如你想算「目标日期 - 某列日期」，却写成了DAYS(某列日期, 目标日期)，如果目标日期早于某列日期会返回负数，要是刚好同一天就会返回0。
• 日期是文本格式：不管是目标日期单元格还是A列的日期，如果是文本格式（不是Excel认可的日期格式），DAYS会无法解析，直接返回0或错误值。你可以手动输入=ISDATE(A2)验证，返回TRUE才是有效日期。
• 绝对引用错误：如果公式里用了$A$2这种绝对引用，所有行都会绑定A2的日期，要是A2和目标日期是同一天，自然全是0。应该用相对引用A2，让每行对应自己的A列日期。

二、为什么只有单个单元格有计算结果？ #

你当前的代码只给Range("N2")设置了公式，没有批量填充到下面的行。要处理整列数据，得先找到数据的最后一行，再批量应用公式。

三、优化后的完整代码示例 #

下面是结合日期差计算、批量列计算和筛选的完整代码，你可以根据自己的实际单元格位置调整：

Sub Filter_RPCALC()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim calcDate As Date ' 统一用这个变量存计算和筛选的日期
    
    ' 替换成你实际操作的工作表名称
    Set ws = ThisWorkbook.Worksheets("InventorySheet")
    
    ' 找到数据的最后一行（假设A列是日期列，根据实际调整）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 假设计算/筛选用的日期存在单元格B1，替换成你的实际单元格
    calcDate = ws.Range("B1").Value
    
    ' 批量给N列设置日期差公式：DAYS(计算日期, A列对应行的日期)
    ' 用相对引用A2，确保每行对应自己的日期
    ws.Range("N2:N" & lastRow).Formula = "=DAYS($B$1, A2)"
    
    ' 示例：执行列内计算（比如O列累计N列的天数，根据你的需求修改）
    ws.Range("O2").Formula = "=N2"
    ws.Range("O3:O" & lastRow).Formula = "=O2+N3"
    
    ' 筛选截至calcDate的库存数据（假设A列是日期列，Field:=1对应A列）
    ' 用CLng把日期转成序列号，避免格式问题
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="<=" & CLng(calcDate), Operator:=xlAnd
End Sub

额外排查小贴士 #

1. 运行代码前，确保工作表没有被保护，否则公式无法写入。
2. 如果筛选后没有结果，检查calcDate的取值是否正确，或者日期格式是否和A列一致。
3. 可以先手动在单元格里写一个DAYS公式测试，确认结果正确后再写到VBA里，这样更容易定位问题。

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