创建一个循环，选择最接近参数的选项

Question

目前我正试图找出如何创建一个循环来搜索最接近参数的多个选项。

在下图中，B列中的阀门显示其尺寸，C列。此信息在Sheet2中列出。

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

我想要创建的是一个循环，它将搜索一个速度为A3的阀门，它刚刚低于极限。所以第一个值将是＆lt; C3。然后代码必须在单元格A1中显示哪个阀门是最佳选择。

这是我到目前为止的代码，但我不知道如何继续使用它来实现它。

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

其他信息： 工作表Sheet：

A1具有单元格名称：＆＃34; Valve_size＆＃34;

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

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

A4具有单元格名称：＆＃34; V_stroke_front＆＃34;

A5具有单元名称：＆＃34; spm＆＃34;