VBA日期比较逻辑失效求助：指定日期范围外的行未被删除

我一眼就瞅出了核心问题——你的日期比较逻辑完全写反了！你想要保留udate（比如9/1/2017）到udate2（9/30/2017）之间的行，但代码里的判断条件是：

If Cells(k, 8) < udate And Cells(k, 8) > udate2 Then

一个日期怎么可能同时小于更早的日期，又大于更晚的日期呢？这就是为啥像11/9/2017这种明显超出范围的日期没被删除的根本原因！

另外还有个容易踩坑的点：你开头指定了操作的是Workbooks(repfile).Worksheets(1)，但后面的Cells(k,8)和Rows(k)没限定这个工作表，万一当前活动的不是目标表，就会引用错数据，导致逻辑混乱。

给你整理了修正后的代码，还加了一些防坑优化：

Dim ws As Worksheet
Set ws = Workbooks(repfile).Worksheets(1)

' 获取B列常量单元格数量（如果有隐藏行，SpecialCells可能漏统计，可换成ws.UsedRange.Rows.Count）
Dim o As Long
o = ws.Range("B:B").Cells.SpecialCells(xlCellTypeConstants).Count

Dim k As Long
Dim dte As Date
' 先校验日期范围，防止udate和udate2搞反
If udate > udate2 Then
    Dim tempDate As Date
    tempDate = udate
    udate = udate2
    udate2 = tempDate
End If

For k = o To 2 Step -1
    ' 先把单元格值存到变量，减少重复访问单元格的开销
    Dim cellText As String
    cellText = ws.Cells(k, 8).Value
    ' 转换日期格式，处理点分隔的情况
    dte = CDate(Replace(cellText, ".", "/"))
    ' 更新单元格为标准日期格式，方便后续查看
    ws.Cells(k, 8).Value = dte
    
    ' 正确的判断逻辑：日期不在[udate, udate2]范围内就删除
    If dte < udate Or dte > udate2 Then
        ws.Rows(k).EntireRow.Delete
    End If
Next k

关键修改点说明： #

• 修正核心逻辑：把And改成Or，条件变为「日期小于起始日期 或者 日期大于结束日期」时删除，完全符合你“保留范围内行”的需求
• 限定工作表对象：所有单元格、行操作都通过ws引用，彻底避免活动表切换导致的错误
• 增加日期校验：自动交换颠倒的udate和udate2，防止用户输入顺序错误导致逻辑失效
• 优化性能：把单元格值先存入变量，减少对Excel对象模型的重复调用，代码运行更快

调试的时候你还可以加一句Debug.Print dte, udate, udate2，在立即窗口里查看三个日期的实际值，确认日期转换是否正确，比较逻辑是否符合预期。

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