excel - 如何在 MS Excel 中制作自定义拆分数组功能？

Question

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

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

将在与书面公式中相同的数组中返回溢出数组结果：

20
30
40
50
60

我尝试在 VBA 函数中使用 Split(String,";") 但它只返回 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

1. 不要调用你的函数Split
2. 使用嵌套Replace
3. 我们需要返回一个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")