Máy mình bị ẩn chữ trong Excell?

Đầu tiên bạn Define name cho vùng cần tách là DS (ví dụ từ A5:A100)
Sau khi đã có dử liệu trong vùng này thì chạy code:
PHP Code:

Sub TACH()
Dim Er As Integer
Dim Tach1 As String, Tach2 As String
Dim Clls As Range
On Error Resume Next
For Each Clls In Range("DS")
If Clls = "" Then
Cells(Clls.Row, Clls.Column + 1) = ""
Else:
VT = Application.WorksheetFunction.Find(" ", Clls, 1)
Tach1 = Right(Clls, Len(Clls) - VT)
Tach2 = Left(Clls, VT - 1)
Clls.Value = Tach1
Cells(Clls.Row, Clls.Column + 1).Value = Tach2
End If
Next
End Sub

Mai này bạn có thể đặt vùng nhập liệu bất cứ đâu (miễn sao Define name nó tên là DS) thì mã sẽ dc tách ra nằm ở cột cạnh bên