Excel VBA报错Error 91：对象变量未设置，求Find循环修正方案

核心错误原因 #

Error 91（对象变量未设置）的直接原因是：当Find方法找不到匹配"Transactions for*"的单元格时，会返回Nothing，此时直接调用.Activate就会触发该错误。此外代码还存在流程混乱、依赖ActiveCell/Select、变量定义不规范等问题。

代码问题拆解 #

• Find方法未做空值判断：没有捕获Find返回Nothing的情况，直接执行激活操作
• 滥用GoTo语句：导致代码逻辑难以追踪，循环逻辑混乱
• 依赖Select/ActiveCell：这类操作效率低，还容易因用户操作或其他代码干扰导致错误
• 变量定义与赋值错误：
  • searchina = Range("D1:D60")未使用Set，实际是将单元格值赋值给变量而非对象引用
  • 重复定义功能相同的变量（transs和transx）
• 条件判断逻辑错误：比如ActiveCell.Select = transx这种语法错误，Select是方法不能用于比较

修正后的代码 #

以下代码采用规范的Find循环写法，不依赖Select/ActiveCell，直接操作单元格对象，同时处理了找不到匹配项的情况：

Option Explicit

Sub MoveTransactionHeaders()
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstFoundAddr As String
    Dim searchText As String
    
    ' 设置参数
    Set ws = ActiveSheet ' 可替换为具体工作表，比如ThisWorkbook.Worksheets("Sheet1")
    Set searchRange = ws.Range("D1:D60")
    searchText = "Transactions for*"
    
    ' 首次查找
    Set foundCell = searchRange.Find(What:=searchText, _
                                    LookIn:=xlValues, _
                                    LookAt:=xlPart, _
                                    SearchOrder:=xlByRows, _
                                    SearchDirection:=xlNext, _
                                    MatchCase:=False)
    
    ' 如果找到匹配项，进入循环
    If Not foundCell Is Nothing Then
        firstFoundAddr = foundCell.Address ' 记录第一个匹配地址，防止无限循环
        
        Do
            ' 检查A列对应位置是否已有相同内容，避免重复移动
            If ws.Cells(foundCell.Row, "A").Value Like searchText Then
                ' 已存在，跳过
                Set foundCell = searchRange.FindNext(foundCell)
                If foundCell.Address = firstFoundAddr Then Exit Do ' 回到起点，结束循环
                Continue Do
            End If
            
            ' 移动单元格内容到A列（若要剪切替换，可改为foundCell.Cut Destination:=ws.Cells(foundCell.Row, "A")）
            ws.Cells(foundCell.Row, "A").Value = foundCell.Value
            foundCell.ClearContents
            
            ' 查找下一个匹配项
            Set foundCell = searchRange.FindNext(foundCell)
            
            ' 检查是否回到第一个匹配地址，防止无限循环
            If foundCell.Address = firstFoundAddr Then Exit Do
        Loop While Not foundCell Is Nothing
    End If
    
    ' 可选：定位到A1
    ws.Range("A1").Select
End Sub

关键改进点 #

• 捕获Find返回Nothing的情况：通过If Not foundCell Is Nothing判断是否找到匹配项
• 使用FindNext循环：配合firstFoundAddr避免无限循环
• 直接操作单元格对象：取消对Select/ActiveCell的依赖，代码更稳定高效
• 清晰的逻辑流程：去掉混乱的GoTo语句，用Do-Loop实现循环
• 明确的变量定义：统一参数设置，代码可读性更强

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