Excel VBA查找目标列并按文本筛选的代码失效排查

你的代码共有4处明确的编写疏漏，会直接导致运行报错或匹配结果不符合预期：

• 通配符规则设计缺陷："T*M*"的匹配范围过宽，所有以T开头、任意位置包含M的字符串都会被命中，比如"Team Member"、"Time"这类无关表头会被误识别，无法精准匹配"TM"或"Team Manager"。
• 无匹配结果时无容错处理：WorksheetFunction.Match在找不到目标值时会直接抛出运行时错误，代码会直接崩溃退出，没有提示或分支处理逻辑。
• 行计数引用未绑定工作表：Rows.Count没有指定归属的工作表对象，跨工作簿/跨表操作时会读取其他表的总行数，导致最后一行行号计算错误，筛选范围错位。
• 未重置已有筛选状态：如果工作表之前已经开启了筛选，直接调用AutoFilter会叠加旧的筛选条件，甚至出现筛选区域不覆盖全量数据的问题。

修正后可直接运行的代码 #

Option Explicit

Sub FindMatt()
    Dim ws As Worksheet
    Dim LastRow As Long, col As Variant
    Const login = "matroux"
    
    Set ws = ActiveSheet
    ' 清除已有筛选状态
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 精准匹配两种表头，避免通配符误判
    col = Application.Match("TM", ws.Range("3:3"), 0)
    If IsError(col) Then
        col = Application.Match("Team Manager", ws.Range("3:3"), 0)
        If IsError(col) Then
            MsgBox "第3行未找到TM/Team Manager列，请检查表头", vbExclamation
            Exit Sub
        End If
    End If
    
    ' 绑定工作表取最后一行，避免引用错误
    LastRow = ws.Cells(ws.Rows.Count, col).End(xlUp).Row
    
    ' 执行筛选
    ws.Range(ws.Cells(3, col), ws.Cells(LastRow, col)).AutoFilter Field:=1, Criteria1:=login
End Sub

如果后续还有其他表头缩写需要兼容，直接新增Match判断分支即可，不要使用无边界的通配符匹配规则。

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