先在储存格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