在VBA中，可以使用AutoFilter方法來實現快速篩選功能。AutoFilter方法可以根據指定的條件將數據表中的數據進行篩選，只顯示滿足條件的行。

下面是一個示例代碼，演示如何使用VBA實現快速篩選功能：

Sub FilterData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替換為你要操作的工作表名稱
    
    ' 確保篩選之前取消之前的篩選設置
    If ws.AutoFilterMode Then
        ws.AutoFilterMode = False
    End If
    
    ' 開啟篩選
    ws.Range("A1").AutoFilter
    
    ' 設置篩選條件
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="條件1", Operator:=xlAnd ' 替換為你的篩選條件和字段
    
    ' 或者使用以下方法設置多個篩選條件
    'ws.Range("A1").AutoFilter Field:=1, Criteria1:="條件1", Operator:=xlAnd
    'ws.Range("B1").AutoFilter Field:=2, Criteria1:="條件2", Operator:=xlAnd
    
    ' 或者使用以下方法設置動態的篩選條件
    'Dim criteria As Variant
    'criteria = Array("條件1", "條件2", "條件3")
    'ws.Range("A1").AutoFilter Field:=1, Criteria1:=criteria, Operator:=xlFilterValues
    
End Sub

在以上代碼中，首先通過指定工作表名稱來獲取工作表對象，然后使用AutoFilterMode屬性判斷工作表是否已經開啟了篩選功能，如果是則先取消之前的篩選設置。接下來使用AutoFilter方法開啟篩選，然后使用Field參數指定要篩選的字段，在Criteria1參數中指定篩選條件，在Operator參數中指定篩選條件的運算符。最后，使用AutoFilterMode屬性來關閉篩選功能。

你可以根據自己的需求修改以上代碼中的工作表名稱、篩選條件和字段。