先在儲存格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搜尋用公式帶出來的日期呢?
謝謝大家

set oRng = range("b:b").find(datevalue(range("a1")),lookin:=xlvalues)可以不加set