要在VBA中进行数据筛选，你可以使用以下几种方法：
使用AutoFilter方法
这是一个简单的方法，可以通过设置字段索引和条件来快速筛选数据。
示例代码：
```vba
Sub FilterData（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets（"Sheet1"）
Dim rng As Range
Set rng = ws.Range（"A1"）.CurrentRegion
rng.AutoFilter Field:=1, Criteria1:="筛选条件"
' 处理筛选结果
Dim filteredRange As Range
Set filteredRange = rng.SpecialCells（xlCellTypeVisible）
filteredRange.Copy Destination:=ws.Range（"D1"）
ws.AutoFilterMode = False
End Sub
```
使用条件筛选
你可以根据特定的条件来筛选数据，例如筛选出销售额超过1000的记录。
示例代码：
```vba
Sub FilterSales（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
ws.Range（"A1"）.AutoFilter Field:=2, Criteria1:=">1000"
End Sub
```
使用多条件筛选
如果你需要同时满足多个条件，可以使用AutoFilter方法结合多个条件进行筛选。
示例代码：
```vba
Sub MultiConditionFilter（）
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets（"Sheet1"）
ws.Range（"A1"）.AutoFilter Field:=1, Criteria1:=">1000"
ws.Range（"A1"）.AutoFilter Field:=3, Criteria1:="北区"
End Sub
```
使用AdvancedFilter方法
AdvancedFilter方法允许你根据一个或多个条件筛选数据，并将结果复制到指定的位置。
示例代码：
```vba
Sub AdvancedFilter（）
Dim ws As Worksheet
Dim filterRange As Range
Dim criteriaRange As Range
Dim outputRange As Range
Set ws = ThisWorkbook.Worksheets（"Sheet1"）
Set filterRange = ws.Range（"A1:D10"）
Set criteriaRange = ws.Range（"F1:H2"）
Set outputRange = ws.Range（"G1:G10"）
criteriaRange.Cells（1）.Value = "Apple"
criteriaRange.Cells（2）.Value = "Orange"
filterRange.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=criteriaRange, CopyToRange:=outputRange, Operator:=xlOr
End Sub
```
这些方法可以帮助你根据不同的需求在VBA中实现数据筛选。你可以根据自己的实际情况选择合适的方法，并根据需要修改代码中的工作表名称、范围、条件等参数。