如何在Excel中对多个工作表应用相同的筛选条件？

对我们来说，在工作表中使用筛选功能来筛选数据可能很容易，但有时您可能需要跨多个具有相同数据格式的工作表进行筛选。逐个筛选会浪费大量时间，这里我可以介绍一种简单的方法一次性解决这个问题。

使用VBA代码对多个工作表应用相同的筛选条件

使用VBA代码对多个工作表应用相同的筛选条件

例如，我有四个工作表，如下截图所示，需要根据相同的筛选条件（产品 = KTE）一次性进行筛选。

在Excel中没有直接的方法可以对多个工作表中的数据进行筛选，但以下VBA代码可以帮助您完成此任务，请按照以下步骤操作：

1. 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：对多个工作表应用相同的筛选条件：

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. 然后按 F5 键运行此代码，所有KTE产品都会立即在所有工作表中被筛选出来，见截图：

注意：在上述代码中，xWs.Range("A1").AutoFilter 1, "=KTE" 脚本中，A1 和 =KTE 表示您要基于其进行筛选的列和条件，数字1是您基于其筛选的列号，您可以根据需要更改它们。例如，如果您想筛选订单大于50的数据，只需将此脚本修改为：xWs.Range("B1").AutoFilter 2, ">50"。