VBA中FirstPartMatch函数范围引用错误问题求助

看起来你的问题核心是跨Excel实例的对象引用冲突，我来帮你拆解分析并给出解决方案：

问题根源 #

你通过open_wb_onedrive用一个全新的Excel实例（objLogExcel）打开了云端的data.xlsx，但你的FirstPartMatch函数是写在当前运行代码的Excel实例的VBA模块里的。当你把属于另一个实例的Range对象（比如.Range("V1:V" & lastrow)，属于云端工作簿的工作表）传递给这个函数时，VBA无法正确处理跨实例的对象引用，导致函数默认使用了当前实例的ActiveSheet范围（也就是你说的当前文件的A列）。

另外还有两个小细节需要修正：

• 你的函数返回的是字符串"#NA"，这不是Excel标准的错误值，应该用CVErr(xlErrNA)来返回真正的#N/A错误
• openwb变量如果没有全局声明，可能会有作用域问题，导致后续引用出错

解决方案 #

我们可以修改FirstPartMatch函数，让它直接接收工作表对象和列信息，避免传递跨实例的Range对象。这样就能确保函数访问的是目标工作簿的正确范围。

步骤1：修改FirstPartMatch函数

把函数改成直接接收工作表、列号和搜索行数，而不是Range对象：

Function FirstPartMatch(searchStr As String, targetWs As Worksheet, targetCol As Long, maxRow As Long) As Variant
    Dim rowIndex As Long
    Dim position As Long
    Dim cellVal As String
    
    position = 0
    
    For rowIndex = 1 To maxRow
        cellVal = LCase(targetWs.Cells(rowIndex, targetCol).Value2)
        If InStr(1, cellVal, LCase(searchStr)) > 0 Then
            position = rowIndex
            Exit For
        End If
    Next rowIndex
    
    If position > 0 Then
        FirstPartMatch = position
    Else
        FirstPartMatch = CVErr(xlErrNA) ' 返回标准的#N/A错误
    End If
End Function

步骤2：修改调用代码

在cmdOk_Click里，把原来调用FirstPartMatch的地方改成新的参数格式：

' 检查假期是否已存在
If Not IsError(FirstPartMatch(name, ws, 22, lastrow)) Then
    MsgBox ("Holiday already exists")
    GoTo Skip
Else
    ' 添加新假期数据
    .Cells(lastrow, 22).Value = name
    .Cells(lastrow, 23).Value = vdate
    
    ' 查找员工所在行
    holiday = FirstPartMatch(name, ws, 1, Rlastrow)
    If Not IsError(holiday) Then
        .Cells(holiday, 1).Value = name & " Holiday until " & vdate
    End If
End If

步骤3：确保全局变量声明

在模块的顶部（所有子过程之外）添加全局变量声明，避免openwb的作用域问题：

Public openwb As Workbook

额外优化建议 #

• 把open_wb_onedrive里的objLogExcel.Visible = True改成False，避免弹出额外的Excel窗口，除非你需要调试
• 操作完云端工作簿后记得关闭并释放对象，避免内存泄漏：

' 在Skip标签后添加：
openwb.Close SaveChanges:=True
objLogExcel.Quit
Set openwb = Nothing
Set objLogExcel = Nothing

这样修改后，就能保证函数准确访问云端工作簿的指定列，不会再出现范围引用错误了。

备注：内容来源于stack exchange，提问作者Believe82