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

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

查找功能不起作用

1 个答案: