截止昨天VBA代码大全系列发了10篇,今天我们换个主题
下面是一段求数值数组中最大值的一段代码:
1 2 3 4 5 6 7 8 9 10 11 12 |
Sub 求数组的最大值() Dim arr() For i = 0 To 100000 ReDim Preserve arr(i) arr(i) = i Next i '求数组arr中的最大值 j = Application.WorksheetFunction.Max(arr) '输出变量j的值 Debug.Print j End Sub |
大家目测下最后的变量j的值是多少?[……]
阅读全文>>>