VBA-数组作参数

Function Tidy(ByRef sheets() As Worksheet)

Dim value As Object
Dim rang As Excel.Range
Dim isNum As Boolean
Dim sheet As Worksheet
For k = 0 To UBound(sheets) '获取数组长度

Set sheet = sheets(k)