Excel VBA问题：无法筛选高亮表格中今日日期的单元格

核心问题：链式比较在VBA中不生效 #

你写的If d1 < v < d2 Then是错误语法——VBA不支持这种连续的比较表达式，必须拆分为两个独立条件并通过And连接：

If v > d1 And v < d2 Then

这是导致条件判断完全失效的直接原因。

其他优化点与修正后的代码 #

除核心语法错误外，代码还有几处可改进的地方：

1. 变量声明：Dim dt1, dt2 As Date仅将dt2声明为Date类型，dt1实际是Variant，需明确每个变量的类型
2. 避免Select/ActiveCell：直接操作Range对象更高效且不易因选中区域变化而出错
3. 日期范围计算可简化，无需额外转换为Double类型

修正后的完整代码：

Sub SmplAnalFormat()
    Dim currentCol As Long
    currentCol = 4 ' D列对应列号4
    Dim dtTodayStart As Date, dtTomorrowStart As Date
    Dim cellValue As Date
    
    ' 定义今日00:00:01到次日00:00:01的时间范围
    dtTodayStart = Date + TimeValue("00:00:01")
    dtTomorrowStart = Date + 1 + TimeValue("00:00:01")
    
    ' 从D5开始遍历非空单元格
    Do While Not IsEmpty(Cells(5, currentCol))
        cellValue = Cells(5, currentCol).Value
        
        ' 正确的范围判断逻辑
        If cellValue > dtTodayStart And cellValue < dtTomorrowStart Then
            ' 高亮今日日期的单元格，示例用ColorIndex=3（红色），可自行修改
            Cells(5, currentCol).Interior.ColorIndex = 3
            Debug.Print cellValue; dtTodayStart; dtTomorrowStart
        Else
            ' 隐藏非今日日期的列（可选，按需启用）
            ' Cells(5, currentCol).EntireColumn.Hidden = True
        End If
        
        currentCol = currentCol + 1
    Loop
End Sub

额外说明 #

• 如果单元格内容是文本格式的日期（而非真正的日期时间值），需先转换为Date类型，可修改赋值语句为cellValue = CDate(Cells(5, currentCol).Value)
• ColorIndex数值对应不同颜色，可根据需求替换（比如6是黄色，10是绿色）

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