问题：已有“筛选”状态的表，要求取消“筛选”状态，因为我用VBA进行复制或删除或某些操作，可能会出问题，所以有此要求
    image.png
    代码一如下：

    1. '代码一
    2. Sub 取消筛选状态()
    3. '
    4. ' 取消“筛选”状态
    6.     If ActiveSheet.AutoFilterMode = True Then
    7.     Selection.AutoFilter
    8.     End If
    9. End Sub

    代码二如下：

    1. Sub 取消筛选状态()
    2. '
    3. ' 取消“筛选”状态
    5.     If ActiveSheet.AutoFilterMode = True Then
    6.     ActiveSheet.AutoFilterMode = False
    7.     End If
    8. End Sub

    完成
    image.png