Lọc không trùng của 3 cột và Sort (1 người xem)

LuuAnh980 · 27/10/22

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 · 27/10/22

LuuAnh980 đã viết:
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 · 27/10/22

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 · 27/10/22

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

PHP:

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 · 27/10/22

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 · 27/10/22

LuuAnh980 đã viết:
Sao có So ma gì mà lên tới hàng trăm anh

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

LuuAnh980 đã viết:
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 · 27/10/22

Đượ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 · 27/10/22

LuuAnh980 đã viết:
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?

anhtuan2939 đã viết:
Bạn bỏ chỗ này xem sao

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

anhtuan2939 · 27/10/22

LuuAnh980 đã viết:
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

Zl: 0933707265 đã viết:
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 · 27/10/22

anhtuan2939 đã viết:
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 · 27/10/22

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 · 27/10/22

LuuAnh980 đã viết:
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

PHP:

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

Thành

PHP:

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

Xem được không?!

LuuAnh980 · 27/10/22

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 · 27/10/22

À 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 · 27/10/22

LuuAnh980 đã viết:
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 · 27/10/22

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

Hoàng Tuấn 868 · 27/10/22

LuuAnh980 đã viết:
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 · 27/10/22

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

Hoàng Tuấn 868 · 27/10/22

LuuAnh980 đã viết:
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 · 27/10/22

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

Hoàng Tuấn 868 · 27/10/22

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

Vậy là do bạn nêu thiếu tiêu chí lọc không trùng (điều kiện là phải cả 2, hay 3 cột chứ không phải chỉ cột E), còn theo điều kiện bài #3 thì hàm không sai.

LuuAnh980 · 27/10/22

Sao code sort không đúng anh @Zl: 0933707265 ơi, sao Đơn hàng 2761, 2926, 2950 sao lại nằm dưới 2937,2990.
Em đã chỉnh code lại Sort theo Đơn hàng rồi.

Bài đã được tự động gộp: 27/10/22

Hoàng Tuấn 868 · 27/10/22

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

!!! . . . . . . . . . .

LuuAnh980 · 28/10/22

Hàm của anh @Hoàng Tuấn 868 đúng rồi, nhưng phải mất 10s mới chạy xong.
Cám ơn anh @Hoàng Tuấn 868.
Anh @Zl: 0933707265 và anh @anhtuan2939 giúp em code với.

Hoàng Tuấn 868 · 28/10/22

LuuAnh980 đã viết:
Hàm của anh @Hoàng Tuấn 868 đúng rồi, nhưng phải mất 10s mới chạy xong.
Cám ơn anh @Hoàng Tuấn 868.
Anh @Zl: 0933707265 và anh @anhtuan2939 giúp em code với.

Dùng code. . . . .

TongDe · 28/10/22

Thử cách này coi thế nào...

LuuAnh980 · 28/10/22

Cám ơn các anh @Hoàng Tuấn 868 , anh @Tống Văn Đệ , chiều em xem file .

LuuAnh980 · 28/10/22

Code của anh @Tống Văn Đệ , muốn lọc qua sheet khác thì chỉnh tên sheet lại phải không anh?

Bài đã được tự động gộp: 28/10/22

Code của anh @Hoàng Tuấn 868 chạy hơi lâu, và số mã anh cứ để nguyên trạng, đừng cho thành 3 số.

LuuAnh980 · 28/10/22

Sao code của anh @Tống Văn Đệ , em muốn lọc qua sheet khác, em chỉnh sheet như này :

Mã:

Sub LocKhongTrung3Cot()
    
    'Xoa du lieu cu
    ClearOld
    
    'Lap danh sach duy nhat moi
    With CreateObject("ADODB.Connection")
        .Open ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No""")
        Sheet9.Range("H4").CopyFromRecordset .Execute("Select f1,f2,f11 From [Sheet3$E2:O] Group by f1,f2,f11 ")
    End With

End Sub

thì bị lỗi này:

mong các anh chị nào biết chỉ em với.

Hoàng Tuấn 868 · 28/10/22

LuuAnh980 đã viết:
Code của anh @Hoàng Tuấn 868 chạy hơi lâu

Thời gian chạy code của mình đây, vậy mà vẫn hơi lâu thì mình chịu rồi.

LuuAnh980 đã viết:
số mã anh cứ để nguyên trạng, đừng cho thành 3 số.

Đã để số mã về nguyên dạng.

Ronaldinho7 · 28/10/22

Hoàng Tuấn 868 đã viết:
Thời gian chạy code của mình đây, vậy mà vẫn hơi lâu thì mình chịu rồi.
View attachment 282646

Đã để số mã về nguyên dạng.

Bác phải biết chiều lòng thượng đế chớ
Kkk…

Nhattanktnn · 28/10/22

Hoàng Tuấn 868 đã viết:
Dùng code. . . . .

Code bác em mới xem qua, cũng chưa hiểu rõ lắm nhưng có góp ý thế này, nếu chưa phù hợp thì bác bỏ qua nha:
Không nên tách sort và loại trùng ra 2 phần. Như thế sẽ phải lặp nhiều hơn (có thêm vòng for loại trùng), và phía trên, vòng for để sort phải xử lý cả những phần tử trùng. Trong khi mình có thể không cần quan tâm tới những phần tử trùng này
Ý tưởng của em là gộp loại trùng vào trong vòng 'for k' đầu tiên luôn, nếu đã có trong dic thì bỏ qua vấn đề sort luôn (không quan tâm tới nó)
Nếu chưa có trong dic thì mới cho chạy vào vòng 'for i' để sort. Tuy nhiên cũng không nên for i=1 mà nên là for i=k+1 để hạn chế bớt vòng lặp dư thừa.
Em chưa viết, mà chỉ nghĩ như vậy thôi!

Hoàng Tuấn 868 · 28/10/22

Nhattanktnn đã viết:
Code bác em mới xem qua, cũng chưa hiểu rõ lắm nhưng có góp ý thế này, nếu chưa phù hợp thì bác bỏ qua nha:
Không nên tách sort và loại trùng ra 2 phần. Như thế sẽ phải lặp nhiều hơn (có thêm vòng for loại trùng), và phía trên, vòng for để sort phải xử lý cả những phần tử trùng. Trong khi mình có thể không cần quan tâm tới những phần tử trùng này
Ý tưởng của em là gộp loại trùng vào trong vòng 'for k' đầu tiên luôn, nếu đã có trong dic thì bỏ qua vấn đề sort luôn (không quan tâm tới nó)
Nếu chưa có trong dic thì mới cho chạy vào vòng 'for i' để sort. Tuy nhiên cũng không nên for i=1 mà nên là for i=k+1 để hạn chế bớt vòng lặp dư thừa.
Em chưa viết, mà chỉ nghĩ như vậy thôi!

Chân thành cảm ơn bạn nhé, lâu rồi không đụng đến, lấy code từ ngày xưa (hồi mới lọ mọ vào code) sửa lại cho khớp với dữ liệu của bạn này thôi mà. Có viết mới đâu.

Nhattanktnn · 28/10/22

Hoàng Tuấn 868 đã viết:
Chân thành cảm ơn bạn nhé, lâu rồi không đụng đến, lấy code từ ngày xưa (hồi mới lọ mọ vào code) sửa lại cho khớp với dữ liệu của bạn này thôi mà. Có viết mới đâu.

Em cũng mới chỉ ý tưởng thôi, không biết viết ra có cấn chỗ nào không

Nếu bác có thời gian thì thử xem, giúp người nhưng cũng là giúp mình vận động đầu óc tí nó cũng vui

Hoàng Tuấn 868 · 28/10/22

Nhattanktnn đã viết:
Em cũng mới chỉ ý tưởng thôi, không biết viết ra có cấn chỗ nào không
Nếu bác có thời gian thì thử xem, giúp người nhưng cũng là giúp mình vận động đầu óc tí nó cũng vui

Ngày xưa mới lọ mọ thì đầu tiên thử cách xắp xếp thứ tự nhỏ đến to, sau đó tìm hiểu thêm về Dictionary thì lại viết tiếp đoạn lọc không trùng rồi ghép hai món lại thì nó ra vậy đó bạn.

LuuAnh980 · 28/10/22

Cám ơn anh @Hoàng Tuấn 868, code bài mới đã nhanh(0,0715) nhưng chổ số mã em nguyên dạng như vầy :01,02,03....., thì của anh là 1,2,3... Mong anh chỉnh lại code dùm em, và muốn lọc qua sheet2 thì chỉnh code thê nào anh

Hoàng Tuấn 868 · 28/10/22

LuuAnh980 đã viết:
Cám ơn anh @Hoàng Tuấn 868, code bài mới đã nhanh(0,0715) nhưng chổ số mã em nguyên dạng như vầy :01,02,03....., thì của anh là 1,2,3... Mong anh chỉnh lại code dùm em, và muốn lọc qua sheet2 thì chỉnh code thê nào anh

!!!.. . . .. ............

LuuAnh980 · 28/10/22

tới anh @Hoàng Tuấn 868 , em có Test code của anh, em thấy vầy:
1/ em xóa dữ liệu lọc đi, và nhấn nút lọc thì nhảy ra MsgBox thời gian -. nhấn OK ->ra dữ liệu loc..Anh chỉnh dùm khi nhấn nút lọc thì ra luôn dữ liệu loc.
2/ Cột số mã em có số mã này: "05/09" thì khi lọc nó lại ra là 05-Sep mặc dù em đã định dạng "05/09" là Text. Mong anh xem giúp.

Hoàng Tuấn 868 · 28/10/22

LuuAnh980 đã viết:
1/ em xóa dữ liệu lọc đi, và nhấn nút lọc thì nhảy ra MsgBox thời gian -. nhấn OK ->ra dữ liệu loc..Anh chỉnh dùm khi nhấn nút lọc thì ra luôn dữ liệu loc.

1/ Đã bỏ Msgbox.

LuuAnh980 đã viết:
2/ Cột số mã em có số mã này: "05/09" thì khi lọc nó lại ra là 05-Sep mặc dù em đã định dạng "05/09" là Text. Mong anh xem giúp.

2/ Ở máy tính mình không thấy như vậy nên không biết bị sao để sửa.

DMQ · 28/10/22

Sory lộn tiệm

LuuAnh980 · 28/10/22

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 · 28/10/22

LuuAnh980 đã viết:
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 · 28/10/22

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

Hoàng Tuấn 868 · 28/10/22

LuuAnh980 đã viết:
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 · 28/10/22

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 · 28/10/22

Hoàng Tuấn 868 đã viết:
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 · 28/10/22

ptm0412 đã viết:
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 · 28/10/22

Code Advanced filter và sort

PHP:

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 · 29/10/22

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 · 29/10/22

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 · 29/10/22

LuuAnh980 đã viết:
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 · 29/10/22

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

ptm0412 · 29/10/22

LuuAnh980 đã viết:
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 · 29/10/22

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

ptm0412 · 29/10/22

LuuAnh980 đã viết:
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 · 29/10/22

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 · 29/10/22

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 · 29/10/22

LuuAnh980 đã viết:
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 '

Lọc không trùng của 3 cột và Sort (1 người xem)

Người dùng đang xem chủ đề này

Thành viên tiêu biểu

File đính kèm

Thành viên gắn bó

Thành viên tiêu biểu

Zl: 0707315985

Thành viên tiêu biểu

Thành viên hoạt động

Thành viên tiêu biểu

Zl: 0707315985

File đính kèm

Thành viên hoạt động

＿/＿/＿/＿/＿/＿/＿/

Thành viên tiêu biểu

Zl: 0707315985

Thành viên tiêu biểu

Thành viên tiêu biểu

Đăng ký hôm qua

File đính kèm

Thành viên tiêu biểu

Đăng ký hôm qua

Thành viên tiêu biểu

Đăng ký hôm qua

Thành viên tiêu biểu

Đăng ký hôm qua

Thành viên tiêu biểu

File đính kèm

Đăng ký hôm qua

File đính kèm

Thành viên tiêu biểu

Đăng ký hôm qua

File đính kèm

Thành viên tiêu biểu

File đính kèm

Thành viên tiêu biểu

Thành viên tiêu biểu

Thành viên tiêu biểu

Đăng ký hôm qua

File đính kèm

Zl: 0707315985

Thành viên gắn bó

Đăng ký hôm qua

Thành viên gắn bó

Đăng ký hôm qua

Thành viên tiêu biểu

Đăng ký hôm qua

File đính kèm

Thành viên tiêu biểu

Đăng ký hôm qua

File đính kèm

Thành viên dốt

Thành viên tiêu biểu

Đăng ký hôm qua

File đính kèm

Thành viên tiêu biểu

File đính kèm

Đăng ký hôm qua

Thành viên tiêu biểu

Bad Excel Member

Đăng ký hôm qua

Bad Excel Member

File đính kèm

Thành viên tiêu biểu

Thành viên tiêu biểu

Bad Excel Member

Thành viên tiêu biểu

Bad Excel Member

Thành viên tiêu biểu

Bad Excel Member

Thành viên tiêu biểu

Thành viên tiêu biểu

Bad Excel Member

Thời gian đếm ngược.