如何在符合条件的第一个单元格起两行的单元格中搜索值?

时间:2019-07-08 12:27:39

标签: excel vba cell

我为每个循环创建了一个,以在活动工作簿中搜索与所有工作表中的值匹配的单元格,它工作正常,但我需要检查匹配单元格右侧第二行的值。因此,如果它与a2相匹配,则需要检查c2的内容。

我不知道如何将相邻单元格引用到匹配项。我希望能够做类似的事情。如果cel.value像“ boston *”,而同一行中的单元格像“ mass *”又两列,那么什么都可以做

 For Each ws In ActiveWorkbook.Worksheets

    ws.Activate


    For Each cel In rngToSearch.Cells

        With cel


            If cel.Value Like "boston*" Or cel.Value Like "manfield*" Or 
cel.Value Like "barnes*" Or cel.Value Like "langley*" Then


                Set vsoShape = 
Application.ActiveWindow.Page.Drop(Application.DefaultRectangleDataObject, 
aoffset, boffset)

                vsoShape.Text = cel.Value


            Else

            End If



        End With

    Next cel
    Next ws

如果匹配项在a2中,我需要能够从匹配项中检查两行以上的单元格的值,我还需要能够检查c2。谢谢

1 个答案:

答案 0 :(得分:0)

您可能需要此:

With cel
        If (.Value Like "boston*" Or _
            .Value Like "manfield*" Or _
            .Value Like "barnes*" Or _
            .Value Like "langley*") _
         And .Offset(0, 2).Value Like "mass*" Then