VBA合并数值与文本时出现ERROR 13 TYPE MISMATCH报错求助

错误原因 #

• 第一，字符串拼接符使用错误：VBA中+运算符优先执行算术加法，只有两边都是字符串时才会执行拼接逻辑，一旦其中一边是数值/错误值就会触发类型不匹配，字符串拼接请统一使用&运算符。
• 第二，m3的VLookup参数错误：你给m3设置的查找范围是D4:E10001，该范围仅包含2列（D为第1列、E为第2列），但你指定返回第4列的内容，必然会返回#REF!错误值。你仅对m1做了错误判断，未校验m3的有效性，错误值参与运算直接触发类型不匹配。
• 第三，存在其他隐含风险：原代码中循环外的If m1 = ""判断逻辑，若没有符合条件的单元格触发循环，rngCell对象未初始化会直接报错。

修复方案 #

1. 将报错行的+全部替换为字符串专用拼接符&
2. 修正m3的VLookup查找范围为全列范围，补充对m3的错误判断
3. 把原循环外的空值判断移动到循环内部，避免空对象报错

修正后的核心代码片段 #

' 修正m3的VLookup查找范围为D4:K10001，才能正常取到第4列的值
m3 = Application.VLookup(rngCell.Value, ThisWorkbook.Sheets("Item Names").Range("D4:K10001"), 4, False) 'TEXT VALUE
m5 = "1"
m4 = Application.VLookup(rngCell.Value, ThisWorkbook.Sheets("Item Names").Range("D4:K10001"), 5, False) 'NUMERIC VALUE
' 补充对m3的错误校验
If Not IsError(m1) And Not IsError(m3) Then
    Application.EnableEvents = False
    rngCell.Value = m1  'TEXT VALUE
    rngCell.Offset(, 1).Value = m2  'NUMERIC VALUE
    ' 替换+为&做字符串拼接
    rngCell.Offset(, 2).Value = m5 & " " & m3 'ALPHA-NUMERICAL VALUE
    rngCell.Offset(, 3).Value = m4  'NUMERIC VALUE
    Application.EnableEvents = True
Else
    ' 匹配不到时直接清空对应单元格，替代原循环外的判断逻辑
    rngCell.Offset(, 2).Value = ""
End If

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