二重ループを活用すれば短縮できそうですね 二重ループとはFOR〜NEXTの中に別のFOR〜NEXTを入れて効率よくループする方法です