Viết hàm Countifs bằng vba

[vippera2]

Nhờ các anh/chị viết dùm em hàm Countifs bằng vòng lặp trong vba (không dùng countifs trong vba) giúp em với ạ.
Kiểu như kết quả sẽ trả dòng H như ảnh đính kèm.
Em cảm ơn ạ.

 

[bebo021999]

Bạn nghiên cứu dùng Dictionary nhé
1 đoạn code ví dụ:

Option Explicit
Sub countifVBA()
Dim i&, rng, dic As Object, id As String
Set dic = CreateObject("Scripting.Dictionary")
rng = Range("D1:F" & Cells(Rows.Count, "D").End(xlUp).Row).Value
For i = 1 To UBound(rng)
    id = rng(i, 1) & "|" & rng(i, 3)
    If Not dic.exists(id) Then
        dic.Add id, 1
    Else
        dic(id) = dic(id) + 1
    End If
Next
For i = 1 To UBound(rng)
    id = rng(i, 1) & "|" & rng(i, 3)
    Cells(i, "H").Value = dic(id)
Next
End Sub

 

[vippera2]

Bạn nghiên cứu dùng Dictionary nhé
1 đoạn code ví dụ:

Option Explicit
Sub countifVBA()
Dim i&, rng, dic As Object, id As String
Set dic = CreateObject("Scripting.Dictionary")
rng = Range("D1:F" & Cells(Rows.Count, "D").End(xlUp).Row).Value
For i = 1 To UBound(rng)
    id = rng(i, 1) & "|" & rng(i, 3)
    If Not dic.exists(id) Then
        dic.Add id, 1
    Else
        dic(id) = dic(id) + 1
    End If
Next
For i = 1 To UBound(rng)
    id = rng(i, 1) & "|" & rng(i, 3)
    Cells(i, "H").Value = dic(id)
Next
End Sub

View attachment 291487

Cảm ơn bạn siêu nhiều