查找日期是否存在于单元格范围中（Excel VBA）

Question

我有一个单元格F2，其中包含一个日期，格式为自定义日期字段，仅显示日期和月份。

然后我有一个单元格范围C3;C60，其中还包含日期，并被格式化为显示dd/mm/yyyy的欧洲日期字段

我正在编写一个对这些字段进行检查的 VBA，但它不起作用。 在下面的示例中，变量c 可以是F5 和F20 之间的任何单元格。

我收到RuntimeError 91.

If Worksheets(1).Range("C3", "C60").Find(Worksheets(1).Cells(2, c.Column).Value) = True Then
        c.Value = "Whatever"        
Else

Answer 1

.Find() 返回一个范围，您的 if 语句正在检查它是否为 TRUE。那将失败。

Dim rng as Range

Set rng = Worksheets(1).Range("C3:C60").Find(Worksheets(1).Cells(2, c.Column).Value)
if not rng is Nothing then
  c.Value = "Whatever"        
Else

注意 Gary's 答案的包含

Answer 2

替补：

Range("C3:C60")

为

Range("C3", "C60")

可能还有其他问题。