VBA循环中基于日期条件提取单元格值的问题求助

嘿，作为VBA新手碰到这种需求卡壳太正常啦，我给你整理了最直观也容易理解的实现方法，还会把关键细节讲清楚，避免踩坑～

核心思路拆解 #

• 先计算当前日期减一年的基准日期LDate：用DateAdd函数比直接减365更靠谱，能自动处理闰年的情况
• 遍历目标单元格区域，对每个日期计算和LDate的天数差
• 当天数差小于60时，提取该单元格的值（可以放到指定区域或者做其他操作，看你需求）

完整示例代码 #

Sub ExtractDatesWithin60Days()
    Dim LDate As Date
    Dim targetRange As Range
    Dim cell As Range
    Dim outputRow As Integer
    
    ' 设置基准日期：当前日期减去1年
    LDate = DateAdd("yyyy", -1, Date)
    
    ' 假设检查Sheet1的A列所有非空日期单元格，可根据实际修改范围
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    ' 初始化输出起始行（示例放到B列）
    outputRow = 1
    
    ' 遍历每个单元格
    For Each cell In targetRange
        ' 计算两个日期的天数差，"d"代表按天数计算间隔
        If DateDiff("d", LDate, cell.Value) < 60 Then
            ' 将符合条件的日期提取到B列，也可改成存入数组/弹窗输出等操作
            ThisWorkbook.Sheets("Sheet1").Cells(outputRow, "B").Value = cell.Value
            outputRow = outputRow + 1
        End If
    Next cell
    
    MsgBox "提取完成！符合条件的日期已放到B列", vbInformation
End Sub

关键细节解释 #

• DateAdd("yyyy", -1, Date)：Date是VBA内置的当前系统日期函数，DateAdd用来对日期做精准加减，"yyyy"指定按年计算，-1就是减1年，完美规避闰年带来的日期误差
• DateDiff("d", LDate, cell.Value)：DateDiff计算两个日期的间隔，"d"表示按天数统计，结果是单元格日期与LDate的天数差；这里判断小于60，就是两个日期的间隔不超过60天
• 自动适配数据范围：Cells(Rows.Count, "A").End(xlUp).Row能自动获取A列最后一个非空行的行号，不管数据有多少行都能覆盖，不用手动修改范围

如果你的需求有调整（比如提取到其他位置、检查特定单元格区域），只需要修改对应的范围和输出逻辑就行啦～

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