VBA跨工作表搜索指定日期返回单元格地址异常问题求助

老兄，我太懂这种明明日期就在眼前，Find方法却死活找不到的抓狂感了！大概率你是踩了Find方法查找日期时的几个常见坑，我帮你一一拆解：

1. 日期的类型/格式不匹配是重灾区 #

Excel里的日期看起来都是“年月日”，但背后可能是两种状态：真正的Date类型数值，或者是文本格式的日期字符串。Find方法对类型特别敏感——如果你的函数参数是字符串，而目标单元格是Date类型，或者反过来，就会匹配失败。

• 先检查函数的参数定义：确保是Function 你的函数名(targetDate As Date)，而不是String类型，这样从工作表单元格调用时，Excel会自动把单元格的日期转换成正确的Date类型传递进来。
• 查找时强制转换类型：用CDate(targetDate)确保查找的是标准Date值，比如：

  Set foundCell = 目标区域.Find(What:=CDate(targetDate), LookIn:=xlValues, LookAt:=xlWhole)
  

2. 别依赖Find方法的默认参数！ #

Find有很多默认参数，比如LookIn默认是xlFormulas，LookAt默认是xlPart，这些默认值经常会坑人：

• 如果目标单元格的日期是公式生成的，xlFormulas会去搜索公式内容而不是显示的日期值，这时候必须指定LookIn:=xlValues。
• LookAt:=xlPart会匹配包含该日期片段的内容（比如单元格里是"2024/5/20 14:30"，你找"2024/5/20"会匹配，但如果是纯日期却找不到，可能是格式问题），所以最好显式指定LookAt:=xlWhole来精确匹配整个单元格内容。

推荐你调用Find时把关键参数都写清楚，比如：

Set foundCell = 目标区域.Find( _
    What:=CDate(targetDate), _
    LookIn:=xlValues, _
    LookAt:=xlWhole, _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlNext, _
    MatchCase:=False _
)

3. 试试用日期的序列号查找 #

Excel里的日期本质是序列化的数字（比如2024年5月20日对应45432），有时候直接用序列号查找反而更可靠：

Set foundCell = 目标区域.Find(What:=CLng(CDate(targetDate)), LookIn:=xlValues, LookAt:=xlWhole)

给你一个完整的示例函数 #

Function FindTargetDate(targetDate As Date) As String
    Dim searchSheet As Worksheet
    Dim searchRange As Range
    Dim foundCell As Range
    
    ' 获取当前工作表的相邻工作表（比如右边的工作表）
    Set searchSheet = ThisWorkbook.Sheets(Application.Caller.Parent.Index + 1)
    ' 设置要搜索的区域，根据你的需求调整
    Set searchRange = searchSheet.Range("A1:Z100")
    
    ' 显式调用Find，避免默认参数坑
    Set foundCell = searchRange.Find( _
        What:=CDate(targetDate), _
        LookIn:=xlValues, _
        LookAt:=xlWhole, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False _
    )
    
    If Not foundCell Is Nothing Then
        ' 返回不带$的单元格引用，比如A1而不是$A$1
        FindTargetDate = "found: " & foundCell.Address(False, False)
    Else
        FindTargetDate = "nothing"
    End If
End Function

你可以先从检查参数类型和显式设置Find参数入手，这两个是最容易中招的点！

内容的提问来源于stack exchange，提问作者bjm