利用VBA实现Excel的动态多条件自动筛选

以下是实现Excel自动筛选的VBA代码示例：

Sub DynamicFilter() Dim rng As Range Dim lastRow As Long Dim filterCriteria As Variant Dim filteredRange As Range Dim i As Long

'定义自动筛选的范围, 假设筛选区域在第一列，即A列 Set rng = ActiveSheet.Range("A1").CurrentRegion

'获取最后一行的行号 lastRow = rng.Rows.Count

'定义筛选条件数组，将筛选条件放在数组里即可 filterCriteria = Array("Apple", "Banana", "Grapes")

'循环筛选条件 For i = LBound(filterCriteria) To UBound(filterCriteria) '利用自动筛选方法，将当前筛选条件的数据筛选出来 rng.AutoFilter Field:=1, Criteria1:=filterCriteria(i)

'利用SpecialCells方法获取筛选后的数据范围
If filteredRange Is Nothing Then
    Set filteredRange = rng.Offset(1, 0).Resize(lastRow - 1, 1).SpecialCells(xlCellTypeVisible)
Else
    Set filteredRange = Union(filteredRange, rng.Offset(1, 0).Resize(lastRow - 1, 1).SpecialCells(xlCellTypeVisible))
End If

Next i

'清除筛选 rng.AutoFilter

'选中筛选后的数据范围 filteredRange.Select End Sub

代码中，我们首先定义了自动筛选的范围，在本例中是通过活动工作表中的第一列来定义。接下来定义了一个筛选条件数组，再循环筛选条件。在每次循环时，我们利用自动筛选方法，将当前筛选条件的数据筛选出来，并利用SpecialCells方法获取筛选后的数据范围。最后，我们使用Union方法将所有的筛选结果合并起来，