Xác định số lần giao nhau theo điều kiện màu (1 người xem)

[qv7tb]

bài toán như tiêu đề em đặt ra. nhờ các bác viết code cho bài này:
xác định max số lần giao của 1 số X(X là số tự nhiên từ 0 đến 99) theo các cặp số giao nhau. Các cặp số giao nhau có mặt của X >3 lần)
Em cũng miêu tả rõ trong file. Các bác xem kỹ và viết cho em cái code.
Thanks a/e forum GPE!!!

 

[SA_DQ]

Bạn thử với macro này

Option Explicit
Sub MaxIf()
 Dim Rng As Range, Cls As Range, jJ As Byte, Max_ As Byte
 
 Set Rng = Columns("A:E")
 [g3].Resize(109, 2).ClearContents
 For jJ = 0 To 99
    Max_ = Application.WorksheetFunction.CountIf(Rng, jJ)
    If Max_ > 0 Then
        With [g999].End(xlUp).Offset(1)
            .Value = jJ:            .Offset(, 1).Value = Max_
        End With
    End If
 Next jJ
End Sub