VBA中.find方法赋值变量仅在第11行异常的问题求助

我编写的这段VBA脚本通过For循环遍历行，将目标单元格赋值给变量后，在另一个数据库工作表中搜索该字符串，再根据数据库中找到的位置设置一系列值。脚本在第6至120行大多运行正常，但当sRow=11时，targetCell能正确获取值，可databaseLoc却莫名指向目标位置上方两个单元格，找不到该行或对应数据库位置有特殊之处，求排查思路。

For sRow = 6 To 120
        
        Set targetCell = ActiveWorkbook.Worksheets("Master Job Schedule").Cells(sRow, 7)
        
        If Not IsEmpty(targetCell.Value) Then
            
            Set databaseLoc = ActiveWorkbook.Worksheets("Parts Database").Cells.Find(targetCell)
            
                If databaseLoc Is Nothing Then
                    ActiveWorkbook.Worksheets("Master Job Schedule").Range("E2").Value = "Part " & targetCell & " is missing from the parts database. Calculation aborted."
                    MsgBox "Part " & targetCell & " is missing from the parts database. Calculation aborted."
                    Exit Sub
                End If
            'Copy Description And Outside Process Req
            ActiveWorkbook.Worksheets("Master Job Schedule").Cells(sRow, 10).Value = ActiveWorkbook.Worksheets("Parts Database").Cells(databaseLoc.Row + 1, 1)
            
            ActiveWorkbook.Worksheets("Master Job Schedule").Cells(sRow, 15).Value = ActiveWorkbook.Worksheets("Parts Database").Cells(databaseLoc.Row, 6)
            
            hoursPerPart = ActiveWorkbook.Worksheets("Parts Database").Cells(databaseLoc.Row, 5)
            
            totalHours = ActiveWorkbook.Worksheets("Master Job Schedule").Cells(sRow, 12).Value / hoursPerPart
            
            roundDays = Int(-totalHours / 8) - 1
            
            shipDate = ActiveWorkbook.Worksheets("Master Job Schedule").Cells(sRow, 13).Value
            
            startDate = wf.WorkDay(shipDate, roundDays)
            
            ActiveWorkbook.Worksheets("Master Job Schedule").Cells(sRow, 2).Value = startDate
        
        End If
        
        If ActiveWorkbook.Worksheets("Master Job Schedule").Cells(sRow, 1) = "" Then Exit For
            
    Next sRow

排查方案 #

• 明确指定Find方法参数：Find方法会默认沿用上次搜索的参数（如搜索方向、匹配规则），这是导致偏移的常见原因。给Find方法添加完整参数，避免遗留状态干扰：

  Set databaseLoc = ActiveWorkbook.Worksheets("Parts Database").Cells.Find( _
      What:=targetCell.Value, _
      LookIn:=xlValues, _
      LookAt:=xlWhole, _
      SearchOrder:=xlByRows, _
      SearchDirection:=xlNext, _
      MatchCase:=False _
  )
  

  重点是LookAt:=xlWhole（强制完全匹配，避免部分匹配导致的错误命中），同时明确搜索方向和范围。

• 检查内容一致性：

  • 对比第11行targetCell和数据库目标单元格的隐形字符：用Debug.Print Asc(targetCell.Value)和Debug.Print Asc(数据库目标单元格.Value)输出字符编码，排查空格、换行符等不可见字符导致的匹配偏差。
  • 检查数据库中是否存在重复匹配项：如果第11行的targetCell值在数据库上方有重复，且上次搜索的起始位置在目标位置之后，Find会循环命中上方的旧条目。

• 添加调试输出：在sRow=11时强制输出关键变量，定位问题环节：

  If sRow = 11 Then
      Debug.Print "targetCell值: " & targetCell.Value
      Debug.Print "数据库找到的值: " & databaseLoc.Value
      Debug.Print "找到的行号: " & databaseLoc.Row
  End If
  

  通过立即窗口的输出，确认是搜索逻辑问题还是内容匹配问题。

• 避免依赖ActiveWorkbook：改用明确的工作簿对象，防止因工作簿激活状态变化导致的错误：

  Dim wb As Workbook
  Set wb = ThisWorkbook
  Set targetCell = wb.Worksheets("Master Job Schedule").Cells(sRow, 7)
  Set databaseLoc = wb.Worksheets("Parts Database").Cells.Find(...)
  

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