拆分符号“使用拆分功能

Question

如何使用Split函数从字符串中分割"符号？

例如

  

海”。

我想从中分割出符号"。这是我到目前为止的代码：

Split(inputstring,""") 

这是抛出编译错误列表分隔符或）。

Answer 1

你必须用String中的另一个双引号括起双引号来转义引号：）

Sub SplitQuotes()

    Range("A1") = "this is ""sparta!"

    Dim str As String

    str = Range("A1")

    Debug.Print "STR IS: " & str

    Dim arr As Variant

    arr = Split(str, """")

    Dim item As Variant

    Debug.Print "#### now iterating through the array"
    For Each item In arr
        Debug.Print item
    Next

End Sub

输出

---

或此arr = Split(str, """")可以替换为arr = Split(str, chr(34))，Chr(34)会返回双引号"