分享

VBA判断数组最值(最大值、最小值、第二大值、第二小值)

 莫怜飘逸 2023-09-04 发布于广东

想要用VBA判断数组中的最大值、最小值、第N大值、第N小值,可以用以下代码:

Sub 判断数组中的最值()
arr = Array(10, 1, 5, 4, -6, 9, 11, 9, -1)
MsgBox Application.Max(arr)     '判断数组中的最大值
MsgBox Application.Min(arr)     '判断数组中的最小值
MsgBox Application.Large(arr, 2)     '判断数组中的第二大值
MsgBox Application.Small(arr, 2)     '判断数组中的第二小值
End Sub

如果想要更改判断第N个大、小值,只需更改以上代码的Application.Large、Application.Small的第2个参数即可。

需要注意的是,Application.Large和Application.Small函数的第N大、小值,不是数值内第N大、小值,而是数组内第N大、小值,也就是说,如果数组内最大的值是10,而数组内有3个10,那么无论是最大值,还是第2大值、第3大值,都会是10。

想要了解更多VBA相关知识,欢迎到http://moqingyan.360doc.com我的个人图书馆查看。

    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多