Sub Macro4()

If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.AutoFilterMode = False
[A1].Select
Selection.AutoFilter
End If

End Sub

Sub test()
If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.ShowAllData
End If
End Sub

Dim i&, j&, k&, p&, rng, rng1, ary()
Dim arr As Range
Dim clm_d As Integer
    Dim mycell As Range
    Dim Nodupes As New Collection
    Dim rngOp As Range
    Dim num()

    Set shtop = ActiveSheet
    MsgBox shtop.AutoFilterMode
   
    clm_d = Application.InputBox(prompt:="请选择作为拆分条件的列" _
    & Chr(13) & "注意：" & Chr(13) & "1、拆分区域需要有标题行！" & Chr(13) & "2、直接 _输入列号，不要用鼠标选取", Type:=1)
    If clm_d = False Then Exit Sub
        On Error Resume Next
       
        Application.ScreenUpdating = False