Excel VBA 質問スレ Part54

[133 デフォルトの名無しさん 2018/06/04(月) 03:29:47.34 ID:6ovK7Hcq]

>>132
r = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 1) = DateValue(Date) Then r = r - 1