[VBA ] Range.Find無法搜尋日期

[unfinish (笑吟吟的淫淫笑)]

先在儲存格A1隨便輸入日期 比如今天的日期3/19
接著在B1輸入公式「=A1」 這時候就有兩格3/19
然後...

Set oRng = Range("B:B").Find(Range("A1"))
執行結果是Nothing

甚至連自己都不認識自己
Set oRng = Range("B1").Find(Range("B1"))
執行結果一樣是Nothing

即便切回工作表按Ctrl+F用excel內的「尋找及取代」視窗去搜尋3/19
只會找到A1 一樣是找不到B1

如果把A1改成文字或數字就沒有上述問題

附帶一提 直接擷取B1內容 抓出來的是日期格式 完全沒有問題
If Range("A1") = Range("B1") Then MsgBox Range("B1")

請問要怎麼用Find搜尋用公式帶出來的日期呢?
謝謝大家

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.120.70.34 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1616120421.A.ECF.html
→ lalacos123: https://i.imgur.com/P0sGl65.jpg

也許是問題描述的不夠詳細
我把重點再highlight一下
不是日期找不到 而是公式帶出來的日期找不到
※ 編輯: unfinish (59.120.70.34 臺灣), 03/22/2021 08:45:56
→ lalacos123: 有一定要用find的嗎 application.vlookup可以?
推 waiter337: set oRng = range("b:b").find(datevalue(range("a1"))
→ waiter337: ,lookin:=xlvalues)
推 waiter337: 可以不加set