我一直遇到查找功能的问题。
涉及两张纸。基本上我想填写日期从 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