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ụ ạ.

 

[Nhattanktnn]

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ụ ạ.

Tiêu chí lọc không trùng dựa vào cột nào, Sort ưu tiên cột nào. Diễn giải rõ ràng vào bạn

 

[LuuAnh980]

Tất cả dựa vào cột E anh ơi, Sort ưu tiên cột E luôn anh ơi.
Mong anh giúp.

 

[Ronaldinho7]

Bạn thử kiểm tra kết quả xem đúng chưa nhé!

Sub GPE()
    Dim Arr(), Res(), i&, j&, k&, Lr&
    Dim Dic As Object, Key$
    Set Dic = CreateObject("Scripting.Dictionary")
    With Sheets("Sheet1")
        Lr = .Range("E" & Rows.Count).End(xlUp).Row
        Arr = .Range("E2:O" & Lr).Value
        ReDim Res(1 To UBound(Arr), 1 To 3)
        For i = 1 To UBound(Arr)
            If Arr(i, 1) <> "" Then
                Arr(i, 2) = Arr(i, 2) * 1
                Key = Arr(i, 1) & "_" & Arr(i, 11)
                If Not Dic.exists(Key) Then
                    k = k + 1
                    Dic.Add (Key), k
                    Res(k, 1) = Arr(i, 1)
                    Res(k, 2) = Arr(i, 2)
                    Res(k, 3) = Arr(i, 11)
                Else
                    Res(Dic.Item(Key), 2) = Res(Dic.Item(Key), 2) + Arr(i, 2)
                End If
            End If
        Next i
        If k Then
            .Range("T2:V100000").ClearContents
            .Range("U:U").NumberFormat = "0"
            .Range("T2").Resize(k, 3).Value = Res
            With Range("T1:V1000")
                .Sort .Cells(1, 1), 1, Header:=xlGuess
            End With
        End If
    End With
    MsgBox "Hoan Thanh"
    Set Dic = Nothing
End Sub

 

[LuuAnh980]

Chưa đúng anh ơi!!!!
Sao có So ma gì mà lên tới hàng trăm anh

cột don hang sao canh trai canh phải tùm lum vậy anh.

 

[anhtuan2939]

Sao có So ma gì mà lên tới hàng trăm anh

Bạn bỏ chỗ này xem sao

cột don hang sao canh trai canh phải tùm lum vậy anh.

Bạn định dạng lại cột T trước khi chạy code

 

[LuuAnh980]

Được rồi anh @anhtuan2939 ơi, nhưng cột U em muốn là Text mà không được. tức số 1 thành 01.....

 

[Ronaldinho7]

Chưa đúng anh ơi!!!!
Sao có So ma gì mà lên tới hàng trăm anh
View attachment 282596
cột don hang sao canh trai canh phải tùm lum vậy anh.

Bạn muốn cộng dồn số mã nhưng cột số mã dữ liệu lại dạng text?

Bạn bỏ chỗ này xem sao

Chỗ đó để dữ liệu chuyển qua number bạn

 

[anhtuan2939]

nhưng cột U em muốn là Text mà không được. tức số 1 thành 01.....

Vậy bạn bỏ đoạn này và định dạng cột U thành Text trước khi chạy code

Chỗ đó để dữ liệu chuyển qua number bạn

Vì yêu cầu "Số Mã" là Text, vì thế không nên chuyển sang number.

 

[Thóc Sama]

Vậy bạn bỏ đoạn này và định dạng cột U thành Text trước khi chạy code
View attachment 282599


Vì yêu cầu "Số Mã" là Text, vì thế không nên chuyển sang number.

Hình như thớt muốn cộng dồn số mã mà ta?!

 

[LuuAnh980]

Cột số mã không phải cộng dồn, mà lọc đưa qua theo côt Đơn hàng anh @Zl: 0933707265 ơi.
Ủa mà Sort sao kỳ vậy anh @Zl: 0933707265 sao 120,122,125 lại nằm trên 95,99

 

[Ronaldinho7]

Cột số mã không phải cộng dồn, mà lọc đưa qua theo côt Đơn hàng anh @Zl: 0933707265 ơi.
Ủa mà Sort sao kỳ vậy anh @Zl: 0933707265 sao 120,122,125 lại nằm trên 95,99
View attachment 282600

Nó đang sort theo cột đơn hàng.
Bạn đổi

            With Range("T1:V1000")
                .Sort .Cells(1, 1), 1, Header:=xlGuess
            End With

Thành

            With Range("T1:V1000")
                .Sort .Cells(1, 2), 1, Header:=xlGuess
            End With

Xem được không?!

 

[LuuAnh980]

Thôi đành chấp nhận thôi, vì khi sort cột Số mã thì cột Đơn hàng lại không sort, mà chính của em là cột Đơn hàng.
Em cám ơn các anh @anhtuan2939 và anh @Zl: 0933707265 nhiều !!!

 

[LuuAnh980]

À các anh ơi!!!
Giờ em muốn lọc qua sheet khác thì chỉnh code làm sao anh @Zl: 0933707265 ơi.

 

[Hoàng Tuấn 868]

Tất cả dựa vào cột E anh ơi, Sort ưu tiên cột E luôn anh ơi.

Bạn thử với hàm tự tạo xem sao. Ở sheet nào cũng dùng được.

 

[LuuAnh980]

Hàm của anh @Hoàng Tuấn 868 sao em thấy chạy không đúng.

 

[Hoàng Tuấn 868]

Hàm của anh @Hoàng Tuấn 868 sao em thấy chạy không đúng.

Bạn nêu chỗ sai được không, chỉ nói không đúng rồi dừng thì ai biết sai chỗ nào nhỉ.

 

[LuuAnh980]

Sao em kéo công thức xuông nó ra như vầy

 

[Hoàng Tuấn 868]

Sao em kéo công thức xuông nó ra như vầy
View attachment 282607

Điều kiện của bạn ở bài #3 là lọc theo cột E, rồi xắp xếp theo cột E thì có 13 số đơn hàng duy nhất thôi mà, vậy sai ở chỗ nào nhỉ.

 

[LuuAnh980]

thiếu Đơn hàng 2925 số mã là 35 , 2925 mã số 43 nữa (các dong 60,62,73,77,78...