'VBA函数与过程简洁教程
Sub 过程名() 'Sub表示过程，在执行宏或图形右击指定宏中看得到，不能返回值
Call 函数名(Array(1, 2), b) '调用过程并把返回值放入r
End Sub '结束过程
Function 函数名(a, Optional ByVal b) 'Function表示函数，在单元格中也可以使用，宏列表看不到，可以使宏列表简洁
'VBA默认ByRef会改变原参数的值，所以加了ByVal
If IsMissing(b) Then b = 1
'Optional表示参数可以选择性省略，上面的语句是如果没有时设定值，常用设定可选来灵活调试，如果有一个非可选就不能直接运行
ReDim arr(UBound(a)) '定义可变数组，UBound()是求最大下标值
arr(1) = b
函数名 = arr '返回值，仅Function可用
Exit Function '退出函数，不要用return，return是在一个程序中回到GoSub后一行
End Function '结束函数
