VBA跨工作簿复制单元格值至匹配行J列时出现编译错误求助

编译错误原因 #

原代码的核心问题是变量类型误用：

• EdgeScore被声明为Integer，它存储的是单元格的数值，不是Excel的Range对象，因此不能调用.Copy方法，这直接导致编译错误。
• 另外，未处理Find方法找不到匹配项的情况，会引发运行时错误。

修正后的代码 #

Sub Copy_Click()
    Dim SearchStock As String
    Dim EdgeScore As Integer
    Dim targetWs As Worksheet
    Dim foundCell As Range
    
    ' 读取源数据
    SearchStock = Workbooks("Checklist_Test").Worksheets("Screening_Dashboard").Range("D2").Value
    EdgeScore = Workbooks("Checklist_Test").Worksheets("Screening_Dashboard").Range("D6").Value
    
    ' 目标工作表对象引用（简化后续代码）
    Set targetWs = Workbooks("Test").Worksheets("Universe")
    
    ' 在目标工作表B列查找匹配项（精确匹配单元格值）
    Set foundCell = targetWs.Range("B:B").Find(What:=SearchStock, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 判断是否找到匹配项，找到则直接赋值（无需复制粘贴）
    If Not foundCell Is Nothing Then
        foundCell.Offset(0, 8).Value = EdgeScore
    Else
        ' 可选：找不到时的提示或处理
        MsgBox "未找到匹配的库存：" & SearchStock
    End If
End Sub

关键修改点 #

• 移除错误的EdgeScore.Copy调用，改用直接赋值的方式，既避免类型错误，又提升代码效率。
• 新增foundCell变量存储Find方法的结果，通过If Not foundCell Is Nothing判断是否找到匹配项，防止运行时错误。
• 引入targetWs对象变量，简化代码结构，减少重复的对象引用。
• 给Find方法补充LookIn:=xlValues和LookAt:=xlWhole参数，明确精确匹配规则，避免默认参数带来的意外结果。

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