Kể ra dữ liệu mà nhiều(100000 data) với lại nhiều kiểu ấy và không có quy luật thì cũng mệt.
Góp vui bằng 1 hàm UDF:
Function Tach(ByVal Arr As Range) As String
Dim i&, j&, Lr&
Dim KQ(), S, Temp As String
With Sheet1
Temp = Replace(Replace(Replace(Arr, "-", " "), ":", " "), ".", " ")
S...