Double For Loop用于查找单元格值是否在范围内

时间:2014-10-09 09:14:52

标签: excel vba excel-vba

更多的VBA Goodness,我尝试用for循环编写一个for循环来获取单元格文本为它分配一个变量然后运行一个范围,看看单元格值是否在范围内,如果找到则更改如果没有找到,则另一个单元格值为yes或no但是尽管能够自己看到范围内的值,我仍然会得到所有NO的

重点是避免使用vlookup function = if(vlookup(“value”,“table”,“col”,“false”),“Yes”,“No”)这似乎跳过了一些值,尽管本。

我的代码是

Dim xell As Range

For Each xell In Range("C6:C36")

lookFor = xell.Value

For i = 6 To 36

    If Cells(i, 10).Value = lookFor Then
        Cells(i, 7).Value = "Yes"
        Else
        Cells(i, 7).Value = "No"
    End If
Next i

Next xell

在第一个范围内循环的想法让单元格文本将其分配给变量并在此期间开始一个新循环以查看范围以查看单元格值是否在此范围内。

它执行但是返回全部编号

1 个答案:

答案 0 :(得分:0)

当发现是的时,我已经退出了我的循环:)

需要退出

Dim xell As Range

For Each xell In Range("C6:C36")

lookFor = xell.Value

For i = 6 To 36

    If Cells(i, 10).Value = lookFor Then
        Cells(i, 7).Value = "Yes"
        Exit For <-------- was missing
        Else
        Cells(i, 7).Value = "No"
    End If
Next i

Next xell

除非经过编辑,否则无法解决我当前未找到的数据问题