ai giúp mình lọc dữ liệu với

[chen44]

Hiện nay mình có 1 danh sách địa chỉ cần phân ra theo quận huyện. Nhưng địa chỉ này nó ghi lẫn lộn.
Ví dụ: 177 Cát Dài, Hải An, Hải Phòng.
Mình muốn phân cái địa chỉ này là quận hải an thì mình làm như thế nào. Xin lời giúp của các tiền bối. Mình xin cảm ơn !!!
Dưới đây là file đính kèm. Danh sách của mình thực tế có tầm gần 5000 người và thông tin.

 

[vanthinh3101]

Hiện nay mình có 1 danh sách địa chỉ cần phân ra theo quận huyện. Nhưng địa chỉ này nó ghi lẫn lộn.
Ví dụ: 177 Cát Dài, Hải An, Hải Phòng.
Mình muốn phân cái địa chỉ này là quận hải an thì mình làm như thế nào. Xin lời giúp của các tiền bối. Mình xin cảm ơn !!!
Dưới đây là file đính kèm. Danh sách của mình thực tế có tầm gần 5000 người và thông tin.

Mình biết dùng code để làm bài này thôi.
Bạn có thể tùy biến để phù hợp với file của bạn.

Sub GPE()
    Dim sArr(), dArr(), Tmp
    Dim I As Long, J As Long, K As Long
    sArr = Range("B6", Range("B6").End(xlDown)).Value
    ReDim dArr(1 To UBound(sArr, 1), 1 To 1)
    For I = 1 To UBound(sArr, 1)
        K = K + 1
        Tmp = Split(sArr(I, 1), ",")
        J = UBound(Tmp)
        If Trim(Tmp(J)) = "H" & ChrW(7843) & "i Phòng" Then
            dArr(K, 1) = Trim(Tmp(J - 1))
        Else
            dArr(K, 1) = Trim(Tmp(J))
        End If
    Next I
    Range("H6", Range("H6").End(xlDown)).ClearContents
    Range("H6").Resize(K) = dArr
End Sub

 

[PacificPR]

Hiện nay mình có 1 danh sách địa chỉ cần phân ra theo quận huyện. Nhưng địa chỉ này nó ghi lẫn lộn.
Ví dụ: 177 Cát Dài, Hải An, Hải Phòng.
Mình muốn phân cái địa chỉ này là quận hải an thì mình làm như thế nào. Xin lời giúp của các tiền bối. Mình xin cảm ơn !!!
Dưới đây là file đính kèm. Danh sách của mình thực tế có tầm gần 5000 người và thông tin.

Bạn thử xem file thử xem sao

 

[chen44]

Bạn thử xem file thử xem sao

đúng quá r b ơi. sao mình k copy dc mã đó vào file của minh dc nhỉ