VBA遍历所有工作表异常：代码仅在活动工作表生效求助

你的代码只在活动工作表生效，核心问题是未明确指定Cells所属的工作表对象：

• VBA中，单独使用Cells、Range这类对象时，默认指向当前活动工作表，所以遍历Worksheets循环时，实际始终在操作激活的那张表。
• 你测试的Range("A1")="Yes"能作用于所有表，应该是你在循环里给它加了工作表前缀（比如ws.Range("A1")），但当前代码里的Cells遗漏了这个关键前缀。

修复后的代码如下：

For Each ws In ThisWorkbook.Worksheets
    For j = 1 To 30
        ' 给Cells加上工作表对象ws的引用，明确指定操作当前循环的工作表
        If ws.Cells(6, j) = "text" Then
            MsgBox "工作表" & ws.Name & "的第6行第" & j & "列找到text"
        End If
    Next j
Next ws

额外优化建议：

• 增加工作表名称提示，方便定位找到目标内容的具体工作表
• 移除多余的Else分支，简化代码结构

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