如何在VBA中添加数组过滤器？

Sub FilterArray()
    Dim arr() As Variant
    Dim filteredArr() As Variant
    Dim filterValue As Variant
    Dim i As Integer
    Dim j As Integer
    
    ' 假设原始数组为arr，这里只是一个示例，可以根据实际情况修改
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    
    ' 设置过滤条件，这里只是一个示例，可以根据实际情况修改
    filterValue = 5
    
    ' 遍历原始数组，将符合条件的元素添加到过滤后的数组中
    For i = LBound(arr) To UBound(arr)
        If arr(i) = filterValue Then
            ReDim Preserve filteredArr(j)
            filteredArr(j) = arr(i)
            j = j + 1
        End If
    Next i
    
    ' 输出过滤后的数组
    For i = LBound(filteredArr) To UBound(filteredArr)
        Debug.Print filteredArr(i)
    Next i
End Sub