使用多個分隔符拆分字符串

Question

我想使用 Excel VBA 拆分具有多個分隔符的字符串。 其中一個字符串是：

Raw String: Surat/Gujarat-India-East(Asia)+Earth.
Intended Result: Surat Gujarat India East Asia Earth.

問題是我們在錄制宏時不能使用多個其他分隔符。

任何幫助將不勝感激。

Answer 1

這是一種易於理解和添加的方法。

它只是將所有分隔符更改為空格，最后刪除所有雙空格。

把它放到一個MODULE中。

Sub test()
  Dim s As String
  s = "Surat/Gujarat-India-East(Asia)+Earth"
  
  s = Replace(s, "/", " ")
  s = Replace(s, "(", " ")
  s = Replace(s, ")", " ")
  s = Replace(s, "+", " ")
  s = Replace(s, "-", " ")

  s = Replace(s, "  ", " ")
  
  Debug.Print s

  ' Then if you want to actually split it...
  Dim v As Variant
  v = Split(s, " ")

End Sub

---

要將其用作返回數組的 function，該數組也可用於設置范圍：

Function GetTest(s As String)
  's = "Surat/Gujarat-India-East(Asia)+Earth"
  
  s = Replace(s, "/", " ")
  s = Replace(s, "(", " ")
  s = Replace(s, ")", " ")
  s = Replace(s, "+", " ")
  s = Replace(s, "-", " ")

  s = Replace(s, "  ", " ")
  
  GetTest = Split(s, " ")
  
End Function

將您的字符串Surat/Gujarat-India-East(Asia)+Earth放入A1

然后在B1中，輸入=GetTest(A1)