Excel VBA怎么从数组中取最大值

Question

如题所述

Answer 1

Sub dd()
Dim arr
arr = Array(1, 2, 3, 4, 5, 6)
[A2] = Application.WorksheetFunction.Max(arr)

End Sub

如图，用工作表函数MAX就可以了。

Answer 2

假如数组为 arr
最大值为：Application.Max(arr)