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)
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)
转载于:https://www.cnblogs.com/lotussoft/archive/2010/05/07/1729917.html