这个问题我之前帮不少人排查过，核心坑点其实在VBA的运算符逻辑和Excel单元格数据存储的差异上——你遇到的Runtime Error 13，本质是类型不匹配，但根源不是CStr没用，而是你用错了连接符，再加上Excel单元格的纯数字存储特性在搞鬼。

先拆解问题：

• 带连字符的产品编号是文本类型，pn.Value返回字符串，用+能正常做拼接；
• 纯数字的单元格，pn.Value返回数值类型，这时候用+连接字符串（品牌名）和数值，VBA会尝试把字符串转成数值做加法，品牌名肯定转不了数值，直接触发类型不匹配。

下面给你几个递进的解决方案，从快速修复到根源解决：

1. 最快修复：换用正确的字符串连接符+Text属性 #

把你的代码改成这样，立刻就能解决报错：

colData.Add marke.Value & " " & pn.Text

• &是VBA专门的字符串连接符，不管操作数是数值还是文本，都会强制转换成字符串后拼接，彻底避免类型不匹配的问题；
• pn.Text直接获取单元格显示的文本内容，不管单元格存储的是数值还是文本，完全还原你看到的内容，比Value属性更稳妥。

2. 根源解决：批量把纯数字单元格转成文本存储 #

如果希望从数据层面彻底解决，不用手动逐个回车触发文本标识，可以在宏开头加一段批量处理代码：

' 替换成你的产品编号所在区域，比如Sheet1的A列从第2行到最后一行
Dim productRange As Range
Set productRange = ThisWorkbook.Sheets("Sheet1").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)

' 第一步：设置单元格格式为文本
productRange.NumberFormat = "@"
' 第二步：强制把数值内容转成文本（避免Excel仍以数值存储）
Dim cell As Range
For Each cell In productRange
    ' 给内容前加单引号，强制Excel以文本存储，同时不影响显示
    cell.Value = "'" & cell.Value
Next cell

这段代码会自动把所有目标单元格转成文本格式，不需要手动回车触发绿色三角，宏运行时就能直接识别为文本类型。

3. 特殊场景兼容：长数字避免科学计数法 #

如果你的产品编号是超长纯数字（比如超过15位，Excel数值会丢失精度），用pn.Text可能会拿到科学计数法的字符串，这时候可以用Format函数强制转成完整数字字符串：

Dim productText As String
If IsNumeric(pn.Value) Then
    ' 用"0"格式强制显示完整数字，避免科学计数法
    productText = Format(pn.Value, "0")
Else
    productText = pn.Value
End If
colData.Add marke.Value & " " & productText

这样不管你的产品编号是带连字符的文本、纯数字数值还是超长数字，都能正常拼接并添加到集合里。

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