Excel VBA 質問スレ Part67

[781 デフォルトの名無しさん (ﾄﾞｺｸﾞﾛ MM9a-kmLJ) 2020/08/03(月) 23:40:17.65 ID:hUMORhdPM]

forなんて使わなくてもいいんじゃね

Sub test()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(i + 1, 1), Cells(i + 150, 1)) = Date
End Sub