VBA自定义SplitPath函数如何适配CTRL-SHIFT-ENTER数组公式处理范围

改造要点 #

完全适配Excel原生公式触发逻辑，不通过VBA手动遍历单元格构造二维数组，自动兼容两种调用模式：

• 单单元格传入按回车调用时，保留原Split拆分逻辑，返回一维字符串数组，与原函数使用体验一致
• 多单元格区域传入按Ctrl+Shift+Enter触发数组公式时，依托Excel原生数组广播计算能力，自动对区域内每个单元格执行Split操作，返回嵌套结构的结果数组

改造后代码 #

Function SplitPath(rng As Variant) As Variant
    ' 单值场景：对应普通单单元格调用
    If Not IsArray(rng) Then
        SplitPath = Split(CStr(rng), "\")
        Exit Function
    End If
    
    ' 数组场景：对应CSE多单元格数组公式调用，计算逻辑交由Excel原生执行，无VBA手动遍历
    SplitPath = Application.Evaluate( _
        "=INDEX(TEXTSPLIT(" & rng.Address & ",\""\""),0,0)" _
    )
End Function

使用说明 #

• 单单元格调用：直接输入=SplitPath(A1)按回车即可，返回该单元格路径按\拆分的一维数组，Excel 365支持自动溢出展示，低版本可选中对应数量的相邻单元格按Ctrl+Shift+Enter填充
• 多单元格调用：选中行列数足够容纳结果的区域（行数与传入路径区域一致，列数不少于单条路径的最大拆分分段数），输入=SplitPath(A1:C1)后按Ctrl+Shift+Enter，即可得到预期的嵌套数组结果

实现未使用VBA循环遍历单元格、手动拼接二维数组的逻辑，两种调用模式的分流完全依托Excel自身的参数传递与数组计算规则，未引入路径拆分的其他替代方案。

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