Excel VBA查找()与date问题

我在B列中有一组date,如06/03/2017格式化为自定义dd-mmm格式,给我06-Mar输出。

如果我手动执行查找/replace并search06-Mar并selectLook In: Values ,它认为没有问题,但通过VBA做同样的工作。

 Dim Source as Worksheet, Dest as Worksheet Dim mDate as String, copyRow as Integer Set Dest = ThisWorkbook.Sheets("Weekly Updates") Set Source = ActiveWorkbook.Sheets("Weekly Updates") mDate = Dest.Range("B2").Text copyRow = Source.Range("B:B").Find(What:=mDate, LookIn:=xlValues).Row 

我试图让mDate作为一个值和search公式和值,但似乎没有任何工作。

在线debuggingcopyRow = Source.......然而,如果我手动打开查找/replace窗口在这一点上,它填写search栏“06三月”,并find列中的值没有问题。

如果我用stringreplacemDate我知道有,例如Find(What:="W/C".....它将copyRow返回为1(因为它的列的标题)。

任何build议我在这里失踪?

编辑

要覆盖下面的一些评论:

是的工作表命名相同,只是在不同的工作簿(主文件从多个相同的来源拉动数据)

在格式方面,我从06/03/2017的真实值中获得search条件,格式为dd-mmm ,在数据范围内search06/03/2017格式为dd-mmm

尝试给variablesmDate相同的date格式:

 copyRow = Source.Range("B:B").Find(What:=Format(mDate, "dd-mmm"), LookIn:=xlValues).Row