创build一个循环来select最接近参数的选项

目前我正试图找出如何做一个循环，将search最接近参数的多个选项。

在阀门下面的图像中，B列显示了它们的大小，C栏。此信息在Sheet2中列出。

在Sheet1上，根据特定速度的限制C3进行select。 如果当前所选阀门的速度太快，Sheet1 A3太高。 然后，用户需要在Sheet1 A1的下拉列表中select一个不同的阀门，直到A3的值低于C3的值。 看下面的图片。

我想要创build的是一个循环，它将search速度为A3的阀门刚刚低于极限。 所以第一个值是<C3。 代码必须在单元格A1中显示哪个阀门是最好的select。

这是我到目前为止的代码，但我不知道如何继续这个工作。

Sub Selectvalve() Dim x As Integer Dim y As Integer x = Worksheets("Sheet1").Range("A3").Value y = Worksheets("Sheet1").Range("C3").Value For Each cell In Worksheet("Sheet2").Range("C1:C9") If x < y Then Else End If Next cell End Sub 

附加信息：工作表1：

A1有单元名称：“Valve_size”

A2包含公式：'= VLOOKUP（Valve_size; Sheet2！$ B $ 1：$ C $ 9; 2; FALSE）'

A3包含公式：'= 2 * V_stroke_front /（PI（）/ 4 * DN_valve ^ 2）* 1000 * spm / 60'

A4有单元名称：“V_stroke_front”

A5有单元名称：“spm”