Function approx(val As Range, rng As Range) As Variant
Dim achk As Double
achk = 100000
For Each cell In rng
Select Case Abs(cell - val.Value)
Case Is < achk
achk = cell - val.Value
approx = cell.Value
End Select
Next
End Function
=HLOOKUP(A2,A1:D1,1,0)
=HLOOKUP(A2,A1:D1,1,1)
=I1+MIN(ABS(I1-A1:D1))