用垂直制表符分隔string作为分隔符使用vba

我怎样才能分割一个string与垂直制表符作为分隔符。

strWriters = Mid("Richenn M.(there a delimiter here)QA'er:", 9, Len("Richenn M.(there a delimiter here)QA'er:")) LArray = VBA.Split(Selection.Text, Chr(103)) strWriter = LArray(0) MsgBox LArray(0) 

我试图寻找相当的字符，但它返回一个错误的字符（103）

它说types不匹配。

Answer 1

垂直制表符是ASCII＆H0Bhex或011dec¹。 VBA使用Chr和Asc函数，而工作表使用CHAR和CODE函数。

你的语法看起来很正确，但是对于你实际工作的内容有一些困惑。 你从一个string常量和stringvariables（例如strWriters ）开始，然后立即丢弃这些variables，并使用Selection.Text 。

 Sub how2split() Dim str As String, strWriters As String, a As Long, LArray As Variant str = "Richenn M." & Chr(&HB) & "QA'er:" 'alternate 'str = Join(Array("Richenn M.", "QA'er:"), Chr(&HB)) Debug.Print str LArray = Split(str, Chr(11)) For a = LBound(LArray) To UBound(LArray) Debug.Print LArray(a) & " is at position " & a Next a End Sub 

Debug.Print命令将输出发送到VBE的立即窗口 。

---

¹ASCII _{103是一个小写的G（例如Chr(103)产生一个g ）。}