質問: DateAdd("y", -365, Cells(r, 1)) End If Next r で良いのでしょうか? テストでは前年の同月同日を表示できておりますが、これで間違いないのか自信がなくて・・・。
回答: DateAdd("yyyy", -1, Cells(r, 1)) の方がいい気がしますね。365日前だとうるう年で結果が違いますし。