VBA实现筛选早于下月月底的日期并统计可见单元格数量的技术求助

我来帮你排查问题并给出完整的解决方案！先看看你现有代码里的核心问题：

现有代码的问题 #

• 你定义的crit变量计算的是当月第一天（DateSerial(Year(Now()), Month(Now()), 1)），完全不符合你要筛选“早于下月月底”的需求，这是筛选逻辑错误的根源。
• 代码只执行了筛选操作，没有添加统计可见单元格数量的逻辑。

修正后的完整代码 #

Sub FilterAndCountVisible()
    Dim crit As String
    Dim ws As Worksheet
    Dim visibleCount As Long
    
    ' 设置目标工作表（这里用Sheet1，你可以根据实际修改）
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 计算下月月底的日期：Month(Now())+2 + 日参数0，会返回下月的最后一天
    Dim endOfNextMonth As Date
    endOfNextMonth = DateSerial(Year(Now()), Month(Now()) + 2, 0)
    ' 构建筛选条件：小于下月月底
    crit = "<" & endOfNextMonth
    
    ' 先取消之前的筛选（避免重复筛选导致的问题）
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 执行筛选：第5列（Field:=5）应用条件
    With ws.Range("A:CZ")
        .AutoFilter Field:=5, Criteria1:=crit, Operator:=xlAnd
    End With
    
    ' 统计可见单元格数量（注意排除表头：假设第1行是表头，从第2行开始统计）
    ' 如果数据量很大（超过2^31-1），请改用CountLarge
    On Error Resume Next ' 处理没有可见单元格的情况
    visibleCount = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count
    On Error GoTo 0
    
    ' 输出统计结果（可以根据需求改成写入单元格或者弹窗）
    MsgBox "符合条件的可见单元格数量：" & visibleCount, vbInformation, "统计完成"
    
    ' 若需要保留筛选状态可以注释下面这行
    ' ws.AutoFilterMode = False
End Sub

关键说明 #

1. 下月月底的计算逻辑：DateSerial(Year(Now()), Month(Now())+2, 0)是VBA里获取下月最后一天的常用技巧——当Day参数传入0时，函数会自动返回上一个月的最后一天，所以Month(Now())+2搭配日0，就得到了下月的月底日期。
2. 筛选前取消旧筛选：避免之前的筛选状态干扰新的筛选操作。
3. 统计可见单元格：使用SpecialCells(xlCellTypeVisible)获取筛选后的可见区域，同时用On Error Resume Next处理没有符合条件单元格的情况（此时不会报错，visibleCount会保持0）。
4. 表头处理：代码里默认第1行是表头，统计从第2行开始，如果你没有表头，可以把A2:A改成A1:A。

备注：内容来源于stack exchange，提问作者A J