VBA制作多条件筛选按钮，不筛选默认显示全部

要实现多条件筛选按钮，你可以使用 VBA 的 AdvancedFilter 方法。首先，需要在 Excel 表格中创建一个筛选区域，包含筛选条件和数据列。然后，在 VBA 中编写代码来执行筛选操作。

以下是一个示例代码，用于根据多个条件筛选数据：

Sub MultiCriteriaFilter()
    Dim criteriaRange As Range
    Dim dataRange As Range
    
    Set criteriaRange = Range("A1:B2") ' 设置筛选条件区域
    Set dataRange = Range("D1:E10") ' 设置数据区域
    
    ' 获取筛选条件
    criteria1 = criteriaRange.Cells(1, 1).Value
    criteria2 = criteriaRange.Cells(2, 1).Value
    criteria3 = criteriaRange.Cells(1, 2).Value
    criteria4 = criteriaRange.Cells(2, 2).Value
    
    ' 判断是否有筛选条件
    If criteria1 = "" And criteria2 = "" And criteria3 = "" And criteria4 = "" Then
        ' 如果没有筛选条件，则显示所有数据
        dataRange.AutoFilter
    Else
        ' 如果有筛选条件，则执行筛选操作
        dataRange.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=criteriaRange, _
        Unique:=False
    End If
End Sub

在这个示例中，我们使用了一个名为 “criteriaRange” 的 Range 对象来存储筛选条件，包括四个条件：A1 和 A2 单元格中的条件 1 和条件 2，以及 B1 和 B2 单元格中的条件 3 和条件 4。我们还使用了一个名为 “dataRange” 的 Range 对象来存储要筛选的数据，包括 D1 和 E10 之间的单元格。

代码的主要部分是使用 AdvancedFilter 方法来执行筛选操作。如果没有任何筛选条件，则该方法将显示所有数据。如果有一个或多个筛选条件，则该方法将根据条件筛选数据。

你可以将此代码与一个按钮关联，这样用户就可以在单击按钮时执行筛选操作。