因此,我有本包含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
谢谢,