范围返回空值

Question

我写了一个代码来查找列中的日期。它最初起效。经过一些调整后，它开始在监视窗口中返回“无”值

Sub test()
  Dim strDate as string
  Dim rcell as range

StrDate = date

Set rcell= range("A:A").Find(Cdate(strDate))

End sub