在VBA中，可以使用AutoFilter方法來篩選出滿足條件的數據。以下是一個示例代碼，演示如何使用AutoFilter方法篩選出某一列中值大于10的數據：
Sub FilterData()
Dim ws As Worksheet
Dim rng As Range
'設置工作表對象
Set ws = ThisWorkbook.Worksheets("Sheet1")
'設置篩選范圍，這里假設數據在A1:D10范圍內
Set rng = ws.Range("A1:D10")
'開啟自動篩選
rng.AutoFilter
'篩選指定列（假設篩選條件在第3列）
rng.AutoFilter Field:=3, Criteria1:=">10"
'關閉自動篩選
rng.AutoFilterMode = False
End Sub
在上面的代碼中，首先使用Set語句將工作表對象和篩選范圍的Range對象設置好。然后使用AutoFilter方法開啟自動篩選，并指定要篩選的列和條件。最后使用AutoFilterMode屬性關閉自動篩選。
你可以根據自己的需求修改代碼中的工作表、篩選范圍、列和條件。
