Question

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

Answer 1

在用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