VBA中的Filter()函數主要用于從數組或字符串中篩選出符合指定條件的元素，并返回一個新的數組或字符串。

語法： Filter(SourceArray, Match, [Include], [Compare])

參數說明：

• SourceArray：必選參數，表示要篩選的數組或字符串。
• Match：必選參數，表示要匹配的條件。可以是一個字符串、數字或布爾值。如果SourceArray中的元素與Match相等，則會被返回。
• Include：可選參數，表示要包含或排除的元素。默認值為True，即返回與Match相等的元素；如果為False，則返回與Match不相等的元素。
• Compare：可選參數，表示比較模式。默認值為vbBinaryCompare，表示使用二進制比較；如果為vbTextCompare，則表示使用文本比較。

返回值： 返回一個新的數組或字符串，其中包含了符合條件的元素。

示例： 以下示例演示了Filter()函數的使用方法：

Sub TestFilter()
    Dim arr() As Variant
    arr = Array("apple", "banana", "grape", "orange", "lemon")
    
    Dim filteredArr() As Variant
    filteredArr = Filter(arr, "a", True, vbTextCompare)
    
    Dim i As Integer
    For i = LBound(filteredArr) To UBound(filteredArr)
        Debug.Print filteredArr(i)
    Next i
End Sub

輸出結果：

apple
banana
grape

以上示例中，首先定義了一個數組arr，并將其賦值為包含了若干水果名稱的數組。然后使用Filter()函數，將數組arr中包含字母"a"的元素篩選出來，并將篩選結果存儲在filteredArr數組中。最后，使用For循環遍歷filteredArr數組，并打印每個元素的值。輸出結果為篩選出的包含字母"a"的水果名稱。