Sub フィルターを解除する()

    ActiveSheet.AutoFilterMode = False

End Sub