excel - 范围查找日期列

Question

下面的过程有时会给出错误的输出。
有人可以修改它，以便当搜索日期不可用时
它应该将日期增加 1 并再次搜索，直到找到可用的日期。

示例:如果我搜索“2012 年 1 月 1 日”并且如果它不可用，那么它应该增加
日期为“2/1/2012”并处理搜索，直到找到匹配值和返回范围地址(如果找到)。

注意:范围格式“M/d/yyyy”

Sub test()

Dim rng As Range
Set rng = Sheet1.Range("A:A").Find("1/1/2012")

Debug.Print rng.Address
'output $A$3288
'"1/1/2012" is not available.
End Sub

Answer 1

从评论中复制以匹配已解决的问题...

...尝试添加.Find的附加参数方法:

Set rng = Sheet1.Range("A:A").Find("1/1/2012", LookIn:=xlValues, LookAt:=xlWhole)