你的问题核心在于Application.Evaluate的255字符长度限制，这是Excel的固有约束，绕开它就能解决问题。下面给你两种实用方案：

方案一：自定义VBA函数（无字符限制） #

直接编写一个专门处理这类带首尾分隔符的字符串转数组的函数，完全不用Evaluate，彻底避开长度限制：

Function SplitTextToArray(inputText As String, Optional delimiter As String = ";") As Variant
    Dim tempArray As Variant
    Dim cleanedText As String
    
    ' 先清理首尾的分隔符
    cleanedText = Trim(inputText)
    If Len(cleanedText) = 0 Then
        SplitTextToArray = Array()
        Exit Function
    End If
    
    If Left(cleanedText, 1) = delimiter Then
        cleanedText = Mid(cleanedText, 2)
    End If
    If Right(cleanedText, 1) = delimiter Then
        cleanedText = Left(cleanedText, Len(cleanedText) - 1)
    End If
    
    ' 拆分字符串为数组
    tempArray = Split(cleanedText, delimiter)
    
    ' 返回最终数组
    SplitTextToArray = tempArray
End Function

使用方法 #

直接在Excel单元格里调用：
=SplitTextToArray(Index[Industries])
不管你的源字符串多长，都能直接生成对应的文本数组，完全没有字符限制。

方案二：Excel 365/2021内置函数（无需VBA） #

如果你用的是支持动态数组的Excel版本，可以直接用内置函数组合实现，不用写VBA：

=FILTER(TEXTSPLIT(Index[Industries],";"),TEXTSPLIT(Index[Industries],";")<>"")

原理是：

1. TEXTSPLIT按分号拆分字符串，会因为首尾的分号生成空元素
2. FILTER过滤掉所有空元素，得到干净的文本数组

为什么原来的方法失效？ #

Application.Evaluate（包括工作表里的EVALUATE函数）确实存在255字符的长度限制，这是Excel的底层约束，没有办法直接突破——所以最好的解决方式就是彻底绕开它，用直接处理字符串的逻辑来生成数组。

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