如何用VBA提取符合日期范围的唯一日期至Sheet3？是否需用字典？

核心结论 #

非常推荐使用Scripting.Dictionary，这是处理此类去重需求最简洁高效的方案，尤其适合嵌入现有循环的场景。

为什么选Dictionary？ #

• 它的键（Key）天然具备唯一性，无需额外编写复杂的重复判断逻辑，直接将符合条件的日期作为Key存入，自动完成去重
• 嵌入现有循环时，只需在遍历Sheet1每行数据的过程中，先判断日期是否落在Sheet2的A1（起始日期）和A2（结束日期）范围内，再将合格日期加入Dictionary即可
• 最后遍历Dictionary的Key集合，就能直接得到所有符合要求的唯一日期，轻松写入Sheet3

可嵌入的代码示例 #

' 初始化Dictionary对象
Dim dateDict As Object
Set dateDict = CreateObject("Scripting.Dictionary")

' 读取日期范围
Dim startDate As Date, endDate As Date
startDate = Sheet2.Range("A1").Value
endDate = Sheet2.Range("A2").Value

' 获取Sheet1数据的最后一行
Dim lastRow As Long, i As Long
lastRow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

' 嵌入现有循环：遍历Sheet1数据
For i = 1 To lastRow
    Dim currentDate As Date
    currentDate = Sheet1.Cells(i, "A").Value
    
    ' 判断日期是否在指定范围内
    If currentDate >= startDate And currentDate <= endDate Then
        ' 利用Dictionary键的唯一性自动去重
        If Not dateDict.Exists(currentDate) Then
            dateDict.Add currentDate, vbNullString ' 值可以设为任意内容，仅需利用键的唯一性
        End If
    End If
Next i

' 将去重后的日期写入Sheet3
Dim outputRow As Long, key As Variant
outputRow = 1
For Each key In dateDict.Keys
    Sheet3.Cells(outputRow, "A").Value = key
    outputRow = outputRow + 1
Next key

' 释放对象
Set dateDict = Nothing

不使用Dictionary的替代方案（不推荐） #

如果坚持不用Dictionary，也可以用数组存储已出现的日期，每次循环时遍历数组判断是否重复。但这种方法代码冗余，数据量大时效率会显著下降，远不如Dictionary简洁高效。

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