Excel VBA对比两列日期 差值不足18年则将K列对应单元格标红

问题根源 #

原有代码逻辑和需求完全不匹配：你需要判断的是M列日期 - K列日期 < 18年，但现有代码是拿「当前日期往前推18年的固定日期」和M列日期比较，完全没有用到K列的数值，判断逻辑完全错误。如果你的M列日期普遍晚于18年前的日期，就会触发所有行的标红逻辑，也就是你遇到的全列标红问题。
另外补充边界处理逻辑：如果K列/M列存在空值、非日期格式的内容，直接比较会触发运行时报错，修正后的代码也做了兼容处理。

修正后的VBA代码 #

Dim N As Long, i As Long
Dim 差值年数 As Integer

' 获取K列最后一行有数据的行号
N = Cells(Rows.Count, "K").End(xlUp).Row

For i = 2 To N
    ' 先判断两列都是有效日期再计算，避免报错
    If IsDate(Cells(i, "K").Value) And IsDate(Cells(i, "M").Value) Then
        ' 计算两个日期之间的年份差
        差值年数 = DateDiff("yyyy", Cells(i, "K").Value, Cells(i, "M").Value)
        ' 处理生日未过的边界情况：比如K是2010-10-01，M是2028-05-01，DateDiff算出来是18，但实际没满18年
        If DateSerial(Year(Cells(i, "M").Value), Month(Cells(i, "K").Value), Day(Cells(i, "K").Value)) > Cells(i, "M").Value Then
            差值年数 = 差值年数 - 1
        End If
        ' 差值小于18年就标红K列单元格
        If 差值年数 < 18 Then
            Cells(i, "K").Interior.Color = RGB(255, 0, 0)
        Else
            ' 不符合条件的清除原有标红，避免之前的错误标红残留
            Cells(i, "K").Interior.Pattern = xlNone
        End If
    Else
        ' 非日期格式的单元格默认清除标红，可根据需求调整
        Cells(i, "K").Interior.Pattern = xlNone
    End If
Next i

核心修正点说明 #

• 替换了错误的判断逻辑，改用DateDiff直接计算K、M两列的实际年份差
• 补充了生日未过的边界校验：避免DateDiff只按年份相减的逻辑误差，保证年龄判断的准确性
• 增加了日期格式校验，避免空值、非日期内容触发运行错误
• 增加了不符合条件的单元格清除标红的逻辑，避免之前错误运行残留的标红干扰

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