Câu hỏi liên quan đến dictionary

[nguyenvanlinhab]

Em có file như đính kèm. Sau khi tự học hỏi trên GPE mà vẫn không giải quyết dược bài này. Mọi người có thể chỉ giúp xem sai ở đâu không ạ

 

[Ngày mai trời lại sáng]

Em có file như đính kèm. Sau khi tự học hỏi trên GPE mà vẫn không giải quyết dược bài này. Mọi người có thể chỉ giúp xem sai ở đâu không ạ

Với dữ liệu trong file kết quả bạn muốn như thế nào vậy?

 

[nguyenvanlinhab]

Với dữ liệu trong file kết quả bạn muốn như thế nào vậy?

Em muốn lọc trùng cột mã sản phẩm và cột vị trí.Cột vị trí thì cộng dồn ạ

 

[BuiQuangThuan]

Em muốn lọc trùng cột mã sản phẩm và cột vị trí.Cột vị trí thì cộng dồn ạ

Code trong file của bạn nó ra kết quả rồi còn gì nữa

 

[nguyenvanlinhab]

Code trong file của bạn nó ra kết quả rồi còn gì nữa

Đâu đúng ạ nó khác xa kết quả lắm ạ

 

[BuiQuangThuan]

Đâu đúng ạ nó khác xa kết quả lắm ạ

Thế kết quả bạn muốn là như nào? có 2 dòng đó hả?

 

[nguyenvanlinhab]

Kết quả như ảnh ạ anh xem giúp em sai chỗ nào ạ

 

[Ngày mai trời lại sáng]

View attachment 272835
Kết quả như ảnh ạ anh xem giúp em sai chỗ nào ạ

Chỗ này là cùng Rakno nhưng khác itemcode sao kết quả lại thành 9 bạn nhỉ ?

 

[BuiQuangThuan]

View attachment 272835
Kết quả như ảnh ạ anh xem giúp em sai chỗ nào ạ

Đến cái kết quả mẫu bạn cũng làm sai thì

 

[nguyenvanlinhab]

View attachment 272837

Chỗ này là cùng Rakno nhưng khác itemcode sao kết quả lại thành 9 bạn nhỉ ?

Chắc em vừa cộng nhầm ạ ,Anh có tính được không ạ

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

Đến cái kết quả mẫu bạn cũng làm sai thì

Dạ tại em nhìn thủ công xong đếm ạ

 

[BuiQuangThuan]

Dạ tại em nhìn thủ công xong đếm ạ

Test thử và không cần báo kết quả

Sub hoc_vba()
    Dim sh As Worksheet, dic As Object, arr(), kq(), Key
    Dim i&, j&, k&, l As Long, lr As Long
    '    On Error Resume Next
    Set sh = Sheets("sheet1")
    Set dic = CreateObject("scripting.dictionary")
    lr = getlr(sh, 2)
    arr = sh.Range("A2:G" & lr).Value
    ReDim kq(1 To UBound(arr, 1), 1 To 3)
    For i = 1 To UBound(arr, 1)
        Key = arr(i, 6) & "|" & arr(i, 4)
        If dic.exists(Key) = False Then
            j = j + 1
            dic.Add (Key), j
            kq(j, 1) = arr(i, 6)
            kq(j, 2) = arr(i, 4)
            kq(j, 3) = 1
        Else
            kq(dic.item(Key), 3) = kq(dic.item(Key), 3) + 1
        End If
    Next i
    sh.Range("L2").Resize(100, 3).ClearContents
    sh.Range("L2").Resize(j, 3).Value = kq
End Sub

 

[nguyenvanlinhab]

Test thử và không cần báo kết quả

Sub hoc_vba()
    Dim sh As Worksheet, dic As Object, arr(), kq(), Key
    Dim i&, j&, k&, l As Long, lr As Long
    '    On Error Resume Next
    Set sh = Sheets("sheet1")
    Set dic = CreateObject("scripting.dictionary")
    lr = getlr(sh, 2)
    arr = sh.Range("A2:G" & lr).Value
    ReDim kq(1 To UBound(arr, 1), 1 To 3)
    For i = 1 To UBound(arr, 1)
        Key = arr(i, 6) & "|" & arr(i, 4)
        If dic.exists(Key) = False Then
            j = j + 1
            dic.Add (Key), j
            kq(j, 1) = arr(i, 6)
            kq(j, 2) = arr(i, 4)
            kq(j, 3) = 1
        Else
            kq(dic.item(Key), 3) = kq(dic.item(Key), 3) + 1
        End If
    Next i
    sh.Range("L2").Resize(100, 3).ClearContents
    sh.Range("L2").Resize(j, 3).Value = kq
End Sub

Anh ơi cái này nghĩa là gì ạ ( key = arr(i, 6) & "|" & arr(i, 4) sao lại có "|"

 

[BuiQuangThuan]

Anh ơi cái này nghĩa là gì ạ ( key = arr(i, 6) & "|" & arr(i, 4) sao lại có "|"

Bạn nên đọc kĩ bài này
aaaaaaaaaaaaaaaaa

 

[Hoàng Tuấn 868]

Đến cái kết quả mẫu bạn cũng làm sai thì

Thì còn nhiều vòng lắm.

 

[nguyenvanlinhab]

Thì còn nhiều vòng lắm.

Đã chạy thử nó vẫn không như em nghĩ ạ.Cột mã sản phẩm nó vẫn không lọc trùng

 

[BuiQuangThuan]

Đã chạy thử nó vẫn không như em nghĩ ạ.Cột mã sản phẩm nó vẫn không lọc trùngView attachment 272841

Bạn này không hiểu vấn đề về dic rồi. có lẽ giải thích nưa cũng như vậy thôi. Coi như là mình làm sai ý bạn vậy

 

[nguyenvanlinhab]

Bạn này không hiểu vấn đề về dic rồi. có lẽ giải thích nưa cũng như vậy thôi. Coi như là mình làm sai ý bạn vậy

Vậy bài này không dùng dictionary được đúng không anh.Có còn cách khác không ạ

 

[BuiQuangThuan]

Vậy bài này không dùng dictionary được đúng không anh.Có còn cách khác không ạ

mình không biết và cũng không còn hứng thú nữa rồi. Bạn chờ thành viên khác vào hỗ trợ bạn thôi

 

[nguyenvanlinhab]

mình không biết và cũng không còn hứng thú nưa rồi.

Dạ em cảm ơn thời gian đã giúp em. Xin lỗi đã làm phiền ạ

 

[Hoàng Tuấn 868]

Bạn này không hiểu vấn đề về dic rồi. có lẽ giải thích nưa cũng như vậy thôi. Coi như là mình làm sai ý bạn vậy

Đã bảo không ăn xổi được mà.