VBA中VLookup无匹配时程序崩溃，IF语句处理无效求助

你的问题核心在于WorksheetFunction.VLookup在找不到匹配项时会直接抛出运行时错误，根本不会执行到你写的IF判断步骤——这就是为什么你修改后的代码没效果，程序还是会崩溃。下面给你两种可靠的解决方案：

方案1：用Application.VLookup替代WorksheetFunction.VLookup #

Application.VLookup和WorksheetFunction.VLookup的关键区别是：前者在无匹配时会返回错误值（而不是直接报错），我们可以用IsError()函数检测这个错误值，从而实现分支处理。

修改后的代码如下：

Private Sub LowPriceBtn_Click()
    Dim ProductNa As Range
    Dim ProducPr As Variant ' 必须用Variant，因为可能接收错误值
    
    Set ProductNa = Worksheets("Pdata").Range("A2:B7400")
    ProducPr = Application.VLookup(Me.ProBox1.Value, ProductNa, 2, False)
    
    If IsError(ProducPr) Then
        proRate1.Text = "Nothing available in database"
    Else
        proRate1.Text = ProducPr
    End If
End Sub

另外注意：你之前把ProducPr声明为Object是错误的，VLookup返回的是单元格值或错误值，用Variant类型才能正确接收。

方案2：使用错误捕获机制 #

如果你更习惯用WorksheetFunction.VLookup，可以通过On Error语句捕获错误，然后处理无匹配的情况：

Private Sub LowPriceBtn_Click()
    Dim ProductNa As Range
    
    Set ProductNa = Worksheets("Pdata").Range("A2:B7400")
    
    On Error Resume Next ' 临时允许错误继续执行，不中断程序
    proRate1.Text = Application.WorksheetFunction.VLookup(Me.ProBox1.Value, ProductNa, 2, False)
    
    ' 检查是否有错误发生
    If Err.Number <> 0 Then
        proRate1.Text = "Nothing available in database"
    End If
    
    On Error GoTo 0 ' 恢复正常的错误处理机制，避免后续代码忽略错误
End Sub

这两种方法都能解决程序崩溃的问题，你可以根据自己的习惯选择其中一种。

内容的提问来源于stack exchange，提问作者Shijin Abdul Latheef