如何在VBA中编写分号分隔列表转数组函数？及测试报错排查

你的代码存在三个关键问题，直接导致了类型不匹配错误：

• 函数调用未赋值给变量：你直接调用SemiColonListToArray (ExampleRaw)，但没有把函数返回的数组保存到变量中，后续循环根本没有可遍历的有效数据。
• 变量拼写错误：循环里的SemiColotListToArray是拼写失误，正确的函数名是SemiColonListToArray（少了一个字母n）。
• 缺少变量声明（可选但关键）：未启用Option Explicit，拼写错误无法被提前检测，建议在模块顶部添加该语句强制变量声明，避免低级错误。

修复后的完整代码 #

Option Explicit

Sub Test()
    Dim ExampleRaw As String
    Dim resultArray As Variant
    Dim Item As Variant
    
    ExampleRaw = "234;BB-154;39a3"
    ' 将函数返回的数组赋值给变量，注意不要加多余括号（否则会强制转为单个Variant值而非数组）
    resultArray = SemiColonListToArray(ExampleRaw)
    
    For Each Item In resultArray
        Debug.Print Item
    Next Item
End Sub

Function SemiColonListToArray(semiColonList As String) As Variant
    SemiColonListToArray = Split(semiColonList, ";")
End Function

额外说明 #

• 调用函数时不要给参数加括号（除非使用Call语句，比如Call SemiColonListToArray(ExampleRaw)），否则VBA会把返回的数组强制转为单个Variant值，后续遍历时就会触发类型不匹配。
• 给函数参数指定As String类型，让代码逻辑更严谨。

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