Excel 范围查找日期列

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

示例：如果我搜索2012年1月1日，如果它不可用，则应增加 日期为2012年2月1日，并处理搜索，直到找到匹配值和返回范围地址（如果找到）

注：范围格式为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

---

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

---

…尝试添加的其他参数。查找方法：

---

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

---

…尝试添加的其他参数。查找方法：

---

尝试添加.Find方法的其他参数：Set rng=Sheet1.RangeA:A.Find1/1/2012，LookIn:=xlValues，LookAt:=xlWhole@KazJaw谢谢它起作用了。所以，我复制到答案中，您可以将其匹配为已解决的…尝试添加其他参数。查找方法：Set rng=Sheet1.RangeA:A.Find1/1/2012，LookIn:=xlValues，LookAt:=xlWhole@KazJaw谢谢它成功了。所以，我把答案复制到你们可以匹配的答案中，作为解决方案……哥们，你们真的救了我一个晚上。愚蠢的卓越！！谢谢你，伙计！祝你好运！！！伙计，你真的救了我一个晚上。愚蠢的卓越！！谢谢你，伙计！祝你好运！！！

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