gypl1 = mm(0, 1)
 For i = 0 To UBound(mm)
  If mm(0, i) - Text4.Text < 0 And mm(0, i + 1) - Text4.Text > 0 Then
    gypl1 = mm(0, i)
    gypl2 = mm(0, i + 1)
  End If
 Next
代码就是这样的。

那怎么改呢？