VBA实现票据号查找：无匹配值时报错的问题求助

让我来帮你排查代码里的问题，你遇到的报错主要来自两个关键错误，还有一个返回值的处理缺失：

问题1：对象变量赋值缺少Set关键字 #

你原来的代码里，给rngholder赋值Find结果的时候，没有用Set：

rngholder = Worksheets("Ticket_No").Range("A2:B" & rw).Find(NS35, LookIn:=xlValues, lookat:=xlPart)

因为rngholder是Range类型的对象变量，给对象变量赋值必须用Set关键字。如果不用Set，VBA会尝试把Find返回的对象的默认属性（也就是单元格的值）赋值给它，当Find返回Nothing（没找到匹配）时，这个赋值就会直接触发类型不匹配错误，这就是你遇到的核心报错原因。

问题2：匹配值取值逻辑错误 #

当找到匹配单元格后，你写的：

holder = rngholder.Cells(rw, "A").Offset(, 1).Value

这里完全没必要用Cells(rw, "A")，rngholder已经是你找到的那个具体单元格了，加上Cells(rw, "A")会让你跳到整个数据区域的最后一行，根本不是匹配行的相邻列。直接用rngholder.Offset(0,1).Value就能拿到匹配单元格右侧相邻列的值。

问题3：未处理无匹配时的返回值 #

你的Function声明为返回Long类型，但如果没找到匹配，你没有给ticket_lookup赋值，这会导致Excel单元格显示#VALUE!错误。需要在Else分支里明确返回一个值（比如0，或者根据你的需求返回其他标记值）。

修正后的完整代码 #

Function ticket_lookup(NS35 As Long) As Long
    Dim rngholder As Range
    Dim rw As Long ' 建议用Long代替Integer，避免行数超过32767时溢出
    Dim lookupRange As Range
    
    ' 定义查找范围
    With Worksheets("Ticket_No")
        rw = .Range("A2").End(xlDown).Row
        Set lookupRange = .Range("A2:A" & rw) ' 只在A列查找，因为票据号在A列，B列是结果列
    End With
    
    ' 执行查找，注意加Set
    Set rngholder = lookupRange.Find(NS35, LookIn:=xlValues, LookAt:=xlWhole) ' 建议用xlWhole精确匹配，避免部分匹配误判
    
    If Not rngholder Is Nothing Then
        ' 直接取匹配单元格右侧相邻列的值
        ticket_lookup = rngholder.Offset(0, 1).Value
    Else
        ' 无匹配时返回0（可根据需求修改为-1等标记值）
        ticket_lookup = 0
    End If
End Function

额外优化建议 #

• 把查找范围限定在A列（Range("A2:A" & rw)），而不是A:B列，这样查找更精准，效率也更高。
• 用xlWhole代替xlPart做精确匹配，避免类似123匹配到1234这种误判（如果你的需求就是部分匹配，可以改回xlPart）。
• 用Long代替Integer存储行数，因为Excel的行数远超过Integer的最大值（32767），避免溢出错误。

这样修改后，不管有没有匹配值，代码都能正常运行，不会触发报错啦。

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