如何在vba（excel）中使用multichar字符串作为分隔符拆分字符串

Question

请告诉我如何将字符串拆分成多个部分，使用multichar字符串作为分隔符，而不是单个符号

例如

array = MySplit("xdatayydatazzz", "data");

和结果

array(0) = "x"
array(1) = "yy"
array(2) = "zzz"

Answer 1

嗯，为什么不使用：

arr = Split("xdatayydatazzz", "data")

为了确定，我对此进行了测试，并且按预期工作。拆分文档here。

Answer 2

首先对字符串进行替换，例如具有所选字符的数据，例如@然后拆分：

secondstring = Replace("xdatayydatazzz", "data", "@")

array = Split(secondstring, "@")

可以将Split嵌套在Split中以保持一步。