InStr関数でフラグ一括設定  Sub test()'  InStr関数でフラグを一括設定    Dim WS As Worksheet  ···