Public Sub Tach()
Dim Nguon, Tam, Vt, kq(), r As Long, c As Long, cl As Integer
On Error Resume Next
Nguon = Sheet1.Range("D5", Sheet1.Range("D65000").End(xlUp))
ReDim kq(1 To UBound(Nguon), 2)
For r = 1 To UBound(Nguon)
Tam = Split(Nguon(r, 1))
Vt = Len(Tam(0))
For c = 1 To UBound(Tam)
Vt = Vt + Len(Tam(c)) + 1
If Len(Tam(c)) > 1 Then
If LCase(Right(Tam(c), Len(Tam(c)) - 1)) <> Right(Tam(c), Len(Tam(c)) - 1) Then
For cl = Len(Tam(c)) To 2 Step -1
If LCase(Mid(Tam(c), cl, 1)) = Mid(Tam(c), cl, 1) Then
Vt = Vt - 1
Else
Exit For
End If
Next cl
kq(r, 1) = Left(Nguon(r, 1), Vt - 1)
kq(r, 2) = Right(Nguon(r, 1), Len(Nguon(r, 1)) - Vt + 1)
kq(r, 0) = kq(r, 1) & " " & kq(r, 2)
Exit For
End If
End If
Next c
If Vt = Len(Nguon(r, 1)) Then kq(r, 0) = Nguon(r, 1)
Vt = 0
Next r
Sheet1.Range("F5", Sheet1.Range("H65000")).ClearContents
Sheet1.Range("F5").Resize(UBound(kq), UBound(kq, 2) + 1) = kq
Sheet1.Range("F5").Resize(UBound(kq), UBound(kq, 2) + 1).Columns.AutoFit
End Sub
. 
