在指定区域查找字符串并隐藏未包含该字符串的行

错误原因分析 #

• 未限定工作表对象：原代码中Rows.Count、Cells等操作未指定所属工作表ws，默认使用当前活动工作表，若ws不是活动表就会触发错误。
• Find方法判断逻辑错误：Find返回的是Range对象，不能直接和数值0比较，需判断对象是否存在（即是否为Nothing）。
• 循环范围错误：firstEmptyListRow是最后一行+1，循环到这个值会包含空行，应改为firstEmptyListRow - 1。
• 变量类型风险：行号用Integer可能溢出，Excel行号最大值超过32767，建议改用Long类型。

修正后的代码 #

Set ws = transferredSheet

Dim firstEmptyListRow As Long
Dim searchRange As Range
Dim i As Long
' 需确保firstListRow和searchString已提前定义赋值

' 修正：限定工作表对象ws
firstEmptyListRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1
Set searchRange = ws.Range(ws.Cells(firstListRow, 1), ws.Cells(firstEmptyListRow - 1, 8))

' 修正循环范围，从firstListRow到最后一行（firstEmptyListRow-1）
For i = firstListRow To firstEmptyListRow - 1
    ' 修正Find判断逻辑：检查是否找到目标字符串
    If Not ws.Rows(i).Find(What:=searchString, LookIn:=xlValues, LookAt:=xlPart) Is Nothing Then
        ws.Rows(i).Hidden = False
    Else
        ws.Rows(i).Hidden = True
    End If
Next i

关键修改说明 #

1. 所有Rows、Cells操作前添加ws.，确保操作的是目标工作表transferredSheet。
2. 将Integer类型改为Long，避免行号溢出。
3. 调整循环终点为firstEmptyListRow - 1，排除空行。
4. 用Not ... Is Nothing判断Find是否找到结果，同时添加LookAt:=xlPart（可根据需求改为xlWhole）明确匹配方式。

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