这是个挺常见的VBA跨环境兼容问题，我来帮你拆解下可能的原因和对应的解决办法：

可能的原因 #

1. 名称冲突（最常见） #

你的朋友的Excel环境里，可能存在某个自定义函数、加载项或者宏的名称也是Chr，这就导致编译器优先去调用这个自定义的Chr，而找不到VBA原生的Chr函数。这种情况即使引用列表看起来一致，也会出现报错。

2. 隐性的库引用异常 #

虽然你们的引用列表显示完全一致，但有可能朋友的系统中，VBA标准库（Microsoft Visual Basic for Applications）没有正确注册，或者Office版本差异导致库的底层实现有细微区别（比如你用Office 365，朋友用旧版Office 2016）。

3. 区域/语言环境的隐性影响 #

极少数情况下，非英语系统的区域设置可能会干扰VBA函数的解析，但这个概率比较低，因为Chr(10)是ASCII标准换行符，理论上不受区域影响。

快速解决办法 #

方案1：明确指定调用VBA原生函数 #

把代码里的Chr(10)改成VBA.Chr(10)，强制编译器调用VBA标准库的原生函数，避免名称冲突：

data() = Split(WS.Range("K" & i).Text, VBA.Chr(10))

方案2：使用VBA内置常量替代 #

VBA提供了内置的换行符常量vbLf，它等价于Chr(10)，而且不需要依赖Chr函数，兼容性更好：

data() = Split(WS.Range("K" & i).Text, vbLf)

方案3：排查名称冲突 #

让你的朋友打开VBA编辑器，按Ctrl+G打开立即窗口，输入以下命令并回车：

?VBA.Chr(10)

如果能正常返回换行符（显示为空行），说明是名称冲突；如果还是报错，那大概率是库引用的问题，可以让她尝试修复Office（通过控制面板的程序修复功能）。

修改后的完整代码片段示例 #

Dim wb As Workbook
Dim WS As Excel.Worksheet
Set wb = ActiveWorkbook
Set WS = wb.Sheets("Test")
Dim data() As String

' 使用vbLf替代Chr(10)，兼容性更强
data() = Split(WS.Range("K" & i).Text, vbLf)

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