VBA匹配问题

以下代码用于在两张纸之间进行匹配。 它工作正常,但它有问题的时候

例如在表格1中:(注意:我使用表格1中的内容进行表格2中的匹配)

Cells(1, 8) value: Rev# Cells(1, 3) value: REV# 

在表2中:

 Value for Rev#: 123xyz Value for REV#: PQRSABC 

Rev#和REV#是完全不同的东西,但是我从程序中得到的结果总是“123xyz”。 我们有任何想法得到正确的结果,而不是重命名REV#到其他?

感谢您的build议。

 icol = 1 For icol = 1 To numofcol FindString = Worksheets("Temp_A").Cells(1, icol).Value Set rng = ActiveSheet.Range(Cells(1, 1), Cells(numofrow1, numofcol1)).Find(what:=FindString, LookIn:=xlValues, LookAt:=xlWhole) If rng.Value = "Process Type:" Then If InStr(rng.Offset(-1, 0).Resize(1, 1).Value, ":") > 0 Then temp = vbNullString Else temp = rng.Offset(-1, 0).Resize(1, 1).Value End If Else If InStr(rng.Offset(1, 0).Resize(1, 1).Value, ":") > 0 Then temp = vbNullString Else temp = rng.Offset(1, 0).Resize(1, 1).Value End If End If