VBA变量未设置（错误91）及Find方法返回Nothing问题求助

首先，咱们先揪出最可能的致命问题——你代码里写的ActiveWorksheet是错的！VBA里没有这个对象，正确的应该是ActiveSheet。这会导致你的查找范围根本没被正确初始化，Find自然返回Nothing，后续只要用到rngvar1就会触发错误91（变量未设置）。

接下来，咱们梳理其他几个可能导致Find找不到结果的细节，以及对应的修复方案：

1. 修正对象名称错误 #

把ActiveWorksheet改成ActiveSheet，这是基础中的基础：

Dim rngvar1 As Range
Set rngvar1 = ActiveSheet.Range("K" & CStr(strng.Row) & ":K" & CStr(endrng.Row)).Find(what:=maxdate, LookIn:=xlValues)

2. 替换字符串拼接运算符 #

VBA里用+拼接字符串容易出意外（比如如果不小心混了数字类型会触发算术运算），建议统一用&来拼接，更安全可靠。上面的代码已经替换了。

3. 确保数据类型匹配 #

即使maxdate有有效值，也要确认它的类型和单元格里的内容类型一致：

• 如果单元格是日期格式，maxdate应该是Date类型；
• 如果单元格是文本格式的日期，建议把maxdate转成字符串再查找：what:=CStr(maxdate)；
• 另外，可以加上LookAt:=xlWhole参数，确保是完全匹配（默认是xlPart，可能会匹配到包含该日期的其他内容）：

  Set rngvar1 = ActiveSheet.Range("K" & CStr(strng.Row) & ":K" & CStr(endrng.Row)).Find( _
      what:=maxdate, _
      LookIn:=xlValues, _
      LookAt:=xlWhole)
  

4. 必须处理Find返回Nothing的情况 #

不管怎么优化，都有可能出现查找不到的情况，所以一定要先判断rngvar1是否为Nothing，再进行后续操作，避免错误91：

If Not rngvar1 Is Nothing Then
    ' 这里写找到匹配项后的操作，比如：
    MsgBox "找到匹配项在单元格：" & rngvar1.Address
Else
    MsgBox "未找到匹配的日期：" & maxdate
End If

额外检查点 #

• 确认strng和endrng都是有效的Range对象，它们的Row属性确实在当前工作表的行范围内；
• 检查目标列（K列）的单元格是否有隐藏、筛选的情况，Find默认会跳过隐藏单元格，如果需要查找隐藏内容，可以加上SearchFormat:=False或者先取消筛选。

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