variables - Excel VBA将变量设置为日期之间的相等值

Question

在使用 VBA 的 Excel 中，我需要将变量设置为等于开始日期和结束日期之间所有日期的列表(类似于等于包含多个值的范围)。捕获只是开始和结束日期在一个范围内，而不是介于两者之间的值。

在 SQL Server 中，我使用 Sys.Columns 表来生成两个日期之间的日期列表，这些日期实际上并未存储在该表中。有没有办法在这里做类似的事情，而无需将开始日期和结束日期之间的每个日期都写在某处？我用谷歌搜索了几个小时，但没有找到任何有关如何执行此操作的信息。

我正在尝试做的是有一个变量，我可以在其上执行 For Each 循环。因此，对于每个日期，我都会检查它是否存在于另一个工作表中，如果它不做任何事情都不会发生，如果没有，它将被添加。

我试过了:

Dim DatesInSettings As Date
DatesInSettings = StartDate To EndDate

For Each Date In DatesInSettings
'Insert commands here
Next DatesInSetting

但这显然不是答案。帮助？

Answer 1

此搜索 Sheet2对于 Sheet1 的开始日期和结束日期之间的日期- 在单元格 A1 和 B1 中:

Sub RunDates()

Dim StartDate As Date
Dim EndDate As Date
Dim i As Date

StartDate = Sheet1.Range("A1")
EndDate = Sheet1.Range("B1")
For i = StartDate To EndDate
    If WorksheetFunction.CountIf(Sheet2.Range("A1:A5"), i) > 0 Then
        Debug.Print i; "- date found"
    Else
        Debug.Print i; "- date not found"
    End If
Next i
End Sub