VBA遍历工作表未识别排除参数问题排查

你的代码之所以失效，核心是过度依赖Select、Selection和ActiveSheet——这些操作只会作用在当前激活的工作表上，完全没用到循环里的ws对象。这就导致：

• 激活"Names"表时，循环里的操作会错误改到它身上
• 激活其他表时，所有循环步骤都只会重复操作这个激活的表，根本没遍历其他目标表

直接通过ws对象绑定目标工作表，彻底抛弃Select和ActiveSheet：

Dim ws As Worksheet
    
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Names" Then
        ' 开启自动筛选，筛选第4列为空的行
        ws.Rows("1:1").AutoFilter
        ws.Range("$A$1:$Q$19").AutoFilter Field:=4, Criteria1:="="
        
        ' 删除第2行开始的筛选结果区域
        ws.Range(ws.Rows("2:2"), ws.Rows("2:2").End(xlToRight).End(xlDown)).Delete Shift:=xlUp
        
        ' 关闭第4列的筛选状态
        ws.Range("$A$1:$Q$16").AutoFilter Field:=4
        
        ' 删除G列及右侧所有列
        ws.Range(ws.Columns("G:G"), ws.Columns("G:G").End(xlToRight)).Delete Shift:=xlToLeft
        
        ' 若需要定位到J15，同样绑定ws对象（不需要可直接删除此行）
        ws.Range("J15").Select
    End If
Next ws

• 所有单元格、行、列操作都加了ws.前缀，明确指定要操作的工作表，循环到哪个表就处理哪个表
• 删掉了冗余的Select和Selection，既解决了遍历失效的问题，还能让代码跑得更快
• 不管当前激活的是哪个表，都会自动跳过"Names"，只处理其他工作表

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