在工作表之间查找并选择单元格内容

时间:2018-07-31 14:26:24

标签: excel vba select search

因此,我有本包含3张纸的工作簿,我从“ Plan1”收集一些数据,并将过滤后的内容输出到“ Plan2”。他们构建了以下代码,以将排序后的输出与“ Plan3”进行搜索和匹配,然后选择匹配的项目。

问题是,它仅在“ Plan3”上选择1个值,而不是所有匹配的值。有人可以指出我正确的方向吗?

下面是我编写的代码-是的,我是vba的新手,我的代码确实很基础。

    Sub Compara()
Dim cell As Range
Dim temp As Range
For Each cell In Sheets("Plan2").Columns("C").Cells
    If cell <> "" And cell.Row <> 1 Then
        Set temp = Sheets("Conciliacao").Columns("C").Find(What:=cell.Value, _
        LookIn:=xlFormulas, _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext)
        If Not temp Is Nothing Then
            ThisWorkbook.Sheets("Conciliacao").Select
            temp.EntireRow.Select

        End If
    End If
Next
End Sub

谢谢,

0 个答案:

没有答案