0

我一直遇到查找功能的问题。

涉及两张纸。基本上我想填写日期从 2011 年 1 月到 2012 年 12 月的主表。我试图在名为 export 的原始数据表中匹配这些日期,以便我可以检索这些日期的下一个值。

但是,似乎cellFound无法找到 for 的值。它不断给我应用程序定义或对象定义的错误。你能帮我解决这个问题吗?

我的代码:

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
4

1 回答 1

0

您应该处理发现没有返回结果的可能性:

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

究竟为什么没有我无法猜测的结果 - 请给我们一些示例数据。

于 2013-03-11T09:33:54.667 回答