作者unfinish (笑吟吟的淫淫笑)
看板Visual_Basic
标题[VBA ] Range.Find无法搜寻日期
时间Fri Mar 19 10:11:04 2021
先
在储存格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://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1616120421.A.ECF.html
也许是问题描述的不够详细
我把重点再highlight一下
不是日期找不到 而是
公式带出来的日期找不到
※ 编辑: unfinish (59.120.70.34 台湾), 03/22/2021 08:45:56
2F：→ lalacos123: 有一定要用find的吗 application.vlookup可以? 03/23 10:48
3F：推 waiter337: set oRng = range("b:b").find(datevalue(range("a1")) 04/05 03:24
4F：→ waiter337: ,lookin:=xlvalues) 04/05 03:25
5F：推 waiter337: 可以不加set 04/18 10:32