在列中查找日期值VBA

Question

data on my Excel sheet我想在列A中查找日期。這是日期格式：「yyyy/mm/dd hh：mm：ss」。它總是發現什麼，但我正在尋找的日期是在A列 這是我的代碼片段：

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 

編輯：每個評論的新代碼。

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的運行。 源文件中的這些代碼行解決了這個問題：

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來搜索double值而不是日期。您也可以省略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)