Excel VBA宏问题：多列筛选错误及邮件宏优化需求

以下是修正后的宏，解决了原代码误选Check in date列的问题，实现对MasterLog工作表的正确筛选逻辑：

Sub filter_multiple()
    Dim ws As Worksheet
    Dim colCompletionDate As Integer
    Dim colStatus As Integer
    
    ' 指定目标工作表
    Set ws = ThisWorkbook.Worksheets("MasterLog")
    
    ' 取消现有筛选（如果存在）
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 找到Completion Date和Status列的索引（假设表头在第1行）
    colCompletionDate = ws.Rows(1).Find(What:="Completion Date", LookIn:=xlValues, LookAt:=xlWhole).Column
    colStatus = ws.Rows(1).Find(What:="Status", LookIn:=xlValues, LookAt:=xlWhole).Column
    
    ' 应用筛选：Completion Date包含空白值，Status为In Queue或Completed
    ws.Range("A1").AutoFilter Field:=colCompletionDate, Criteria1:="=", Operator:=xlOr, Criteria2:="<>"
    ws.Range("A1").AutoFilter Field:=colStatus, Criteria1:="In Queue", Operator:=xlOr, Criteria2:="Completed"
    
    ' 可选：直接调用已有的邮件发送宏
    ' EmailActiveSheet
End Sub

关键修正点说明： #

• 列定位修正：通过Find方法精准定位Completion Date列，替代原代码中错误指向Check in date列的逻辑
• 筛选条件设置：
  • 对Completion Date列，用Criteria1:="="匹配空白值，结合Operator:=xlOr和Criteria2:="<>"确保保留该列所有条目（含空白）
  • 对Status列，明确指定筛选值为In Queue和Completed
• 前置处理：先取消现有筛选，避免叠加筛选导致的逻辑混乱

替换原filter_multiple宏代码后，运行该宏再调用EmailActiveSheet宏，即可完成筛选+邮件发送的完整流程。

内容的提问来源于stack exchange，提问作者James M.