根据判断数值所在区间返回相应的值

z182052237

lsc900707 发表于 2017-3-24 23:43
参考附件>>>>>>>>>>>

已删除，已删除，已删除，已删除，

lsc900707

z182052237 发表于 2017-3-25 09:48
大哥大哥，真的非常感激你，快要成功了，但是可能您太忙了，没来得及看清楚我后面增加的条件，你的解答对 ...

我只能晚上用电脑回复尔，白天不方便。

z182052237

lsc900707 发表于 2017-3-25 11:31
我只能晚上用电脑回复尔，白天不方便。

非常谢谢您，我的qq282428660，随时等您

z182052237

lsc900707 发表于 2017-3-25 11:31
我只能晚上用电脑回复尔，白天不方便。

请问您还在吗，大哥

lsc900707

z182052237 发表于 2017-3-25 21:08
请问您还在吗，大哥

你的意思是要这样？
Function getlevel(ByRef num)
    Result = ""
    MaxRow = Application.Count(Range("F:F")) + 1
    For i = 2 To MaxRow
        If Range("A" & i).Value = Range("E" & i).Value Then
            If num < Range("G" & i).Value And num > Range("F" & i).Value Then
                 Result = Range("H" & i).Value
                 Exit For
            End If
        End If
    Next
    getlevel = Result
End Function

z182052237

lsc900707 发表于 2017-3-25 21:27
你的意思是要这样？
Function getlevel(ByRef num)
    Result = ""

是这个意思，但是大哥，如果这时i=2时，发现A2不等于E2，那就直接结束if循环了，也就是不去查找A2而去查找A3了啊。但是A列中的每一个值都应该被查找吧

z182052237

lsc900707 发表于 2017-3-25 21:27
你的意思是要这样？
Function getlevel(ByRef num)
    Result = ""

回复要审核好久，您能加我qq吗282428660

z182052237

lsc900707 发表于 2017-3-25 21:27
你的意思是要这样？
Function getlevel(ByRef num)
    Result = ""

您还在吗，我明天要交差了，真的很心急，我觉得不能简单的用 If Range("A" & i).Value = Range("E" & i).Value Then，因为此时如果A2不等与E2的话，就结束if开始判断A3了，我想要的结果是（拿B5）来说，会在右边区域从上到下逐行匹配，一直匹配到S4(同时满足3个条件，1.左右两边名称相等，2.左边强度>右边强度下限 3.左边强度<右边强度上限），不知道我说清楚了没有

lsc900707

z182052237 发表于 2017-3-25 22:40
您还在吗，我明天要交差了，真的很心急，我觉得不能简单的用 If Range("A" & i).Value = Range("E" & i). ...

恕我愚钝，实在不知如何处理了。

zax010

z182052237 发表于 2017-3-25 22:13
是这个意思，但是大哥，如果这时i=2时，发现A2不等于E2，那就直接结束if循环了，也就是不去查找A2而去查 ...

Sub zz()
    Application.ScreenUpdating = False
    ar = Range("E1").CurrentRegion
    br = Range("A1").CurrentRegion
    For i = 2 To UBound(br)
        For x = 2 To UBound(ar)
            If br(i, 2) >= ar(x, 2) And br(i, 2) <= ar(x, 3) And br(i, 1) = ar(x, 1) Then
                br(i, 3) = ar(x, 4): Exit For
            End If
        Next x, i
        Range("A1").CurrentRegion = br
        Application.ScreenUpdating = True
    End Sub