| 楼主 wqfzqgk |
Function 升序及降序乱序排列(rng As Range) If Len(rng) = 1 Then 升序及非升序排列 = "无法比较": Exit Function For i = 1 To Len(rng) - 1 If Mid(rng, i, 1) < Mid(rng, i + 1, 1) Then a = a + 1 If Mid(rng, i, 1) > Mid(rng, i + 1, 1) Then b = b + 1 Next If b = "" Then 升序及降序乱序排列 = IIf(a = Len(rng) - 1, "升序", "乱序") If a = "" Then 升序及降序乱序排列 = IIf(b = Len(rng) - 1, "降序", "乱序") End Function [函数与公式] 如何判断一个数值中所有数字都是按升序排列？ http://www.exceltip.net/thread-11293-1-1.html |
| 2楼 lnt1231 |
学习了,收藏下. |
| 3楼 心痛神伤 |
支持，学习 |