在过滤数据中选择范围- Excel VBA

Sub FilterAndSelectRange()
    Dim ws As Worksheet
    Dim rng As Range
    Dim filterRange As Range
    Dim filteredRange As Range
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置需要过滤的数据范围
    Set filterRange = ws.Range("A1:D10")
    
    ' 过滤数据
    filterRange.AutoFilter Field:=1, Criteria1:="Apple"
    
    ' 获取过滤后的数据范围
    Set filteredRange = filterRange.SpecialCells(xlCellTypeVisible)
    
    ' 取消过滤
    filterRange.AutoFilter
    
    ' 选择过滤后的数据范围
    filteredRange.Select
End Sub