请问如何搜索比较数值大小

cui26896

大灰狼1976 发表于 2020-1-8 09:25
是的，就这个意思，这都是些障眼法，无足挂齿。

谢谢版主能抽空答复，还有一个看不懂的
arr1(i, 0) = (n < arr(j, 1)) * 2 + 1
这句在百度中反复搜，找不到答案，在其他论坛也搜不出来，版主有空，请能够不吝赐教，较详说明。

大灰狼1976

逐步说明吧：
n < arr(j, 1) 这是个逻辑表达式，结果只有TRUE和FALSE，TRUE的值是-1（VBA里面），FALSE的值是0
(n < arr(j, 1)) * 2 把上面表达式的值-1和0乘以2后放大到-2和0
(n < arr(j, 1)) * 2 + 1加上1就把上一步-2和0的值换算成-1和1，这个结果就是我们需要的结果。

大灰狼1976

效率更高一点的做法，循环嵌套改成两个单循环，前提是B列没有负数，如果有的话需要对开头部分增加判断。

1. Sub test()
   
2. Dim arr, i&, tmp&
   
3. arr = [f10].CurrentRegion.Offset(, -4).Resize(, 6)
   
4. ReDim arr1(1 To UBound(arr), 0)
   
5. For i = 1 To UBound(arr)
   
6.   If arr(i, 1) Then
   
7.     arr(i, 6) = (tmp >= arr(i, 1)) * 2 + 1
   
8.     tmp = arr(i, 1)
   
9.   End If
   
10. Next i
    
11. For i = 1 To UBound(arr)
    
12.   If arr(i, 6) Then tmp = arr(i, 6)
    
13.   If arr(i, 5) Then arr(i, 5) = tmp Else arr(i, 5) = ""
    
14. Next i
    
15. [g10].Resize(UBound(arr)) = Application.Index(arr, , 5)
    
16. End Sub

复制代码

cui26896

大灰狼1976 发表于 2020-1-8 12:23
逐步说明吧：
n < arr(j, 1) 这是个逻辑表达式，结果只有TRUE和FALSE，TRUE的值是-1（VBA里面），FALSE的 ...

感谢版主的耐心答复，长知识了。遗憾送分出错，不能为版主送出花。