フィルターでフラグを一括設定  Sub test()'   フィルターでフラグを一括設定    Dim WS As Worksheet  ···