れいさん、ありがとうございます。 FOR文を取ったら本当に速くなりました。しかもほぼ2倍速です。 いろいろ試してみるのが一番なんですね。 (更新後:A8N4R6)