为什么在VBA中删除筛选器时，已删除的行会重新出现在excel表中？

Sub DeleteFilteredRows()
    Dim rng As Range
    Dim row As Range
    
    ' 获取当前筛选的范围
    Set rng = ActiveSheet.AutoFilter.Range
    
    ' 确保有筛选器存在
    If rng Is Nothing Then Exit Sub
    
    ' 确保有筛选器应用于行
    If rng.Rows.Count <= 1 Then Exit Sub
    
    ' 循环遍历筛选器中的每一行
    For Each row In rng.Rows
        ' 检查行是否被筛选隐藏
        If row.Hidden = False Then
            ' 如果行没有被隐藏，则删除该行
            row.Delete
        End If
    Next row
    
    ' 关闭筛选器
    ActiveSheet.AutoFilterMode = False
End Sub