统计指定年龄段的人数并以年份区分VBA自定义函数

‘ARR 为人力表中的年度列数据,brr为年份列数据，如2020
Public Function RCOUNTSUMS(arr As Range, key1, brr As Range, key2)
Dim sum As Integer
Dim i As Integer
Dim str1
sum = 0
If InStr(key1, “<”) Then
str1 = Split(key1, “<”)(1)
For i = 1 To arr.Rows.Count
If arr.Cells(i).Value < Val(str1) And arr.Cells(i).Value > 0 And brr.Cells(i).Value = key2 Then
sum = sum + 1
End If
Next
End If
If InStr(key1, “-”) Then
str1 = Split(key1, “-”)
For i = 1 To arr.Rows.Count
If arr.Cells(i).Value >= Val(str1(0)) And arr.Cells(i).Value <= Val(str1(1)) And brr.Cells(i).Value = key2 Then
sum = sum + 1
End If
Next
End If
If InStr(key1, “>”) Then
str1 = Split(key1, “>”)(1)
For i = 1 To arr.Rows.Count
If arr.Cells(i).Value > Val(str1) And arr.Cells(i).Value <> “” And brr.Cells(i).Value = key2 Then
sum = sum + 1
End If
Next
End If
RCOUNTSUMS = sum
End Function