查找功能不起作用

Question

我一直有查找功能的問題。

涉及兩張紙。基本上我想填寫從2011年1月到2012年12月的主表。我試圖在名爲export的原始數據表中匹配這些日期，以便我可以檢索這些日期的下一個值。

但是，似乎無法找到cellFound的值。它不斷給我提供應用程序定義或對象定義的錯誤。你能幫助我嗎？

我的代碼：

Sub Rectangle2_Click() 

Dim searchDate As Long, cellFound As Range, searchRange As Range 
Dim i As Integer 

Set searchRange = Worksheets("Export").Range("G77:G91") 

For i = 2 To 25 

searchDate = Worksheets("Main").Cells(2, i) 

Set cellFound = searchRange.Find(What:=searchDate, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 

Worksheets("Main").Cells(4, i) = cellFound 

Next i 

End Sub 

Answer 1

你應該處理髮現沒有返回結果的可能性：

If cellFound Is Nothing Then 
'handle error 
    Debug.Print ("error") 
Else 
    Worksheets(2).Cells(4, i) = cellFound 
End If 

正是爲什麼沒有結果，我無法猜測 - 請給我們一些示例數據。