'----- オートフィルターをかけている場合、フィルター解除 ----- 'FilterModeが「True」だったらフィルター解除 If Sheets("sheet1").FilterMode = True Then 'FilterModeが「True」だったら Sheets("sheet1").ShowAllData 'フィルター解除 End If