Excel VBA代码运行出现错误13类型不匹配问题求助

错误原因分析 #

你的原代码出现错误13类型不匹配，核心问题有两个：

1. VBA中不能直接用poiItemNum & poiPONum模拟Excel公式里的I:I&D:D数组拼接——Range对象直接用&运算符会被转为字符串（而非逐行拼接的数组），导致Match的查找参数类型不符合要求。
2. Val函数会强制转换内容为数字，破坏原有的文本/数字格式匹配逻辑（比如原公式中"001"&"PO123"，用Val后变成"1123"，完全偏离预期）。

修正方案 #

方案1：用Evaluate模拟Excel数组运算（简洁高效） #

利用Evaluate执行Excel式的数组拼接逻辑，直接复刻原公式的行为：

Dim matchResult As Variant
' 生成逐行拼接的匹配数组，完全对应原公式的I:I&D:D
matchResult = Application.Match(CStr(Item) & CStr(PONum), _
                                Evaluate(poiItemNum.Address & "&" & poiPONum.Address), _
                                0)

' 处理匹配结果：找到则取对应值，没找到则赋值空（可按需调整）
If Not IsError(matchResult) Then
    POPrice = Application.Index(poiUnitCost, matchResult)
Else
    POPrice = ""
End If

• 用CStr将Item和PONum转为字符串后拼接，保留原格式，兼容文本/数字混合场景。
• 用Application.Match替代WorksheetFunction.Match：前者匹配失败时返回错误值，可通过IsError判断；后者会直接抛出运行时错误。

方案2：手动数组拼接（更可控，适合大数据量） #

如果数据范围较大，读取数组后手动拼接效率更高，还能避免Evaluate的潜在限制：

Dim itemArr As Variant, poArr As Variant
Dim combinedArr As Variant
Dim i As Long

' 读取实际数据范围到数组（避免整列读取浪费资源）
itemArr = poiItemNum.Value
poArr = poiPONum.Value
combinedArr = Application.Index(itemArr, 0, 1) ' 初始化拼接数组

' 逐行拼接两列内容
For i = LBound(itemArr, 1) To UBound(itemArr, 1)
    combinedArr(i, 1) = CStr(itemArr(i, 1)) & CStr(poArr(i, 1))
Next i

' 执行匹配并取值
Dim matchResult As Variant
matchResult = Application.Match(CStr(Item) & CStr(PONum), combinedArr, 0)

If Not IsError(matchResult) Then
    POPrice = poiUnitCost.Cells(matchResult, 1).Value
Else
    POPrice = ""
End If

• 建议提前将poiItemNum、poiPONum、poiUnitCost定义为实际数据范围（而非整列），比如Set poiItemNum = Range("I1:I" & Cells(Rows.Count, "I").End(xlUp).Row)，大幅提升运行效率。

额外注意事项 #

• 不要使用整列范围（L:L/I:I等）：整列包含大量空单元格，不仅拖慢速度，还可能引入无效匹配。
• 若需严格匹配原公式的Val逻辑（不建议，除非明确需求），可将CStr替换为CStr(Val(...))，但会丢失文本型数字的前导零等格式信息。

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