VBA to count numbers between columns

[aaaaa34]

Hello guys,
I'd like to ask your help for VBA to count numbers between columns Q:Z columns in which rows have values more than three.
In the attached file, you will see there are three and more numbers in Rows no.3-4-9-11-12-13-15-17-18-21
I want to know these numbers how many times are written in these rows.
Please have a look into the attached file, you will see (desired) result in the worksheet.

File: Book1.xlsx (Click to "Download" in right-up corner of opened page)

Thank you so much for your interest.

 

[Fluff]

How about

Sub aaaa34()
   Dim Ary As Variant
   Dim r As Long, c As Long
   
   Ary = Range("Q2:Z" & Range("Q" & Rows.Count).End(xlUp)).Value2
   With CreateObject("scripting.dictionary")
      For r = 1 To UBound(Ary)
         If Ary(r, 3) <> "" Then
            For c = 1 To UBound(Ary, 2)
               If Ary(r, c) = "" Then Exit For
               .Item(Ary(r, c)) = .Item(Ary(r, c)) + 1
            Next c
         End If
      Next r
      Range("AB2").Resize(.Count, 2).Value = Application.Transpose(Array(.Keys, .Items))
   End With
End Sub

 

[aaaaa34]

Thank you, Fluff
You always here to help generously
I wish I could be successful and consistent like you in this life at least in one branch.
Thank you so much Fluff, you're great.

 

[Fluff]

You're welcome & thanks for the feedback.

 

[aaaaa34]

Why "RptStats" macro gives error in the attached file?
File: Msg5.xlsm
Can you check it please?

 

[Fluff]

Has this got anything to do with this thread?

 

[aaaaa34]

Exactly
"RptStats" macro is same macro you shared with me in post #2

 

[Fluff]

In that case what error do you get & what line is highlighted?

 

[aaaaa34]

This error I got.
Sth about my office version 2013?

 

[Fluff]

That suggests that the dictionary is empty, but not sure why.
Will there ever be a situation where you never have 3 or more numbers in a row?