VBA二次循环触发91运行时错误（Variable not set）求助

错误核心原因 #

1. 第二次循环时，Find方法未找到目标文本会返回Nothing，此时直接访问stimon.Address或stimoff.Address会触发91运行时错误（变量未设置）
2. 过度依赖Select/Activate操作，导致ActiveCell状态不稳定，Find的After参数逻辑混乱
3. 循环无终止条件，会无限执行直到出错

修复后的代码 #

Sub ClassifyStims()
    Dim ws As Worksheet
    Dim stimon As Range
    Dim stimoff As Range
    Dim inspStart As Range
    Dim lastRow As Long
    Dim searchCol As Range
    
    ' 指定目标工作表（替换为你的实际工作表名称）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 获取AA列有效数据范围，避免查找整列浪费资源
    lastRow = ws.Cells(ws.Rows.Count, "AA").End(xlUp).Row
    Set searchCol = ws.Range("AA1:AA" & lastRow)
    
    ' 定位第一个stimon
    Set stimon = searchCol.Find(What:="stimon", LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
    
    ' 循环处理直到找不到下一个stimon
    Do While Not stimon Is Nothing
        ' 在当前stimon之后查找对应的stimend
        Set stimoff = searchCol.Find(What:="stimend", After:=stimon, _
            LookIn:=xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, _
            SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
        
        ' 先判断stimoff是否存在，避免后续报错
        If stimoff Is Nothing Then
            MsgBox "在stimon行之后未找到对应的stimend，终止处理", vbExclamation
            Exit Do
        End If
        
        ' 定义要检查的范围（从stimon到stimoff）
        Dim evalRng As Range
        Set evalRng = ws.Range(stimon, stimoff)
        
        ' 在目标范围内查找InspStart
        Set inspStart = evalRng.Find(What:="InspStart", LookIn:=xlFormulas2, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
        
        ' 根据查找结果写入对应公式
        If inspStart Is Nothing Then
            ws.Range("AG" & stimon.Row).FormulaR1C1 = _
                "=LEFT(RC[-2],SEARCH(""B"",RC[-2]))&(MID(RC[-2],SEARCH(""B"",RC[-2])+1,LEN(RC[-2])-SEARCH(""B"",RC[-2])-1)+1)"
        Else
            ws.Range("AG" & stimon.Row).FormulaR1C1 = _
                "=RC[-2]&RIGHT(RC[-6],LEN(RC[-6])-SEARCH(""StimOnset"",RC[-6])+1)"
        End If
        
        ' 定位下一个stimon，从当前stimoff之后开始，避免重复处理
        Set stimon = searchCol.FindNext(After:=stimoff)
    Loop
End Sub

关键优化点 #

• 移除所有Select/Activate操作：直接操作Range对象，彻底避免ActiveCell状态不稳定的问题
• 强制空值检查：每次Find后都判断变量是否为Nothing，从根源上杜绝91错误
• 缩小查找范围：固定在AA列的有效数据区间内，提升运行效率
• 明确循环终止条件：找不到下一个stimon时自动退出循环
• 指定具体工作表：避免依赖ActiveSheet，防止切换工作表时出错

给非专业开发者的学习建议 #

• 彻底抛弃Select/Activate：这是VBA新手最容易踩的坑，直接操作Range对象更稳定高效
• 养成空值检查的习惯：所有通过Find获取的Range变量，必须先判断If xxx Is Nothing再使用
• 用FindNext替代重复写Find语句：逻辑更清晰，避免查找范围混乱
• 调试用Debug.Print替代MsgBox：可以在立即窗口查看变量值，不打断循环执行
• 先理逻辑再写代码：比如先确定每个循环的起始/结束条件，再逐步实现细节

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