Excel VBA技术问询：For循环查找范围内日期无输出排查

核心问题 #

你的代码运行无输出，最关键的原因是**Exit For语句放在了循环内部的第一行**，导致For Each循环只执行一次就直接退出，根本没遍历后续单元格。

代码修复与优化 #

以下是修正后的代码，同时优化了不必要的工作表激活操作，避免依赖激活状态：

Sub recorrer()
    Dim rng As Range, cell As Range
    Dim targetTime As Date, replaceValue As Variant
    
    ' 提前获取目标值，避免重复引用单元格
    targetTime = Sheets("Hoja1").Range("C5").Value
    replaceValue = Sheets("Hoja1").Range("C2").Value
    
    ' 直接指定工作表范围，无需激活
    Set rng = Sheets("General").Range("A22", Sheets("General").Range("A22").End(xlDown))
    
    ' 遍历所有单元格，移除错误的Exit For
    For Each cell In rng
        ' DateDiff("h", t1, t2) 返回t2 - t1的小时差，小于0表示t2 < t1
        ' 若需判断C5时间是否在某个范围，可根据需求调整逻辑，比如：
        ' If targetTime >= 起始时间 And targetTime <= 结束时间 Then
        If DateDiff("h", targetTime, cell.Value) < 0 Then
            cell.Value = replaceValue
        End If
    Next
End Sub

额外说明 #

1. 时间范围逻辑调整：当前代码逻辑是当A列单元格时间早于C5时间时，将A列单元格替换为C2的值。如果你的真实需求是判断C5时间是否落在某个时间区间内，需要重新定义If条件。
2. 避免工作表激活依赖：直接通过Sheets("工作表名").Range引用单元格，比先激活再操作更稳定，减少因工作表切换导致的错误。
3. 提升代码效率：把需要重复使用的C5、C2值提前存入变量，减少对单元格的重复访问，加快代码运行速度。

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