Sub Sheet_フィルタを実行()
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
End If
ActiveCell.EntireRow.Select
ActiveSheet.Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.AutoFilter
ActiveCell.Select
End Sub

前へ 次へ