1
2
3
4
5
6
Subdd()
Dimarr
arr = Array(1, 2, 3, 4, 5, 6)
[A2] = Application.WorksheetFunction.Max(arr)
EndSub
如图,用工作表函数MAX就可以了。