Nhờ hướng dẫn cách lọc dữ liệu (1 người xem)

[hungtv2002]

Nhờ các bác chỉ dùm.
Em có một file dữ liệu (đính kèm). Em muốn lọc dữ liệu nhưng tên lại hoàn toàn không giống nhau: Ví dụ: Prime Vinh phuc và CT CP Prime Vinh Phuc. Vậy em muốn lọc tất cả các khách hàng có tên gần giống nhau có được không? Thank các bác....

 

[MinhCong]

Nhờ các bác chỉ dùm.
Em có một file dữ liệu (đính kèm). Em muốn lọc dữ liệu nhưng tên lại hoàn toàn không giống nhau: Ví dụ: Prime Vinh phuc và CT CP Prime Vinh Phuc. Vậy em muốn lọc tất cả các khách hàng có tên gần giống nhau có được không? Thank các bác....

Bạn xem file có đúng ý chưa nhé!

 

[concogia]

Bạn xem file có đúng ý chưa nhé!

Hihi, thêm một tên "chui" vào con đường đau khổ nữa "zồi", có tí ti vấn đề "zí" code của bạn:
- Sheets("Loc").Range("A3:J5000").Clear ==> đang đứng ở Sheet Loc ==>khai báo như trên hơi bị "dờ ư dư" , tương tự 2 chỗ ở dưới
- Lọc tới đó sao không sử lý "thằng" Số thứ tự luôn, mình đề nghị thêm tí tẹo này:

Sub Locdulieu1()
  Range("A3:J5000").Clear
    With Sheets("data").Range("A4:I2000")
       .AutoFilter Field:=2, Criteria1:="*" & Range("C1") & "*"
       .SpecialCells(xlCellTypeVisible).Copy Range("A3")
       .AutoFilter
    End With
    Range([a4], [a4].End(xlDown)) = [row(a:a)]
End Sub

(Có thể cuối tháng 11 mình lại ra chơi "zí" Minhcong, híc)

 

[MinhCong]

Hihi, thêm một tên "chui" vào con đường đau khổ nữa "zồi", có tí ti vấn đề "zí" code của bạn:
- Sheets("Loc").Range("A3:J5000").Clear ==> đang đứng ở Sheet Loc ==>khai báo như trên hơi bị "dờ ư dư" , tương tự 2 chỗ ở dưới
- Lọc tới đó sao không sử lý "thằng" Số thứ tự luôn, mình đề nghị thêm tí tẹo này:

Sub Locdulieu1()
  Range("A3:J5000").Clear
    With Sheets("data").Range("A4:I2000")
       .AutoFilter Field:=2, Criteria1:="*" & Range("C1") & "*"
       .SpecialCells(xlCellTypeVisible).Copy Range("A3")
       .AutoFilter
    End With
    Range([a4], [a4].End(xlDown)) = [row(a:a)]
End Sub

(Có thể cuối tháng 11 mình lại ra chơi "zí" Minhcong, híc)

Hì hì, E mới tập tành mà, dần dần học hỏi mấy đàn anh đi trước sẽ hoàn thiện hơn. Còn cái xử lý số thứ tự Em chưa biết nên hổng xử nó được. Giờ học hỏi ông anh thêm 1 cánh "xử" nữa rồi.
(Khi nào ra Anh điện Em nhé, lần nay "xử" tới bến luôn đó)

 

[boyxin]

Mượn file của MinhCong,

Bạn xem file có đúng ý chưa nhé!

bổ sung thêm ý kiến của concogia

Hihi, thêm một tên "chui" vào con đường đau khổ nữa "zồi", có tí ti vấn đề "zí" code của bạn:
- Sheets("Loc").Range("A3:J5000").Clear ==> đang đứng ở Sheet Loc ==>khai báo như trên hơi bị "dờ ư dư" , tương tự 2 chỗ ở dưới
- Lọc tới đó sao không sử lý "thằng" Số thứ tự luôn, mình đề nghị thêm tí tẹo này:

Sub Locdulieu1()
  Range("A3:J5000").Clear
    With Sheets("data").Range("A4:I2000")
       .AutoFilter Field:=2, Criteria1:="*" & Range("C1") & "*"
       .SpecialCells(xlCellTypeVisible).Copy Range("A3")
       .AutoFilter
    End With
    Range([a4], [a4].End(xlDown)) = [row(a:a)]
End Sub

(Có thể cuối tháng 11 mình lại ra chơi "zí" Minhcong, híc)

Chỉnh sửa, chế biến, Góp 2 phương thức (dùng để tham khảo)