Thank all so much, I try this vba it ok
Sub TtoC()
With Range("H2:H" & Cells(Rows.Count, "H").End(xlUp).Row)
.TextToColumns Destination:=Range("H2"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 5), TrailingMinusNumbers:=True
.NumberFormat = "mm/dd/yyyy"
End With
End Sub