EXCEL VBA：如何在多个工作表中过滤相同的列标题

Question

我正在尝试在 10 个工作表中筛选标有“日期”的列。每个工作表的“日期”列可能不在同一列位置。

是否有一个宏或代码可以让我通过一个简单的按钮按下来过滤“日期”列？而不是去每个单独的工作表和单独过滤..

我只会在同一日期过滤所有工作表。例如，如果我想过滤“2021 年 9 月 3 日”，我会转到每个工作表并找到“日期”列并手动过滤 10 次。

Answer 1

如果您将两个简单的单元格添加到包含header text 和value you want to filter 的一张工作表中，则可以使用以下代码来实现预期结果。

例如我的标题名为"Date"，所以在我的first sheet 中我在A3 中写了"Date"，并且我想过滤到A4 中的日期。请记住，由于我们在 first row 中搜索 "Date" 标头，因此我们应该将所谓的 Criteria Range 标头放在另一行中，或者由于我们的搜索以第一次出现结束，我们可以将新标头添加到其中一个我们original Date column之后的列。

注意：

Criteria Range 表格标题必须与目标选择标题完全类似，才能正常工作。所以这里我一栏一页眉，我只选择了日期栏。

Sub Test()
Dim Rng As Range
    For i = 1 To 4
        With Sheets(i).Range("A1:Z1")
        Set Rng = .Find(What:="Date", _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                '################################# New Part ▼
                ' R will be the address of the found column in Range format (e.g. "F1")
                R = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
                Dim rgData As Range, rgCriteria As Range

                ' rgCriteria is the two cells Criteria Range
                Set rgCriteria = Sheets(1).Range("A3:A4")

                ' these next two lines are adding the Date column range to rgData
                LastRow = Sheets(i).Cells(Rows.Count, Rng.Column).End(xlUp).Row
                Set rgData = Sheets(i).Range(Sheets(i).Range(R), Sheets(i).Cells(LastRow, Rng.Column))

                ' since I was disappointed in AutoFilter I used Advanced Filter and its even faster
                rgData.AdvancedFilter xlFilterInPlace, rgCriteria
                '################################# New Part ▲
            Else
                MsgBox "Nothing found"
            End If
        End With
    Next i
End Sub   

就是这样！

参考资料：

○ - 感谢this Excel Macro Mastery channel video。请务必观看它以更好地理解我写的内容。

Answer 2

您可以通过在该行（例如每张纸的第一行）中搜索“日期”一词来找到“日期”列（我假设有一行包含“日期”一词）。然后您可以将列号提供给您的过滤子并获得您的过滤结果。

第一种方式

Sub Test()
    For i = 1 To 10
        For j = 1 To 50
            If Worksheets(i).Cells(1, j).Value = "Date" Then
                ' here goes your filtration procedure on j column
                Exit For
            End If
        Next j
    Next i
End Sub

其中i 是工作表的数量，j 是找到的列（在前 50 列中）

第二种方式（更快的方式）

使用@BigBen 建议的Range.Find，因为：

逐个单元循环缓慢且低效

Sub Test()
Dim Rng As Range
    For i = 1 To 5
        With Sheets(i).Range("A1:Z1")
        Set Rng = .Find(What:="Date", _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                ' here goes your filtration procedure on (Rng.Column)
            Else
                MsgBox "Nothing found"
            End If
        End With
    Next i
End Sub

其中i 是工作表的数量，Rng.Column 是找到的列（在 A1:Z1 范围内）

参考文献：

1. Microsoft Docs 页面为Range.Find 方法
2. 如果需要，还有另一个 Microsoft Docs 页面 使用Application.Match方法