作ったコードは以下のようなもの。 ３つの部分に分けた。 シートのセルを変数にしたし、繰り返しもfor－nextではなく、while－Loopにしたので、ほとんどDimは使わなかった。 この方がすっきりしている。 Sub step1() Dim Gran, Gran2 Range("b17") = Range("…