VBA报表搜索代码报错：‘对象变量或With块未设置’问题求助

问题背景 #

处理一份84列、249000+行的可变行数报表，需求如下：

• 在每行的AQ:CC列（术语单独存在）和CD列（术语包含在逗号分隔文本中）搜索9个指定术语
• 找到第1个术语时，在对应行A列写入Yes；找到第2个术语时在B列写入Yes，以此类推
• 用无空值的J列统计总行数

原代码存在Object variable or With block not set报错，且逻辑无法正确匹配所有情况，以下是问题分析和修复方案：

原代码错误点 #

1. 工作表引用不明确：在With wsSource块内，Range("AQ" & i & ":CD" & i)未加.前缀，会默认引用活动工作表，而非指定的wsSource
2. 对象判断逻辑错误：foundRng = True或foundRng Is True的写法错误，Find方法返回Range对象，找不到时为Nothing，正确判断应为Not foundRng Is Nothing
3. CD列匹配缺失：原代码仅用Find匹配单元格完全值，无法识别CD列中逗号分隔的术语
4. 效率低下：逐行逐术语的单元格操作，在24万行数据下运行速度极慢

修复后的代码 #

Sub CodeSearch()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual ' 进一步提升效率
    
    Dim wsSource As Worksheet
    Dim lastRow As Long
    Dim i As Long, termIdx As Long
    Dim foundRng As Range
    Dim cellVal As String
    ' 定义9个术语，按顺序对应A-I列
    Dim terms As Variant
    terms = Array("Term1", "Term2", "Term3", "Term4", "Term5", "Term6", "Term7", "Term8", "Term9")
    
    ' 初始化工作表引用
    Set wsSource = ThisWorkbook.Worksheets("TestData")
    lastRow = wsSource.Cells(wsSource.Rows.Count, "J").End(xlUp).Row
    
    With wsSource
        ' 循环处理每行
        For i = 2 To lastRow
            ' 处理AQ:CC列（术语单独存在）
            Set searchRange = .Range("AQ" & i & ":CC" & i)
            
            For termIdx = LBound(terms) To UBound(terms)
                ' 先检查AQ:CC列是否有完全匹配的术语
                Set foundRng = searchRange.Find( _
                    What:=terms(termIdx), _
                    LookIn:=xlValues, _
                    LookAt:=xlWhole, ' 匹配整个单元格内容，对应术语单独出现的要求
                    MatchCase:=False) ' 根据需求调整是否区分大小写
                
                ' 如果AQ:CC列没找到，检查CD列的逗号分隔文本
                If foundRng Is Nothing Then
                    cellVal = .Range("CD" & i).Value
                    ' 用InStr判断术语是否在逗号分隔的文本中，前后加逗号避免部分匹配
                    If InStr(1, "," & cellVal & ",", "," & terms(termIdx) & ",", vbTextCompare) > 0 Then
                        .Cells(i, termIdx + 1).Value = "Yes" ' termIdx从0开始，对应A列是第1列
                    End If
                Else
                    .Cells(i, termIdx + 1).Value = "Yes"
                End If
            Next termIdx
        Next i
    End With
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

关键优化说明 #

• 明确工作表引用：所有Range操作前都加.前缀，确保使用指定的wsSource工作表
• 正确的对象判断：用Not foundRng Is Nothing判断是否找到完全匹配的术语
• CD列文本匹配：通过"," & cellVal & ","包裹单元格值，再用InStr判断术语是否存在，避免部分匹配（比如"Term1"和"Term10"的混淆）
• 效率提升：禁用屏幕更新和自动计算，减少Excel交互开销；用数组存储术语，简化循环逻辑
• 扩展性：术语存储在数组中，新增或修改术语只需修改数组内容，无需重复编写Find判断代码

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