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