如何在vba excel中拆分包含多个分隔符的字符串？

Question

我想使用Excel VBA拆分包含多个分隔符的字符串.其中一个字符串是:

d1-d2 d3 d4  

我们有一个破折号和一个空格作为两个分隔符.我尝试了这个split功能,但它只用一个分隔符.

Answer 1

你可以先Replace在字符串上做一个然后进行拆分:

newString = Replace(origString, "-", " ")
newArray = Split(newString, " ")

Answer 2

用几个不同的分隔符进行分割；列出数组中的分隔符，用 for 循环替换它们，然后 split ：

' New delimiter
tDelimNew = "myDelimiter"

' Replace each possible delimiter
For Each tDelimOld In Array(";", " ", ".", "<==", ":", vbCr)
    tString = Replace(tString, tDelimOld, tDelimNew)
Next tDelimOld

' Remove duplicate delimiters
tString = Replace(tString, tDelimNew & tDelimNew, tDelimNew)

' Split ;)
tResult = Split(tString , tDelimNew)