Excel VBA 質問スレ Part66

[0231 デフォルトの名無しさん 2020/05/23(土) 23:51:24.02 ID:GhgCxwTJ]

>>225

Sub Test()

Dim cnt As Long
Dim da As Date

For cnt = 2 To Cells(Rows.Count, 2).End(xlUp).Row
da = CDate(Cells(cnt, 2))
Range("B" & cnt) = da
Next cnt

End Sub