Excel 比较两张纸中的两列，但从菠萝中过滤苹果，从响尾蛇中过滤蛇

嗨，我有下面的代码，我基本上是在我的朋友使用它之前创建的。唯一的区别是我的代码使用动物，而他的代码使用水果。有人能给我建议如何过滤吗？比如说蛇和响尾蛇，苹果和菠萝，因为他用水果从菠萝中检测出苹果。这是我的密码。善意的建议，如果我的问题是一团糟，请问我，这样我可以更清楚。对不起我的英语

Sub lookup()
Dim TotalRows As Long
Dim rng As Range
Dim i As Long

'Copy lookup values from sheet1 to sheet3
Sheets("Sheet1").Select
TotalRows = ActiveSheet.UsedRange.Rows.Count
Range("A1:A" & TotalRows).Copy Destination:=Sheets("Sheet3").Range("A1")

'Go to the destination sheet
Sheets("Sheet3").Select

For i = 1 To TotalRows
'Search for the value on sheet2
Set rng = Sheets("Sheet2").UsedRange.Find(Cells(i, 1).Value)
'If it is found put its value on the destination sheet
If Not rng Is Nothing Then
    Cells(i, 2).Value = rng.Value
End If
Next
End Sub

---

我需要帮助。谢谢。

我找到了问题的答案

我只是搜索了一下苹果，然后把它变成了更独特的苹果

这是密码

Dim cl As Range 

For Each cl In Range ("Q10:Q1000") 
  If cl Like "apple" Then 
    cl = "apples"   
  End if 
Next cl

---

在.Find方法中，您可以为精确匹配（不区分大小写）将

LookAt

参数指定为

xlother

，为分词匹配将

xlPart

指定为<代码>设置rng=Sheets（“Sheet2”）.UsedRange.Find（单元格（i，1）.值LookAt:=lPart）？？我是正确的还是错误的？只是缺少一个逗号

Set rng=Sheets（“Sheet2”）.UsedRange.Find（Cells（I，1）.Value，LookAt:=lPart）

如果您不想部分匹配，如果您找到了自己问题的解决方案，请使用

xlother

操作符而不是

xlPart

@Patrick，请把它作为一个答案，并接受它作为一个解决方案。这样，遇到你问题的人会很容易找到你的解决方案。你的问题也不会再出现在“未回答”列表中。