select case a
case "あ","い","う","え","お"
cells (i,j) = "OK"
end select