Excel VBA - 使用"分隔符拆分文本

Question

我有一个文本字符串，我需要使用符号"作为分隔符。我现在面临的问题比"分裂"还要严重。函数不接受"作为分隔符。

有什么好主意吗?

Answer 1

假设单元格A1中有Hello"Excel，则尝试下面的子单元格

Sub MySplit()
Dim x As String
x = Range("A1")
MsgBox Split(x, Chr(34))(1)
End Sub

Answer 2

你说的不是真的。

A = "Cat*Dog"
B = Split(A, """")
For each thingy in B
Msgbox thingy
Next