Excel VBA 質問スレ Part66

■ このスレッドは過去ログ倉庫に格納されています
231デフォルトの名無しさん2020/05/23(土) 23:51:24.02ID: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

■ このスレッドは過去ログ倉庫に格納されています