質問: r.value end sub
回答: こんにちは ご説明の文章がほとんど理解できませんけれど・・・ >日付けが消えてしまいます。 理由として考えられるのは、 >set r = range(cells(1, 1), cells(rows.count, 1).end(xlup)).offset(1, r.column - 1) で、a1セルを含む範囲に対して、その後の操作を行っているので、処理の結果として消えるのでは? (a2の値とsheet1の内容によって、a1セルの値が書き換えられています)