Làm thế nào để đếm số duy nhất dựa trên tháng?

Cột A bao gồm danh sách các số, một số được nhân đôi

Cột B bao gồm danh sách các số từ 1-12 đại diện cho các tháng

Tôi cần đếm các số duy nhất trong cột A trong đó tháng trong cột B = 1

Thí dụ:

ColumnA ColumnB
123     1
223     2
312     3
412     1
123     1
312     2
123     3

Vì vậy, ở đây ví dụ 123 hiển thị hai lần khi B = 1 và 412 một lần trong cùng một tháng để số lượng duy nhất phải là = 2

Tôi biết bạn muốn một giải pháp sử dụng Countif, nhưng tôi không biết liệu nó có thể được thực hiện chỉ với Countif hay không; Vì vậy, như là một thay thế, VBa này làm điều đó

Option Explicit
Sub CountDuplicatesPerMonth()

Dim row As Integer
row = 1

Range("C:C").Value = "" 'clear the results


Do While (Range("A" & row).Value <> "")

    Dim val As String
    val = Range("A" & row).Value

    Dim month As Integer
    month = Range("B" & row).Value

    Range("C" & row).Value = 0

    Dim innerRow As Integer
    innerRow = 1

    Do While (Range("A" & innerRow).Value <> "")

        Dim innerVal As String
        innerVal = Range("A" & innerRow).Value

        Dim innerMonth As Integer
        innerMonth = Range("B" & innerRow).Value

        If (innerVal = val And innerMonth = month) Then
            Range("C" & row).Value = Range("C" & row).Value + 1
        End If

        innerRow = innerRow + 1

    Loop

   row = row + 1

Loop

End Sub

Trước

Sau khi VBa chạy