Sub Tach_()
Dim Nguon, Dong As Long
Dim Chuoi, Mang
Dim Kq
Dim i, j, k
With Sheet1
Nguon = .Range("b3", .Range("b3").End(xlDown))
Dong = UBound(Nguon)
ReDim Kq(1 To Dong, 1 To 3)
For i = 1 To Dong
Chuoi = Replace(Nguon(i, 1), ",", "")
Mang = Split(Chuoi)
For j = UBound(Mang) To 0 Step -1
If IsNumeric(Mang(j)) = True Then
Kq(i, 1) = Mang(j)
Exit For
End If
Next j
k = InStr(Nguon(i, 1), Kq(i, 1)) + Len(Kq(i, 1))
Chuoi = Trim(Right(Nguon(i, 1), Len(Nguon(i, 1)) - k))
Mang = Split(Chuoi, ",")
Kq(i, 2) = Right(Mang(0), Len(Mang(0)) - InStrRev(Mang(0), " "))
If UBound(Mang) = 1 Then
Kq(i, 3) = Right(Mang(1), Len(Mang(1)) - InStrRev(Mang(1), " "))
End If
Next i
.Range("g3").Resize(UBound(Kq), UBound(Kq, 2)).ClearContents
.Range("g3").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
End With
End Sub
