阅读量:2
在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属性关闭自动筛选。
你可以根据自己的需求修改代码中的工作表、筛选范围、列和条件。