vba 数组 数组参数

关于赋值
我看了很多本书都没有看到这样子的，包括官方文档，所以我就写了下来。

sub a()
dim a()
dim c()
a = array(1,2,3,4)  '这里a后面的（）可以给也可以不给
c=a()
end sub

写法一

sub a(paramarray a() as variant)      'paramarray 可以用byref替代

end sub     '灵活性强，各种写法

写法二

Function s(list) As Double
Dim item
For Each item In list
If WorksheetFunction.IsNumber(item) Then
s = s + item
End If
Next item
End Function

Sub m()
Dim n(1 To 100) As Double
Dim i As Integer
For i = 1 To 100
n(i) = Rnd * 100
Next i
MsgBox s(n)
End Sub

当然自己体会了根据现象可以洞悉本质 ，有需要的加油。