Sub 文字列を変更() Dim 行番号 As Long For 行番号 = 2 To Cells(Rows.Count, 2).End(xlUp).Row Cells(行番号, 2).Value = DateValue(Cells(行番号, 2).Value) Next 行番号 End Sub