Lọc không trùng của 3 cột và Sort

[LuuAnh980]

Chào các anh chi!!!!
Em có file muôn nhờ các anh chị lọc không trùng của 3 cột và sau khi lọc xong thì sort từ nhỏ đến lớn luôn ạ.
Trong 3 cột có một số dòng rống, thì bỏ qua ạ.
Trong file em có ví dụ ạ.

 

[LuuAnh980]

Em tải file bài #39 vẫn còn MsgBox, và anh có thử gõ vào sheet1 như em đưa hình rồi chạy lọc thử xem sao ạ.

 

[Hoàng Tuấn 868]

Em tải file bài #39 vẫn còn MsgBox, và anh có thử gõ vào sheet1 như em đưa hình rồi chạy lọc thử xem sao ạ.
View attachment 282656

"vẫn còn MsgBox"
1/ Có thể ban nãy mình đưa lên nhầm file chưa bỏ Msgbox.

"như em đưa hình"
2/ Mình thì cứ gửi file, còn bạn cứ gửi ảnh. Khó đoán bệnh qua ảnh lắm.

 

[LuuAnh980]

File đây anh ơi Sheet1 em bôi vàng, sheet2 em bôi vàng .

 

[Hoàng Tuấn 868]

File đây anh ơi Sheet1 em bôi vàng, sheet2 em bôi vàng .

Bệnh này lang băm như mình chưa nghĩ ra thuốc chữa, chắc phải chờ Bác sĩ đầu ngành thôi bạn.

 

[LuuAnh980]

Lọc khó vậy anh , ca khó rồi, chắc lọc cùng loại chứ vừa chữ vừa số nó không được.
Cám ơn anh @Hoàng Tuấn 868 nhiều.
Không biết có bác sĩ nào giỏi không, vì đơn hàng của em vừa chữ vừa số.

 

[ptm0412]

Bệnh này lang băm như mình chưa nghĩ ra thuốc chữa, chắc phải chờ Bác sĩ đầu ngành thôi bạn.

Làm gì đến nỗi trả bệnh nhân về chờ chết?
Thay
md(k, j + 1) = mn(i, a(j))

bằng
md(k, j + 1) = "'" & mn(i, a(j))

--------
Tuy nhiên, theo tôi bài này dùng advanced filter cho nhẹ đầu

 

[Hoàng Tuấn 868]

Làm gì đến nỗi trả bệnh nhân về chờ chết?
Thay
md(k, j + 1) = mn(i, a(j))

bằng
md(k, j + 1) = "'" & mn(i, a(j))
--------
Tuy nhiên, theo tôi bài này dùng advanced filter cho nhẹ đầu

Cảm ơn anh nhiều, em nghĩ mãi không ra anh ạ.

 

[ptm0412]

Code Advanced filter và sort

Sub AdvFilter_Sort()
Dim LastRw As Long
With Sheet1
    For Each cll In .Range("G1:N1")
        If IsEmpty(cll.Value) Then cll.Value = cll.Address
    Next
    LastRw = .[E10000].End(xlUp).Row
    .Range("E1:O" & LastRw).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheet2.Range( _
            "W1:W2"), CopyToRange:=Sheet2.Range("G1:I1"), Unique:=True
End With
With Sheet2
    .Activate
    LastRw = .[G10000].End(xlUp).Row
    .Range("G1:I" & LastRw).Sort Key1:=.Range("G1"), Order1:=xlAscending, _
    Key2:=.Range("H1"), Order2:=xlAscending, Header:=xlYes
End With
End Sub

Kết quả có vẻ không loại trùng, nhưng thực ra dữ liệu sai: 1 dòng là text, 1 dòng là số. Nếu sửa dữ liệu gốc lại thì ra đúng.

 

[LuuAnh980]

Em có thử code của Thầy @ptm0412 đã giải quyết được các số mã 05/09,08/10 rồi, mà chưa chuẩn cột Đơn hàng
Ví dụ đơn hàng 2761 số mã 45 và 2761 số mã 47 lại năm dưới và các đơn trong ngoặc.

 

[LuuAnh980]

Em đã định dạng 3 cột : E, F, O về cùng định dạng Text, mà vẫn không được. Đúng là sort 3 cột khó quá.

 

[ptm0412]

Em có thử code của Thầy @ptm0412 đã giải quyết được các số mã 05/09,08/10 rồi, mà chưa chuẩn cột Đơn hàng
Ví dụ đơn hàng 2761 số mã 45 và 2761 số mã 47 lại năm dưới và các đơn trong ngoặc.

Cùng 1 lý do với việc trùng: 2761, 2950, ... đang ở dạng text. Chuyển về số hết đi.

 

[LuuAnh980]

Là dạng general hay number Thầy???

 

[ptm0412]

Là dạng general hay number Thầy???

Convert to number, không phải định dạng, nhưng làm từ dữ liệu gốc. Tô nguyên khối sao cho ô đầu tiên hoặc ô trắng của vùng chọn có tam giác xanh, rà chuột vào sẽ có hình ! màu vàng, nhấn vào đó chọn convert to number.

 

[LuuAnh980]

Sao em bôi đen cột E, rồi làm sao thấy tâm giác xanh Thầy?

 

[ptm0412]

Sao em bôi đen cột E, rồi làm sao thấy tâm giác xanh Thầy?

Làm thế này: ô nào có dữ liệu nằm bên trái là text, thì để ở ô trắng trong khối

 

[LuuAnh980]

Em thấy rồi, em đã thấy tam giác xanh, nhưng khi chọn vào thì chỉ chọn cell đó không hết khối được, mà file gốc em sao có dạng Text mà không hiện tam giác xanh thầy ơi.

 

[LuuAnh980]

Cám ơn thầy Mỹ, em đã làm được. Vậy có cách nào chống nhập liệu sai định dạng không thầy.

 

[ptm0412]

Cám ơn thầy Mỹ, em đã làm được. Vậy có cách nào chống nhập liệu sai định dạng không thầy.

Để general mà nhập liệu, không định dạng gì cả: Không text, không number, không canh trái canh phải canh giữa. Số 02 thì thêm dấu '