输入数值返回接近值

529905149

输入数值返回
1.大于或等于的最接近值
2.小于或等于的最接近值
谢谢

gwjkkkkk

没看懂规则。。。

Tina.棠

xlookup的第五个参数

ykcbf1100

最接近的数，那精度是多少呢？

529905149

ykcbf1100 发表于 2024-6-28 18:57
最接近的数，那精度是多少呢？

A列值降低，C列值升高，查询的数值是在C列查找，如果数值在C3或C4之间,返回的大于值是A4--C4，小于值是A3-C3，

529905149

Sub shu()
Dim r%, i%
Sheets("sheet1").Range("h1:j2") = ""
    r = Sheets("sheet2").Cells(Sheets("sheet2").Rows.Count, 3).End(xlUp).Row
    For i = 2 To r
      If Sheets("一分一段表").Cells(i, 3) - Sheets("sheet1").Range("e1") = 0 Then
      Sheets("sheet1").Range("h1") = Sheets("sheet2").Cells(i, 1)
      Sheets("sheet1").Range("i1") = Sheets("sheet2").Cells(i, 2)
      Sheets("sheet1").Range("j1") = Sheets("sheet2").Cells(i, 3)
   
      Sheets("sheet1").Range("h2") = Sheets("sheet2").Cells(i - 1, 1)
      Sheets("sheet1").Range("i2") = Sheets("sheet2").Cells(i - 1, 2)
      Sheets("sheet1").Range("j2") = Sheets("sheet2").Cells(i - 1, 3)
      Exit For
      End If
    Next

End Sub