我之前也碰到过好几次一模一样的问题，核心原因几乎都是从单元格读取的PartNumber包含了肉眼看不见的隐藏字符——看起来和目标字符串完全一样，但实际内容有差异，导致Find函数匹配失败。

为什么会出现这种差异？ #

• 当你直接给PartNumber赋值具体字符串（比如PartNumber = "BR58JE3SO"）或者在Find函数里写死字符串时，变量是完全纯净的目标文本，没有额外字符，自然能精准匹配。
• 但从单元格读取值时，原单元格的内容可能带有前导/末尾空格、换行符（vbLf/vbCr）、非打印ASCII控制字符，哪怕你用CStr()转换类型，这些隐藏字符也会被保留下来，让两个看起来一样的字符串实际不相等。

怎么验证这个问题？ #

你可以在代码里加一行调试输出，查看PartNumber的真实内容：

PartNumber = CStr(PartNumber)
Debug.Print "当前PartNumber: '" & PartNumber & "'" ' 用单引号包裹，方便看到空格

打开VBA编辑器的立即窗口（按Ctrl+G调出），如果输出的内容是'BR58JE3SO '（末尾带空格）或者'BR58JE3SO'后面有奇怪的空白，那就能实锤是隐藏字符的问题。

解决方案：清理字符串中的隐藏字符 #

在将单元格值赋值给PartNumber后，添加清理逻辑，去掉所有可能的干扰字符：

Do While Lin < LastRow
    TPICode = Worksheets("C Parts Prices").Range("A" & Lin).Value
    Do While col <= NbCol + 2
        ' 读取单元格值
        PartNumber = Worksheets("C Parts Prices").Range(Split(Cells(1, col).Address, "$")(1) & Lin).Value
        ' 第一步：转字符串+去掉前后空格
        PartNumber = Trim(CStr(PartNumber))
        ' 第二步：清除换行符和回车符
        PartNumber = Replace(Replace(PartNumber, vbLf, ""), vbCr, "")
        ' 第三步：清除所有非打印ASCII控制字符（可选但推荐）
        PartNumber = CleanString(PartNumber)
        
        ' 后续的Find逻辑保持不变，建议去掉Activate直接引用对象
        With SecondWkbk.Worksheets(PriceListSheet).UsedRange
            Set SearchResult = .Find(What:=PartNumber, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns, MatchCase:=False)
        End With
        '后续逻辑...
    Loop
Loop

这里用到的CleanString辅助函数需要单独定义（放在模块里即可）：

Function CleanString(str As String) As String
    Dim i As Integer
    ' 清除ASCII 0-31的所有非打印控制字符
    For i = 0 To 31
        str = Replace(str, Chr(i), "")
    Next i
    CleanString = str
End Function

额外优化建议 #

• 尽量避免使用Activate方法，直接通过对象引用操作工作表，这样代码更高效也更稳定（上面的代码已经做了调整）。
• 如果PriceListSheet里的零件编号是数值格式，而你读取的PartNumber是字符串格式，也可能导致匹配失败，可以尝试将两边统一格式（比如都转成字符串）。

内容的提问来源于stack exchange，提问作者zepeu