在VBA中，可以使用AutoFilter方法來實現快速篩選。以下是一個示例代碼，演示如何在VBA中使用AutoFilter方法：
Sub FilterData()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") '根據實際情況更改工作表名稱
'確定要篩選的數據范圍
Dim rng As Range
Set rng = ws.Range("A1").CurrentRegion '假設數據從A1開始
'應用篩選
rng.AutoFilter Field:=1, Criteria1:="篩選條件" '根據實際情況更改篩選條件和字段索引
'處理篩選結果
Dim filteredRange As Range
Set filteredRange = rng.SpecialCells(xlCellTypeVisible)
'在篩選結果上執行操作，例如復制到其他區域
filteredRange.Copy ws.Range("D1") '根據實際情況更改復制的目標區域
'關閉篩選
ws.AutoFilterMode = False
End Sub
請注意，上述代碼中的"篩選條件"和"字段索引"需要根據實際情況進行更改。此外，還可以根據需要在篩選結果上執行其他操作，例如刪除、移動、格式化等。
