跨工作簿查找并复制值的VBA问题求助

我来帮你排查这个Error 91的问题，顺便解决Offset无效的情况——这个错误大多是因为查找后没判断是否找到匹配项，或者工作簿/工作表的引用没处理好，咱们一步步来：

1. 先搞定工作簿/工作表的可靠引用 #

不要依赖ActiveWorkbook或ActiveSheet，这种方式很容易因为操作时切换窗口而出错，最好明确指定对象：

Dim wbUpdate As Workbook
Dim wsUpdate As Worksheet
Dim wbPurchase As Workbook
Dim wsPurchase As Worksheet

' 注意：如果工作簿已经打开，直接用文件名（记得加后缀避免重名）；如果没打开，用Workbooks.Open("文件完整路径")
Set wbUpdate = Workbooks("to_update_example_1.xlsx")
Set wsUpdate = wbUpdate.Worksheets("你的数据工作表名") ' 替换成实际表名，比如"Sheet1"
Set wbPurchase = Workbooks("purchasing_list.xlsx")
Set wsPurchase = wbPurchase.Worksheets("你的数据工作表名")

2. 修复查找逻辑，彻底解决Error 91 #

Error 91本质是操作了一个未设置的对象——当Range.Find找不到匹配项时，会返回Nothing，这时候直接去操作它就会报错。所以必须先判断是否找到匹配项：

Dim foundCell As Range
Dim currentName As String
Dim vVal2 As Variant
Dim lastRow As Long
Dim i As Long

' 获取to_update里的最后一行数据（假设名称在A列）
lastRow = wsUpdate.Cells(wsUpdate.Rows.Count, "A").End(xlUp).Row

' 从第2行开始循环（跳过表头）
For i = 2 To lastRow
    currentName = wsUpdate.Cells(i, "A").Value
    vVal2 = wsUpdate.Cells(i, "B").Value ' 假设Qty在B列，根据你的实际位置调整
    
    ' 在purchasing的名称列查找（假设名称在A列，用精确匹配）
    Set foundCell = wsPurchase.Range("A:A").Find( _
        What:=currentName, _
        LookIn:=xlValues, _
        LookAt:=xlWhole, ' 要部分匹配就改成xlPart
        MatchCase:=False)
    
    ' 关键判断：只有找到匹配项时才写入数据
    If Not foundCell Is Nothing Then
        ' 把Qty写入名称旁的列，比如右边一列用Offset(0,1)，根据你的需求调整偏移量
        foundCell.Offset(0, 1).Value = vVal2
    Else
        ' 可选：没找到时的调试提示，方便排查
        Debug.Print "未找到匹配名称：" & currentName
    End If
Next i

3. 解决Offset无效的问题 #

你之前用ActiveCell.Offset无效，大概率是因为ActiveCell并不是你找到的那个匹配单元格——依赖ActiveCell很不稳定，上面的代码直接用foundCell.Offset操作找到的单元格，完全不依赖活动单元格，就不会出现无效的情况。

另外要确认Offset的参数：Offset(行偏移量, 列偏移量)，比如Offset(0,1)是向右一列，Offset(1,0)是向下一行，别搞反了。

4. 额外优化建议 #

• 关闭屏幕更新，提升代码运行速度：

  Application.ScreenUpdating = False
  ' 你的核心代码放在这里
  Application.ScreenUpdating = True
  

• 缩小查找范围，避免整列查找浪费资源：

  ' 只在purchasing的已用名称范围里查找
  Dim purchaseLastRow As Long
  purchaseLastRow = wsPurchase.Cells(wsPurchase.Rows.Count, "A").End(xlUp).Row
  Set foundCell = wsPurchase.Range("A2:A" & purchaseLastRow).Find(...)
  

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