【Excel VBA】Do While~Loopステートメントで条件を満たした時に同じ処理を繰り返す方法