ある程度うまく行ったかな、と思っていたのに、何回かステップを踏むうちに、やっぱり変なところがある。どこがいけないんだろう、と何度も見直す。途中途中の計算を書き出したり、電卓で計算したりしてみる。おかしいなあと20回ぐらい繰返すと、突然、あれ？なんでここはこうなっているんだ？というところが出てくる。見つけてみると、なんで見つからなかったんだ？と唖然とする。そんな事ばっかり。
修正したところ
CQ = Range("a37").Offset(JouG, JouR)
を
CQ = Range("a37").Offset(Jou, DR1)
に。
これで、各ステップは大丈夫、、、、なはず。
