我来帮你搞定这个Find方法匹配错误的问题，咱们一步步拆解问题出在哪：

1. 匹配方式导致的误匹配 #

你代码里用了xlPart作为LookAt参数，这会让Excel查找包含目标值的单元格，而不是精确匹配整个单元格内容。比如如果Sheet2的A6单元格里有个包含"110"的内容（比如带空格的 110或者其他组合），就会被优先匹配到，直接跳过A1的纯"110"。

解决方法：把LookAt参数改成xlWhole，强制精确匹配整个单元格。

2. 数据类型不匹配 #

你把提取到的Code转成了整数CInt(Code)，但如果Sheet2的A列单元格是文本格式（比如输入时加了单引号'110），数字类型的查找值和文本格式的单元格就会出现匹配异常。

解决方法：要么保留Code的文本格式（去掉CInt(Code)这行），要么确保Sheet2的A列设置为数字格式。

3. Find的起始位置默认值坑 #

如果不指定After参数，Find方法会从当前活动单元格开始查找，而不是从A1开始。如果你的活动单元格不是A1，第一次查找就会跳过A1，直接从当前单元格往后找，这也会导致匹配到错误的行。

解决方法：明确指定After参数为PurposeCode.Cells(PurposeCode.Cells.Count)，这样Excel会从最后一个单元格之后开始查找，也就是从A1开始遍历。

修改后的完整代码 #

这里把所有修复点都标注出来了：

Sub DoTheWork()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim FSO As Object
    Dim TF As Object
    Dim TextFile
    Dim TextLine
    Dim TextLines As Variant
    Dim x As Integer
    Dim Code As String
    Dim PurposeCode As Range
    Dim SearchArea As Range
    Dim KeyRow As Integer
    
    Set wb = Application.ActiveWorkbook
    Set ws = ActiveWorkbook.Sheets(2)
    TextFile = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TF = FSO.OpenTextFile(TextFile, 1)
    TextLine = TF.ReadAll
    TF.Close
    
    TextLines = Split(TextLine, vbCrLf)
    Set PurposeCode = ws.Range("A:A")
    
    For x = 0 To UBound(TextLines, 1)
        Code = Right(Left(TextLines(x), 4), 3)
        If IsNumeric(Code) Then
            ' 移除CInt转换，保留文本格式避免类型不匹配
            ' Code = CInt(Code)
            
            ' 修复：精确匹配+指定起始位置
            Set SearchArea = PurposeCode.Find(What:=Code, _
                                             LookIn:=xlValues, _
                                             LookAt:=xlWhole, ' 改为精确匹配
                                             SearchOrder:=xlByRows, _
                                             SearchDirection:=xlNext, _
                                             After:=PurposeCode.Cells(PurposeCode.Cells.Count)) ' 从A1开始查找
            
            If Not SearchArea Is Nothing Then
                KeyRow = SearchArea.Row
                ' 确保引用目标工作表的单元格，避免活动工作表干扰
                ws.Cells(KeyRow, 2).Value = Code
            End If
        End If
    Next
End Sub

额外排查建议 #

• 手动用Ctrl+F在Sheet2的A列查找"110"，看看是否能准确定位到A1，验证单元格内容是否有隐藏空格或不可见字符；
• 检查Sheet2的A列格式：右键单元格→设置单元格格式，确认是数字还是文本类型，确保和查找值的类型一致。

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