【Excel VBA】Do~Loop While(Until)ステートメントで少なくとも1回は繰り返す処理を実行する方法