質問: worksheets("転記元").cells(i, "a") end if next i end sub
回答: 安易に教えて頂いたコードを理解せず、全く仕様の違う要件に同じコードで適用する事が問題です。 前回の仕様と今回の仕様の違いを認識することから行って下さい。 ヒント:(1)転記開始行が異なるので「i」は共有できない、(2)転記先の開始は7行目→13行目→19行と改行幅は「6」という事です。