问：很多自定义函数都是处理单变量的，自定义函数能否处理“（AS RANGE）AS INTERGER”的函数，比如说，处理某变量的平方，我想处理多变量的平方。
答：能。参数使用range而函数值为integer是可以的，思路大致见下：
用For each next语句
Dim rg as range
Dim iv as integer
For each rg in 参数区域
Iv = iv + rg*rg
Next
问：谢谢指导，按你的思路处理如下，但是未见效果。
Public Function A2(rng As Range) As Integer
Dim rng As Range
Dim ivalue As Integer
For Each rng In rng.Range
ivalue = ivalue + rng.value ^ 2
Next
x2 = ivalue
End Function
答：你的这段代码有如下问题
1.函数名不能使用单元格位址的形式，否则在工作表中引用函数产生歧义，excel以为你引用单元格；
2.参数名与内部变量名冲突，rng本来是定义参数，在过程中不应出现重名变量；
3.rng已被定义为range对象变量，实际意义是一range引用，不能再用rng.Range引用。
下面是规范的代码
Public Function PF(rng As Range) As Integer
Dim rg As Range
Dim ivalue As Integer
For Each rg In rng
ivalue = ivalue + rg.value ^ 2
Next
PF = ivalue
End Function
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/24345566/viewspace-1049929/ ，如需转载，请注明出处，否则将追究法律责任。
