vba - 查找日期是否存在于单元格范围中(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回答