文字列を変更

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