文本框LotNum值传入XLookup函数无法匹配的问题求助

问题根源 #

文本框LotNum.Value返回的是字符串类型，而工作表H列中的目标数据（如1444825）是数字类型。XLookup默认启用精确匹配模式，会严格校验数据类型，类型不匹配时无法识别为匹配项。直接输入数字时是数值类型，和H列数据类型一致，因此能正常匹配。

解决方案 #

根据LotNum的取值场景，选择以下两种处理方式：

场景1：LotNum值仅包含可转换为数字的内容

将文本框值转换为数值类型后再匹配，同时替换WorksheetFunction.XLookup为Application.XLookup，避免找不到匹配时抛出运行时错误：

Public ICN As Variant

Dim lotValue As Variant
lotValue = Val(LotNum.Value)
' 最后一个参数为匹配失败时的默认返回值，可按需修改
ICN = Application.XLookup(lotValue, Sheets(xlRangeFound).Range("H:H"), Sheets(xlRangeFound).Range("U:U"), "未找到匹配项")

场景2：LotNum值包含字母（混合字母数字）

将H列的匹配范围转换为文本类型，与文本框的字符串类型统一：

Public ICN As Variant

' 用TEXT函数将H列数据转为文本格式，确保类型匹配
ICN = Application.XLookup(LotNum.Value, WorksheetFunction.Text(Sheets(xlRangeFound).Range("H:H"), "@"), Sheets(xlRangeFound).Range("U:U"), "未找到匹配项")

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