excel自定义函数是否可以选取多个不连续的区域

sunshinegg

比如说自定义一个函数
Function f(a As Range)
f = WorksheetFunction.StDev(a) / WorksheetFunction.Average(a)
End Function

如果选取是 A1:B2这个函数能正常工作，
但如果想让选区是A1:B2和A4:B5，则函数无法正常工作。请问有办法实现多个不同区域的选择吗？

dsmch

有些属性，自定义函数不支持，用子程序试试

1. Sub f()
   
2. Set a = Application.InputBox("请用鼠标选取单元格", Type:=8)
   
3. n = Application.Count(a)
   
4. x = Application.Sum(a) / n
   
5. For Each rg In a.Areas
   
6.     For Each c In rg
   
7.         s = s + (c - x) ^ 2
   
8.     Next
   
9. Next
   
10. MsgBox Sqr(s / (n - 1)) / x
    
11. End Sub

复制代码

hwc2ycy

建议一开始就确定好参数的个数，不确定的用Optional 声明

adders

Just add 1 more set of () as follows:

=f((A1:B2, A4:B5))