如何在Excel VBA中根据单元格列表过滤不等于的数据

Sub FilterData()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim filterValue As String
    
    ' 设置工作表和要过滤的范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:A10") ' 假设要过滤的范围是A1:A10
    
    ' 设置要过滤的值
    filterValue = "不等于的值"
    
    ' 循环遍历每个单元格，如果单元格的值不等于过滤值，则隐藏该行
    For Each cell In rng
        If cell.Value <> filterValue Then
            cell.EntireRow.Hidden = True
        End If
    Next cell
End Sub