Excel VBA查找日期范围遇运行时错误91及匹配异常问题咨询

让我来帮你拆解这两个问题的根源——毕竟Excel VBA查找日期的坑我也踩过不少，结合你描述的场景，原因大概率是这几个：

问题1：第二个文件触发运行时错误91（对象变量未设置） #

错误91的本质是Range.Find方法没找到匹配的单元格，返回了Nothing，而后续代码（哪怕你没贴全）直接调用了这个未初始化的对象。明明两个文件格式相同却有差异，可能的原因有这几个：

• 单元格数据类型不匹配：虽然你说格式相同，但第二个文件的O列或N27可能是「文本格式的日期」，而非真正的日期值。比如N27是文本格式的"2024-01-01"，CDate能转成日期值，但O列如果也是文本日期，用日期值去查找文本内容，就会找不到匹配项，最终返回Nothing触发错误。
• Find默认参数的隐性差异：Range.Find的很多参数（比如LookAt、SearchDirection）会保留上次使用的设置。比如第一个文件你之前用的是xlWhole（完全匹配），但第二个文件上次用的是xlPart（部分匹配），如果O列有带时间的日期（比如"2024-01-01 10:00"），而N27是不带时间的日期，完全匹配就会找不到。
• With块的工作表指向错误：你代码里用了.Range，说明是在With块中操作，但第二个文件的With块可能意外指向了其他工作表（比如默认的Sheet1而非目标表），导致查找的O列根本没有目标日期。

问题2：替换成firstDate后仅能找到第二个实例 #

firstDate是CDate转成的字符串，这里的核心矛盾是字符串查找和日期值查找的逻辑完全不同：

• Excel的Find方法用字符串查找时，匹配的是单元格的显示文本，而非底层存储的日期值。比如O列的日期显示格式是"yyyy/mm/dd"，但firstDate的字符串格式是"yyyy-dd-mm"，第一个实例的显示文本和字符串不匹配就会被跳过，直到找到第二个格式刚好符合的单元格。
• 另外，当你用字符串作为查找目标时，区域设置可能会干扰匹配结果：比如系统是英文区域，字符串"2024-01-02"会被解析成2月1日，而中文区域会解析成1月2日，如果O列的日期值对应的显示文本和解析后的结果不一致，就会出现漏找第一个实例的情况。
• 还有一种可能：第一次用字符串查找时，Find默认从A1开始遍历，第一个实例因为文本格式不匹配没被找到，直到遍历到第二个实例才命中，导致你误以为只找到第二个。

给你的解决建议 #

1. 明确指定Find的所有关键参数，不要依赖默认值，避免隐性差异：

   Set rngsaison1 = .Range("O:O").Find( _
       What:=CDate(.Range("N27")), _
       LookIn:=xlValues, _
       LookAt:=xlWhole, _
       SearchOrder:=xlByColumns, _
       MatchCase:=False, _
       SearchDirection:=xlNext)
   

2. 统一数据类型：检查两个文件的N27和O列，确保都是「日期格式」而非文本格式。可以用IsDate(.Range("N27").Value)验证N27，遍历O列用IsDate(cell.Value)验证单元格类型。
3. 避免用字符串查找日期：尽量直接用日期值作为查找目标，如果必须用字符串，用Format函数统一格式（和O列的显示格式保持一致）：

   firstDate = Format(CDate(.Range("N27")), "yyyy/mm/dd") ' 替换成O列的实际显示格式
   

4. 添加空值检查，防止错误91：

   Set rngsaison1 = .Range("O:O").Find(...)
   If Not rngsaison1 Is Nothing Then
       Set rngsaison2 = .Range("O:O").Find(..., after:=rngsaison1)
       ' 后续操作
   Else
       MsgBox "未找到指定日期，请检查数据格式"
   End If
   

内容的提问来源于stack exchange，提问作者Péter Fábián