利用VBA及区间阀值查找匹配

kingsao_61

想通过VBA数组或字典解决区间查找匹配问题

拜谢

砂海

Sub test()

    arr = Evaluate("{0,0;1,11;2,222;3,333}")
    a = 1.3
    b = Application.VLookup(a, arr, 2)  '还是用现成的工作表函数 方便
    Debug.Print b

End Sub

kingsao_61

砂海 发表于 2023-3-2 17:28
Sub test()

    arr = Evaluate("{0,0;1,11;2,222;3,333}")

看不懂啊  第一个数组设为区间了？ 1维表示阀值范围，2维是要返回的值？
那1.3不应该返回222吗？
请指教 白菜一枚

砂海

arr =区间了, 1维表示阀值范围，2维是要返回的值

在 {0,1,2,3} 中
1.3 未达到2 , 故1 才是最靠近的

这个单纯是 Vlookup 的原理 , 与Vba 没什么关系
VLOOKUP 搜一下 , 有专门讲解的

=====================================
这个就是VLOOKUP , 如 表中,G2   =VLOOKUP(F2,$B$2:$D$40,3,1)

在表格中 公式栏里 , 选中 $B$2:$D$40  按F9 ,查看这个部分的实际值 , 就是这个样子