Đếm số lần xuất hiện của dữ liệu bằng Dictionary

thaitran.lshb5 · 20/10/22

Các anh chị cho em hỏi ví dụ em có dãy sau, làm thế nào để Dùng dictionary đếm được Bút bi xuất hiện 2 lần ạ. sau đó điền số lần xuất hiện ở cột bên cạnh. em cảm ơn anh/chị rất nhiều.

Bút bi	2
Bút Chì	1
Bút bi	2

Quang_Hải · 20/10/22

thaitran.lshb5 đã viết:
Các anh chị cho em hỏi ví dụ em có dãy sau, làm thế nào để Dùng dictionary đếm được Bút bi xuất hiện 2 lần ạ. sau đó điền số lần xuất hiện ở cột bên cạnh. em cảm ơn anh/chị rất nhiều.

Bút bi 2
Bút Chì 1
Bút bi 2

Dùng hàm CountIf là đếm được rồi, mắc mớ gì phải dùng dictionary chứ

snow25 · 20/10/22

thaitran.lshb5 đã viết:
Các anh chị cho em hỏi ví dụ em có dãy sau, làm thế nào để Dùng dictionary đếm được Bút bi xuất hiện 2 lần ạ. sau đó điền số lần xuất hiện ở cột bên cạnh. em cảm ơn anh/chị rất nhiều.

Bút bi 2
Bút Chì 1
Bút bi 2

Đưa cái dữ liệu dài và to lên chứ vài dòng thế này ngồi gõ cho bạn bao nhiêu dòng code cũng thấy chán.Nếu không bạn tìm hiểu Dictonary đến đâu rồi viết ra sai chỗ nào đưa lên đây.

VetMini · 21/10/22

Quang_Hải đã viết:
Dùng hàm CountIf là đếm được rồi, mắc mớ gì phải dùng dictionary chứ

CountIf ai lại chả biết. Phải đít son mới trộ người chung quanh được chứ.

Xuống nước chưa chắc đã nổi chưa. Nhưng nghe người ta nói bơi bướm thì cũng ráng đòi học bơi bướm trước hết.

snow25 · 21/10/22

VetMini đã viết:
CountIf ai lại chả biết. Phải đít son mới trộ người chung quanh được chứ.

Xuống nước chưa chắc đã nổi chưa. Nhưng nghe người ta nói bơi bướm thì cũng ráng đòi học bơi bướm trước hết.

Nếu dữ,liệu lớn dùng Dic thì cũng được anh ơi.Nếu dùng hàm mảng countif có khi làm file chậm ì ạch.Vấn đề là dữ liệu lớn đến mức nào.Tầm trên 10k dòng là chậm,lắm rồi.

VetMini · 21/10/22

snow25 đã viết:
Nếu dữ,liệu lớn dùng Dic thì cũng được anh ơi.Nếu dùng hàm mảng countif có khi làm file chậm ì ạch.Vấn đề là dữ liệu lớn đến mức nào.Tầm trên 10k dòng là chậm,lắm rồi.

Đới với các bạn, thích code cho nên chậm/nhanh là một tiêu điểm.
Đối với tôi, tin cậy vào code mới là tiêu điểm chính. Code mà người nhận về có thể hiểu, có thể chỉnh sửa những chỗ dễ mới có giá trị.

bebo021999 · 21/10/22

Muốn dic thì có dic:

Mã:

Option Explicit
Sub dem()
Dim lr&, i&, rng, dic As Object, key
Set dic = CreateObject("Scripting.Dictionary")
lr = Cells(Rows.Count, "A").End(xlUp).Row
rng = Range("A1:B" & lr).Value
For i = 1 To UBound(rng)
    If Not dic.exists(rng(i, 1)) And Not IsEmpty(rng(i, 1)) Then
        dic.Add rng(i, 1), 1
    Else
        dic(rng(i, 1)) = dic(rng(i, 1)) + 1
    End If
Next
For i = 1 To UBound(rng)
    For Each key In dic.keys
        If key = rng(i, 1) Then
            rng(i, 2) = dic(key)
            Exit For
        End If
    Next
Next
Range("A1:B" & lr).Value = rng
End Sub

ptm0412 · 21/10/22

Thứ tự ưu tiên khi dữ liệu lớn (chủ đề này):
1. Pivot table
2. Advanced filter Unique only (hoặc Remove duplicate) + CountIf
3. VBA (Dict)

bebo021999 đã viết:
Muốn dic thì có dic:

Range("A1:B" & lr).Value = rng

Chơi ghi đè lên dữ liệu gốc thì chơi với ai.

VetMini · 21/10/22

ptm0412 đã viết:
...3. VBA (Dict)

Ở đây chỉ đếm thôi chứ không có làm con toán tổng hợp gì khác. Không cần đến đít son hay đít sần.
Tôi nhớ có một bạn lý luận "cái gì cũng đít, đầu óc quy về một hướng, lười tính các giải thuật khác". Một bạn khác lý luận "tại sao phải tính giải thuật khác khi đã tin tưởng đít là hiệu quả nhất".

Giải thuật:
1. xuất range vào một mảng.
2. sắp xếp mảng
3. đọc và dùng Find hay Match để tìm lần xuất hiện đầu tiên và cuối của mã.
4. tính ra số lần xuất hiện.

Nếu số dòng khá lớn so với số mã (tức là số lặp lại khá nhiều) thì giải thuật này khá hiệu quả.

ptm0412 · 21/10/22

VetMini đã viết:
Ở đây chỉ đếm thôi chứ không có làm con toán tổng hợp gì khác. Không cần đến đít son hay đít sần.
...

Bởi vậy tôi để Dict trong ngoặc.

VetMini đã viết:
3. đọc và dùng Find hay Match để tìm lần xuất hiện đầu tiên và cuối của mã.

Dùng Match của WorsheetFunction để tìm trong mảng (Array)? Không phải tôi chê, mà là mới thấy lần đầu. Lý do là tôi không dùng VBA cho trường hợp này nên không tưởng tượng nổi.

snow25 · 21/10/22

VetMini đã viết:
Ở đây chỉ đếm thôi chứ không có làm con toán tổng hợp gì khác. Không cần đến đít son hay đít sần.
Tôi nhớ có một bạn lý luận "cái gì cũng đít, đầu óc quy về một hướng, lười tính các giải thuật khác". Một bạn khác lý luận "tại sao phải tính giải thuật khác khi đã tin tưởng đít là hiệu quả nhất".

Giải thuật:
1. xuất range vào một mảng.
2. sắp xếp mảng
3. đọc và dùng Find hay Match để tìm lần xuất hiện đầu tiên và cuối của mã.
4. tính ra số lần xuất hiện.

Nếu số dòng khá lớn so với số mã (tức là số lặp lại khá nhiều) thì giải thuật này khá hiệu quả.

Bước số 2 xắp xếp mảng dùng thư viện gì anh ơi.

huhumalu · 21/10/22

snow25 đã viết:
Bước số 2 xắp xếp mảng dùng thư viện gì anh ơi.

Cái này 1 chiều chắc dùng:

PHP:

CreateObject("System.Collections.ArrayList")

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

ptm0412 đã viết:
Thứ tự ưu tiên khi dữ liệu lớn (chủ đề này):
1. Pivot table
2. Advanced filter Unique only (hoặc Remove duplicate) + CountIf
3. VBA (Dict)

Chơi ghi đè lên dữ liệu gốc thì chơi với ai.

Chỗ số 2 thì dùng trực tiếp Countif luôn anh.

ptm0412 · 21/10/22

huhumalu đã viết:
Chỗ số 2 thì dùng trực tiếp Countif luôn anh.

Không có cột 1 thì cột 2 CountIf cái gì trời?

befaint · 21/10/22

ptm0412 đã viết:
Chơi ghi đè lên dữ liệu gốc thì chơi với ai.

Làm chuẩn chỉ đề bài rồi mà anh.

ptm0412 đã viết:
Không có cột 1 thì cột 2 CountIf cái gì trời?

Anh hiểu lộn đề bài rồi.

snow25 · 21/10/22

bebo021999 đã viết:

Muốn dic thì có dic:

Mã:

Option Explicit
Sub dem()
Dim lr&, i&, rng, dic As Object, key
Set dic = CreateObject("Scripting.Dictionary")
lr = Cells(Rows.Count, "A").End(xlUp).Row
rng = Range("A1:B" & lr).Value
For i = 1 To UBound(rng)
    If Not dic.exists(rng(i, 1)) And Not IsEmpty(rng(i, 1)) Then
        dic.Add rng(i, 1), 1
    Else
        dic(rng(i, 1)) = dic(rng(i, 1)) + 1
    End If
Next
For i = 1 To UBound(rng)
    For Each key In dic.keys
        If key = rng(i, 1) Then
            rng(i, 2) = dic(key)
            Exit For
        End If
    Next
Next
Range("A1:B" & lr).Value = rng
End Sub

Mã:

    For Each key In dic.keys
        If key = rng(i, 1) Then
            rng(i, 2) = dic(key)
            Exit For
        End If

Cái này có vẻ thừa.Dùng làm gì vậy anh.

BuiQuangThuan · 21/10/22

VetMini đã viết:
2. sắp xếp mảng

Cùng câu hỏi với bài #11. Chỉ điểm giúp cháu với

VetMini · 21/10/22

snow25 đã viết:
Bước số 2 xắp xếp mảng dùng thư viện gì anh ơi.

Cái hay của tư duy lập trình là chỗ này.
Nếu bạn để ý, tôi vẫn thường nói: công việc khác thì tách code ra thành một cụm (Sub/Function) khác.

Khi tôi có một (vài) Subs/Functions trong thư viện rồi thì tôi không phải quan tâm chuyện này. Ở diễn đàn này có cả đống bài nói về code sort array.
Nếu Code sort của tôi xịn, nó có thể tự mò môi trường mà sử dụng giải thuật sort thích đáng. Điển hình là dùng #IF-#ELSE

Chú thêm: một lần code kha khá của tôi sẽ có ít nhất là 2 modules. Một module chính chưa code làm công việc chính. Và Module ThuVien chứa code thư viện import từ File "ThuVien Loai v0n.BAS". Loai là chủng loại công việc, v0n là phiên bản.

snow25 · 21/10/22

VetMini đã viết:
Cái hay của tư duy lập trình là chỗ này.
Nếu bạn để ý, tôi vẫn thường nói: công việc khác thì tách code ra thành một cụm (Sub/Function) khác.

Khi tôi có một (vài) Subs/Functions trong thư viện rồi thì tôi không phải quan tâm chuyện này. Ở diễn đàn này có cả đống bài nói về code sort array.
Nếu Code sort của tôi xịn, nó có thể tự mò môi trường mà sử dụng giải thuật sort thích đáng. Điển hình là dùng #IF-#ELSE

Chú thêm: một lần code kha khá của tôi sẽ có ít nhất là 2 modules. Một module chính chưa code làm công việc chính. Và Module ThuVien chứa code thư viện import từ File "ThuVien Loai v0n.BAS". Loai là chủng loại công việc, v0n là phiên bản.

Thế thì đầu tư lắm viết 1 Function Sort làm thư viện riêng rồi sử dụng trong mọi môi trường.Vâng em cảm ơn anh nhé.Thực ra trên diễn đàn cũng có bài code về xắp xếp nhưng em hay dùng trong thư viện của Win.Chắc phải sưu tầm và tìm hiểu thêm để viết 1 code hoàn thiện.

bebo021999 · 21/10/22

Cái này dùng dictionary 1 phát ăn ngay, sao các bác triển khai rộng thế nhỉ?
Có thể chủ thớt đang nghiên cứu về dic, muốn dùng dic giải quyết vấn đề này thế thôi.
Dữ liệu lớn thì dùng dic là chuẩn chỉ rồi.

snow25 đã viết:
Mã:

For Each key In dic.keys If key = rng(i, 1) Then rng(i, 2) = dic(key) Exit For End If

Cái này có vẻ thừa.Dùng làm gì vậy anh.

Duyệt qua mảng 2 lần.
Lần 1 để nạp giá trị duy nhất vào key và số đếm vào item
Lần 2 (là cái bạn hỏi) để so sánh với key và lấy item ra.

VetMini · 21/10/22

snow25 đã viết:
Thế thì đầu tư lắm viết 1 Function Sort làm thư viện riêng rồi sử dụng trong mọi môi trường.Vâng em cảm ơn anh nhé.Thực ra trên diễn đàn cũng có bài code về xắp xếp nhưng em hay dùng trong thư viện của Win.Chắc phải sưu tầm và tìm hiểu thêm để viết 1 code hoàn thiện.

1. Một ngày bạn lên đây viết code cho vài người. Chẳng lẽ chính mình lại không muốn đầu tư?
2. Ở đây có nhiều người đầu tư viết code sort xịn lắm.

Đếm số lần xuất hiện của dữ liệu bằng Dictionary

Thành viên mới

Thành viên gạo cội

Thành viên gạo cội

Ăn cùng góc phố

Thành viên gạo cội

Ăn cùng góc phố

Thành viên gạo cội

File đính kèm

Bad Excel Member

Ăn cùng góc phố

Bad Excel Member

Thành viên gạo cội

Thành viên tích cực

Bad Excel Member

|||||||||||||

Thành viên gạo cội

❆❆❆❆❆❆❆❆❆❆❆❆

Ăn cùng góc phố

Thành viên gạo cội

Thành viên gạo cội

Ăn cùng góc phố