Найти значение даты в столбце VBA

Question

data on my Excel sheet Я хотел бы найти дату в столбце A. Это форма даты: "yyyy/mm/dd hh: mm: ss". Он всегда не найти ничего, но дата, что я ищу в колонке А. Это фрагмент моего кода:

Dim LastDay As Date 
Dim strdate As String 
Dim rCell As Range 

strdate = Format(LastDay, "yyyy/mm/dd hh:mm:ss") 

Set rCell = Cells.Find(What:=CDate(strdate), After:=Range("A1"), LookIn:=xlValues _ 
     , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) 

If rCell Is Nothing Then 
MsgBox ("nothing") 
Else 

EDIT: Новый код в комментарии.

Sub Copy() 
    Dim LastDayRow As Long 
    Dim FirstDayRow As Long 
    Dim LastDay As Date 
    Dim FirstDay As Date 
    Dim rcell As Range 

    LastDayRow = Range("E" & Rows.Count).End(xlUp).Row 
    Range("E" & LastDayRow).Copy Range("G1") 
    FirstDayRow = Range("A" & Rows.Count).End(xlUp).Row 
    Range("A" & FirstDayRow).Copy Range("G2") 
    LastDay = Cells(LastDayRow, "E").Value 
    FirstDay = Cells(FirstDayRow, "A").Value 

    Set rcell = Cells.Find(What:=LastDay, After:=Range("A1"), LookIn:=xlFormulas _ 
       , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext) 

    If rcell Is Nothing Then 
     MsgBox ("nothing") 
    End If 

End Sub 

Answer 1

Проблема была в форме даты. «/» В этом формате даты: yyyy/mm/dd hh: mm: ss путают vba run. Эти строки кода в исходном файле решить эту проблему:

Sheet1.Range("A:A").Replace What:="/", Replacement:="." 
Sheet1.Range("A:A").NumberFormat = "yyyy/mm/dd hh:mm:ss" 
Sheet3.Range("E:E").Replace What:="/", Replacement:="." 
Sheet3.Range("E:E").NumberFormat = "yyyy/mm/dd hh:mm:ss" 

Answer 2

Типы дат хранятся как в Excel, так и в VBA в виде парных разрядов. Найдите двойное значение вместо даты, изменив параметр LookIn на xlFormulas. Вы также можете опустить параметр MatchCase (вы используете значение по умолчанию).

Set rCell = Cells.Find(What:=LastDay, After:=Range("A1"), LookIn:=xlFormulas _ 
     , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext) 

Обратите внимание, что вы делаете некоторые бессмысленные работы здесь ...

strdate = Format(LastDay, "yyyy/mm/dd hh:mm:ss") 

... потому что вы просто бросить его назад к дате, когда вы делаете ваш поиск:

What:=CDate(strdate)