v = ""for j=2 to 4 'B\c\d if cells(i,j)=4 or cells(i,j)=5 then v="真" exit for end ifnext jif v<>"" then cells(i,5) = v 'Ei
