フィルタを外す If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False End Ifフィルタから抽出条件をクリアする If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If