Excel VBA 如何跨多个工作表统一筛选列标题为Date的列

实现逻辑 #

• 自动遍历当前工作簿内所有工作表
• 逐表定位列标题为Date的列位置，无需提前固定列号
• 统一为所有表的Date列设置相同的筛选日期，自动跳过没有Date列的工作表
• 自动处理已有筛选的情况，避免报错

完整VBA代码 #

Sub BatchFilterDateColumn()
    Dim ws As Worksheet
    Dim dateCol As Range
    Dim targetDate As Date
    
    ' 在这里设置需要筛选的目标日期，参数依次为年、月、日
    targetDate = DateSerial(2021, 9, 3)
    
    ' 遍历工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 清除工作表原有筛选，避免报错
        If ws.AutoFilterMode Then ws.AutoFilterMode = False
        
        ' 定位标题行中值为"Date"的列，若标题行不是第1行，可修改下面的Rows(1)为对应行号
        Set dateCol = ws.Rows(1).Find(What:="Date", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
        
        ' 仅当找到Date列时执行筛选
        If Not dateCol Is Nothing Then
            ws.UsedRange.AutoFilter Field:=dateCol.Column, Criteria1:="=" & targetDate, Operator:=xlAnd
        End If
    Next ws
    
    MsgBox "批量筛选完成！", vbInformation
End Sub

使用步骤 #

• 打开需要操作的Excel工作簿，按下Alt + F11打开VBA编辑器
• 右键点击左侧工程资源管理器中的当前工作簿名称，选择「插入」-「模块」
• 将上方代码粘贴到模块编辑窗口中
• 按需修改代码中的目标日期、标题行号等参数
• 按下F5运行代码即可完成所有工作表的批量筛选

自定义调整说明 #

• 若需要筛选日期范围，可以修改筛选参数，例如筛选2021年9月1日到9月3日的日期，可将筛选行替换为：

  ws.UsedRange.AutoFilter Field:=dateCol.Column, Criteria1:=">=" & DateSerial(2021,9,1), _
  Operator:=xlAnd, Criteria2:="<=" & DateSerial(2021,9,3)
  

• 如果列标题是中文「日期」，把代码中What:="Date"的Date替换为「日期」即可

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