vba编一段函数判断一个单元格内有几个奇数,要判断的单元格是D列,每行都是一个三位数

在用vba在模块里建立一个函数如下:
Function jishu(arr As Range) As Integer
Dim i As Integer
For i = 1 To arr.Rows.Count
If Val(Cells(i,arr.Column)) Mod 2 0 Then
jishu = jishu + 1
End If
Next i
End Function
然后在单元格里引用,如d列里,d1=3,d2=4,d3=5,d4=jishu(d1:d3),于是d4=2