Sub dd()Dim arrarr = Array(1, 2, 3, 4, 5, 6)[A2] = Application.WorksheetFunction.Max(arr)End Sub
如图，用工作表函数MAX就可以了。
假如数组为 arr最大值为：Application.Max(arr)
