| Bút bi | 2 |
| Bút Chì | 1 |
| Bút bi | 2 |
Đới với các bạn, thích code cho nên chậm/nhanh là một tiêu điể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
Ở đâ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.
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.
Cái này 1 chiều chắc dùng:
CreateObject("System.Collections.ArrayList")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?
Cùng câu hỏi với bài #11. Chỉ điểm giúp cháu với
Cái hay của tư duy lập trình là chỗ này.
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.
Duyệt qua mảng 2 lần.
Trong phần giải thích mình đã nói rõ rồi mà : "Lần 2 (là cái bạn hỏi) để so sánh với key và lấy item ra."
Tại bạn quen dùng đít cho nên nó thành ra dễ, cái từ "một phát ăn ngay" là chủ quan.
Đó là chuyện của thớt. Ở đây, ai cũng biết tôi thích chia sẻ với người khác.
Chưa thấy chứng minh. Vả lại, chứng minh cũng khó vì từ "chuẩn" ở đây chưa được tiêu chuẩn hóa. Định nghĩa thế nào là chuẩn?
Đúng là cái đó dư thừa
. Lần 1 add dic, lần 2 rút Item thôiCụ thể thế nào bạn đưa vào code luôn điĐúng là cái đó dư thừa
Code đít sần căn bản.
Theo mạch code của bác thì nó chỉ vậy:
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)
dic.Item(rng(i, 1)) = 1 + dic.Item(rng(i, 1))
Next
For i = 1 To UBound(rng)
rng(i, 2) = dic.Item(rng(i, 1))
Next
Range("A1:B" & lr).Value = rng
End Sub
