求助：编写宏在多列筛选企业邮箱（含AdvancedFilter报错问题）

原代码的问题 #

1. CriteriaRange:=(*mydomain.com) 语法完全错误：CriteriaRange 参数必须指向一个单元格区域，不能直接写通配符。
2. AdvancedFilter 要求筛选区域的标题是单行，但你的标题在10-11行，直接用会导致无法识别标题，筛选失效。

方案一：辅助列+Autofilter（简单易维护） #

通过添加辅助列判断每行是否包含目标邮箱，再基于辅助列筛选：

Sub FilterCorporateEmails()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim helperCol As Range
    
    Set ws = Sheets(2)
    
    ' 清除现有筛选
    If ws.FilterMode Then ws.ShowAllData
    
    ' 获取数据最后一行（动态适配，若数据少于13行则默认到100行）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If lastRow < 13 Then lastRow = 100
    
    ' 用最后一列CP作为辅助列（可替换为其他空白列）
    Set helperCol = ws.Range("CP10:CP" & lastRow)
    
    ' 对齐原标题行，设置辅助列标题
    ws.Range("CP10").Value = "是否包含企业邮箱"
    ws.Range("CP11").ClearContents
    
    ' 写入判断公式：检查当前行任意列是否包含目标邮箱
    ws.Range("CP13:CP" & lastRow).Formula = _
        "=SUMPRODUCT(--(ISNUMBER(SEARCH(""@mydomain.com"",A13:CO13))))>0"
    
    ' 基于辅助列筛选符合条件的行
    ws.Range("A10:CP" & lastRow).AutoFilter Field:=ws.Columns("CP").Column, Criteria1:="TRUE"
    
    ' 可选：隐藏辅助列，不影响原有视图
    ws.Columns("CP").Hidden = True
End Sub

方案二：直接循环行判断（无需辅助列） #

不想加辅助列的话，直接遍历每行检查是否存在目标邮箱，隐藏不符合的行：

Sub FilterCorporateEmails_NoHelper()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim hasEmail As Boolean
    Dim cell As Range
    
    Set ws = Sheets(2)
    
    ' 清除现有筛选和隐藏行
    If ws.FilterMode Then ws.ShowAllData
    ws.Rows.Hidden = False
    
    ' 获取数据最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If lastRow < 13 Then lastRow = 100
    
    ' 遍历每行数据（从13行开始）
    For i = 13 To lastRow
        hasEmail = False
        ' 遍历当前行的所有列（A到CO）
        For Each cell In ws.Range("A" & i & ":CO" & i)
            ' 不区分大小写检查是否包含目标邮箱后缀
            If InStr(1, cell.Value, "@mydomain.com", vbTextCompare) > 0 Then
                hasEmail = True
                Exit For ' 找到就停止检查当前行的其他列
            End If
        Next cell
        
        ' 没有找到则隐藏该行
        If Not hasEmail Then
            ws.Rows(i).Hidden = True
        End If
    Next i
End Sub

注意事项 #

• 把代码中的@mydomain.com替换成你的实际企业邮箱后缀
• 方案一中的辅助列如果和现有数据列冲突，可换成其他空白列（比如CQ、CR等）
• 方案二适合数据量不大的场景（比如几百行），数据量很大时推荐用方案一

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