dim p[10000] pl=○ for i=0 to pl if p[i] then continue else bf=1:break next if bf then 処理'bfを使いたくない場合はi!=plでイケると思う こんな感じでしょうか ☆試してない