匹配整个单词/短语并replace

我试图用另一个replacestring，但问题是该string部分匹配其他string。

我试图创build一个函数，search另一个电子表格中的每一行，并返回该行，如果我的search短语find。 当使用较长的单词或独特的单词或者我input代码短语作为search条件时，脚本可以很好地工作。 问题是，如果string部分匹配其他string，它会被复制，我得到了很多错误的结果。

我需要function来停止在结果的单词内查找，而是将整个单词或短语作为一个整体进行匹配。

到目前为止，这是我的脚本：

Sub Light() Dim rng1 As Range Dim fnd1 As String fnd1 = "Quantity" Sheets("TEST").Activate Set rng1 = Sheets("TEST").Cells.Find(fnd1) If Not rng1 Is Nothing Then Range(Cells(rng1.Row, rng1.Column), Cells(Rows.Count, rng1.Column).End(xlUp)).Copy _ Sheets("TEMPLATE").Range("A5") Cells(1, 1).Select End If 

而在这里，我有我的问题，因为第二个search条件是部分满足和复制。

  Dim rng2 As Range Dim fnd2 As String fnd2 = "Quantity order min" Sheets("TEST").Activate Set rng2 = Sheets("TEST").Cells.Find(fnd2) If Not rng2 Is Nothing Then Range(Cells(rng2.Row, rng2.Column), Cells(Rows.Count, rng2.Column).End(xlUp)).Copy _ Sheets("TEMPLATE").Range("C5") Cells(1, 1).Select End If 

Answer 1

肯定会有更好的答案，这甚至可能达不到你想要的结果 – 但是到目前为止还没有任何其他的东西！

 Sub Light() Dim rng1 As Range Dim fnd1 As String Dim rng2 As Range Dim fnd2 As String fnd1 = "Quantity" fnd2 = "Quantity order min" Sheets("TEST").Activate Set rng1 = Sheets("TEST").Cells.Find(fnd1) If Not rng1 Is Nothing Then If Sheets("TEST").Cells.Find(fnd1, LookIn:=xlValues, lookat:=xlWhole) > 1 Then Sheets("TEMPLATE").Select Range("A5").Select ActiveCell.FormulaR1C1 = fnd1 End If End If Sheets("TEST").Activate Set rng2 = Sheets("TEST").Cells.Find(fnd2) If Not rng2 Is Nothing Then If Sheets("TEST").Cells.Find(fnd2, LookIn:=xlValues, lookat:=xlWhole) > 1 Then Sheets("TEMPLATE").Select Range("C5").Select ActiveCell.FormulaR1C1 = fnd2 End If End If End Sub