VBA公式求助，怎么查询一个区域小于6的个数

gqx3563610

=COUNTIFS(csc_fae_panda!A:H,A33,<6)

SYKLGSWYT

Sub text()
With ActiveWorkbook.Worksheets("csc_fae_panda")
arr = .Range("a1:h" & .Cells(Rows.Count, 1).End(xlUp).Row)
For Each Rng In arr
If Rng < 6 Then
    n = n + 1
End If
Next
End With
[a1] = n
End Sub