Excel求和函数公式怎样用vba写（excel vba 依据项目数量进行求和）

举例：B1公式：=sum(a1:a5)

VBA写法：

Sub iSum()

Dim c As Range, s, tmp

s= 0

For Each c In Range("A1:A5")

tmp = c

If IsNumeric(tmp) Then s = s + tmp

Next

Range("B1") = s

End Sub