创建固定参数的VBA自定义VLOOKUP函数遇运行问题求助

你的代码没法运行的核心问题是把自定义函数嵌套在了Sub过程里面，VBA不允许这种嵌套写法。另外，你想要的是能在工作表单元格直接调用的自定义函数（UDF），而不是一个需要手动执行的Sub过程。

下面是修正后的代码，完全满足你的需求：用户只需要提供查找值，函数会自动使用固定的查找区域、列索引和匹配方式返回结果：

Public Function GetDataType(lookupValue As Variant) As Variant
    ' 固定查找区域：指定工作表的D列到E列（请替换为你实际使用的工作表名称）
    Dim dataRange As Range
    Set dataRange = ThisWorkbook.Sheets("Sheet1").Range("D:E")
    
    On Error Resume Next ' 处理查找不到值的异常情况
    GetDataType = Application.WorksheetFunction.VLookup(lookupValue, dataRange, 2, 0)
    If Err.Number <> 0 Then
        GetDataType = CVErr(xlErrNA) ' 找不到匹配值时返回标准的#N/A错误
        ' 若需要自定义提示，可改成：GetDataType = "未找到对应结果"
    End If
    On Error GoTo 0
End Function

代码细节说明： #

• Public Function 声明这是一个可在工作表中直接调用的自定义函数，函数名GetDataType可根据你的需求修改
• lookupValue As Variant 是唯一需要用户传入的参数，支持文本、数字等多种类型的查找值
• 我们把table_array固定为指定工作表的D:E列，column_index_no固定为2（取查找区域的第二列），exact_match固定为0（精确匹配）
• 加入错误处理逻辑，避免查找失败时函数返回杂乱的错误代码，而是返回标准的#N/A或自定义提示

使用方式： #

在工作表任意单元格中输入公式：

=GetDataType(A1)

其中A1是你存放查找值的单元格，函数会自动返回D:E列中对应的匹配结果。

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