to Its :
tôi gủi cho bạn này sử dụng thử nha, nó không phải là giải pháp tốt nhất (bởi vì tôi là một tay nghiệp dư mà) nhưng nó giải quyết được vấn đề của bạn đó.
Trước hết bạn mở file excel của bạn ra và nhấn Alt-F11
Sau đó nhấn Insert/Module và dán doạn code vào là ... ok
Ví dụ :
Cột A1 của bạn có nội dung là : 1 Nguyễn Văn A 128A Đường số 5
Bạn muốn cột B1 của bạn là số nhà thì : =xuly(A1,3)
Bạn muốn cột B1 của bạn là tên đường thì : =xuly(A1,4)
Còn bác muốn ngắn gọn hay.Hì...hì.......Thì phải nhờ mấy bác đây rồi
-----------------------------------------------------------------------------------------------
Public Function kiemtraso(so)
If so > 0 And so < 9 Then
kiemtraso = True
Else
kiemtraso = False
End If
End Function
Public Function xuly(chuoi, kieuxuat)
Dim dodai
Dim stt, tencongty, diachi, tenduong, kytu
Dim i, j
i = 3
dodai = Len(chuoi)
Do While i < dodai
kytu = Mid(chuoi, i, 1)
If kiemtraso(kytu) Then
j = i
Do While i < dodai
kytua = Mid(chuoi, j, 1)
If kytua = " " Then
diachi = Mid(chuoi, i, j - i)
tenduong = Mid(chuoi, j + 1, dodai - j + 1)
Exit Do
Else
j = j + 1
End If
Loop
Exit Do
Else
i = i + 1
End If
Loop
If kieuxuat = 3 Then
xuly = diachi
ElseIf kieuxuat = 4 Then
xuly = tenduong
Else
xuly = ""
End If
End Function
-----------------------------------------------------------------------------------
k :thank :cool :il
