如何在 MS Excel 中制作自定义拆分数组函数？

Question

如何使用 VBA 中的 Split() 制作自定义函数 Split(str as String, delimiter as String) 以在工作表中使用..它将 return 作为数组或溢出结果.. 例如，

Split("{20;30;40;50;60}",";")

将 return 向下溢出 Array 结果与书面公式中的数组相同：

我尝试在 VBA 函数中使用 Split(String,";") 但它只有 return 1 个值和文本类型.. 如果有，我还需要删除字符串中的“{”和“}”，但即使不存在也接受它..

Answer 1

UDF 应该使用二维数组:

Public Function splitt(s As String, sep As String)
    arr = Split(s, sep)
    
    ReDim arr2(0 To UBound(arr), 1 To 1)
    
    For i = LBound(arr) To UBound(arr)
        arr2(i, 1) = arr(i)
    Next i
    
    splitt = arr2
End Function

示例：

与 Excel 365 ，它将自动溢出。如果没有 Excel 365，则需要数组项。

Answer 2

不要调用你的函数Split
使用嵌套Replace
我们需要return一个String数组。

Function mysplit(str As String, deli As String) As String()
    mysplit = split(Replace(Replace(str, "{", ""), "}", ""), deli)
End Function

那么我会这样称呼它：

=LET(x,mySplit("{20;30;40;50;60}",";"),IF(ISNUMBER(--x),--x,x))

如果你想转置然后使用TRANSPOSE

=LET(x,mySplit("{20;30;40;50;60}",";"),TRANSPOSE(IF(ISNUMBER(--x),--x,x)))

无需 vba:

一个公式即可完成所有操作

=FILTERXML("<a><b>"&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE("{20;30;40;50;60}",";","</b><b>"),"}",""),"{","")&"</b></a>","//b")

如何在 MS Excel 中制作自定义拆分数组函数？

How to made custom Split array function in MS Excel?

excel

vba

excel-formula

excel-365