Excel VBA循环判断代码无效果求助：按日期差赋值单元格

问题根源分析 #

你的代码运行无反应，核心问题如下：

• 循环条件逻辑完全错误：Do While Cells(2, 8).Value <> "" 意味着只有H2单元格非空时才会进入循环，但你的需求是往H2填值——如果H2一开始是空的，循环直接跳过；如果H2一开始有值，循环会无限运行（因为i持续递增，循环条件永远满足）。
• 定义的LR变量未使用：你获取了第14列的最后一行行号，但代码全程只处理第2行，逻辑脱节。
• 日期差值判断有隐患：TD - Cells(2,13).Value 得到的是含小数的天数差（小数代表小时/分钟），但你用Long类型的i做比较会自动取整，可能不符合预期；如果M2单元格不是日期格式，计算会返回错误值，导致条件永远不成立。

修正后的代码 #

假设你的需求是：找到最小的整数i，使得当前时间与指定单元格的日期差值（天数）≤i，将i填入对应单元格；同时支持批量处理第2行到数据最后一行的所有内容，代码如下：

Sub test()
    Dim LR As Long
    Dim i As Long
    Dim TD As Date
    Dim currentRow As Long
    Dim dateDiff As Double
    
    TD = Now
    ' 获取第14列（N列）的最后一行行号
    LR = Cells(Rows.Count, 14).End(xlUp).Row
    
    ' 遍历从第2行到最后一行的数据
    For currentRow = 2 To LR
        ' 先判断M列单元格是否为日期格式，避免计算错误
        If IsDate(Cells(currentRow, 13).Value) Then
            dateDiff = TD - Cells(currentRow, 13).Value
            i = 1
            ' 循环找到最小的i满足差值≤i
            Do While dateDiff > i
                i = i + 1
            Loop
            ' 将i填入H列对应单元格
            Cells(currentRow, 8).Value = i
        Else
            ' 如果M列不是日期，填提示内容
            Cells(currentRow, 8).Value = "无效日期"
        End If
    Next currentRow
End Sub

关键修正点 #

• 调整循环条件为日期差值是否大于i，找到符合条件的i后立即停止循环。
• 启用批量处理逻辑，用上之前定义的LR变量，覆盖所有数据行。
• 增加IsDate判断，避免非日期单元格导致的计算错误。
• 用Double类型的dateDiff存储日期差值，保留小数部分，确保判断准确。

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